Pseudocodigos

EJERCICIO 1

Desarrollar un algoritmo que calcule el volumen de aire que contiene una pelota, perfectamente esférica:

ANALISIS

DE(datos de entrada): Radio de la esfera

DS(datos de salida): Volumen de la esfera

Debo saber que: Volumen= 4/3 * PI * radio^3

DISEÑO

Algoritmo Vesfera

Léxico

Radio, volumen : R

Inicio

Escribir ("ingrese el valor del radio de la esfera" )

Leer (Radio)

Volumen ← 4/3 * π * radio^3

Escribir ("El volumen de la esfera es", Volumen)

Fin

PASCAL

Program Ejuno;

Var Radio, Volumen, Con , con2 : Real;

Begin

Con := 3.14;

Con2:= 3/4;

Writeln ('Ingrese el valor del radio de la esfera');

Readln (Radio);

Volumen := Radio*Radio*Radio*con*con2;

Writeln ('El volumen de la esfera es', Volumen);

End.

EJERCICIO 2

Desarrollar un algoritmo que convierta un numero de segundos en su equivalente en minutos y segundos. Por ejemplo dado 1300 segundos el algoritmo deberá calcular 21 minutos 40 segundos..

ANALISIS

DE: Segundos transcurridos

DS: Su equivalente en Min-Seg

Debo saber que: El DIV me devuelve el valor entero de la división, y el MOD su resto.

DISEÑO

Algoritmo

Léxico

seg, seg2, min : Z

Inicio

Escribir ("Ingrese segundos" )

Leer (seg)

min ← seg div 60

seg ← seg mod 60

Escribir (" Los minutos y segundos equivalentes son " min "y" seg)

Fin

PASCAL

Program Minseg;

Uses crt;

Var

seg, seg2, min : Integer;

Begin

Clrscr;

Writeln ('Ingrese segundos');

Readln (seg);

min:= seg div 60;

seg2:= seg mod 60;

Writeln ('El equivalente en minutos y segundos es ', min, ' minutos ',seg2,' segundos');

End.

EJERCICIO 3

Desarrollar un algoritmo que encuentre el máximo entre 3 números:

FORMULA máximo entre dos números---> Máximo = ((a+b)+abs (a-b))/2

ANALISIS

DE: Tres números reales

DS: 1 Numero real

Debo saber que: Máximo = ((a+b)+abs (a-b))/2

DISEÑO

Algoritmo Maximo;

Léxico

a,b,c,max,maximo : R

Inicio

Escribir (“Ingrese tres números”)

Leer (a,b,c)

max ← ((a+b)+abs(a-b))/2

maximo ← ((max + c) + abs (a-b))/2

Escribir (“El máximo es”, maximo)

Fin

PASCAL

Program Maximi;

var

a,b,c,max,maximo : Real;

begin

Writeln ('Ingrese tres numeros');

Readln (a);

Readln (b);

Readln (c);

max:=((a+b)+abs(a-b))/2;

maximo:= ((max + c) + abs (max - c))/2;

Writeln ('El maximo es', maximo:10:2);

End.

EJERCICIO 4

Desarrollar un algoritmo que detecte si un numero dado es positivo o negativo.

ANALISIS

DE: un numero real

DS: Un mensaje afirmativo si el numero es negativo

DISEÑO

Algoritmo Negativo

Lexico

a : R

Inicio

Escribir(“Ingrese un numero”)

Leer (a)

Si a >= 0 entonces

Escribir (“El numero es negativo”)

Sino

Escribir (“Es positivo”)

Fin

PASCAL

Program Negative;

Uses crt;

Var

a:real;

Begin

clrscr;

Writeln ('Ingrese un numero');

Readln (a);

If a<=0 then

Writeln ('El numero es negativo')

else

Writeln ('POSITIVO');

End.

EJERCICIO 5

Elaborar un algoritmo que lea dos números desde el teclado y si el primero es mayor que el segundo, intercambie sus valores.

ANÁLISIS

DE:dos números reales

DS:dos números reales

Debo saber que: En este caso debemos intercambiar los valores SIN utilizar ningun tipo de variable auxiliar.

DISEÑO

Algoritmo Intercambiar

Léxico

a,b : R

Inicio

Escribir (“Ingrese dos numero”)

Leer (a,b)

Si a>b entonces

a ← a+b

b ← a-b

a ← a-b

Escribir (“Los números ingresados intercambiados son”,a “y”, b)

Fin

PASCAL

program Intercambiar;

Uses crt;

Var

a,b : Real;

Begin

clrscr;

Writeln ('Ingrese dos numeros');

Readln (a);

Readln (b);

If a>b then

a := a+b;

b := a-b;

a := a-b;

Writeln ('Los valores intercambiados son ', a:10:2 , ' y ', b:10:2);

End.

EJERCICIO 6

Desarrollar un algoritmo que detecte si se han introducido tres numeros en orden creciente.

ANALISIS

DE: tres numeros reales

DS: Un mensaje afirmativo si los numeros fueron ingresados en forma creciente.

DISEÑO

Algoritmo creciente

Léxico

a,b,c : R

Inicio

Escribir (“Ingrese tres números”)

Leer (a,b,c)

Si a < b < c entonces

Escribir (“Los números fueron ingresados en orden creciente”)

sino

Escribir (“No”)

Fin

PASCAL

program creciente;

Uses crt;

var

a,b,c : Real;

begin

clrscr;

Writeln ('Ingrese tres numeros');

Readln (a);

Readln (b);

Readln (c);

If (a < b) and (b< c) then

Writeln ('Los numeros fueron ingresados en orden creciente')

else

Writeln ('No');

End.

EJERCICIO 7

Desarrollar un algoritmo que lea desde el teclado el importe bruto de una factura y determine el importe neto según los siguientes criterios:

-Importe bruto menor

...