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

...