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 2Desarrollar 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 ysegundos 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
InicioEscribir (“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 (“Espositivo”)
Fin

PASCAL

Program Negative;
Uses crt;
Var
a:real;
Begin
clrscr;
Writeln ('Ingrese un numero');
Readln (a);
If ab 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 crecienteLé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...