Seudocodigos en pseint

Desarrollo

a) El mayor de 3 números:

Algoritmo mayor_de_3_nros

Definir i , N1 , N2 , N3 Como Entero;

Escribir "Ingrese 3 números enteros diferentes:";

Leer N1 , N2 , N3;

Mientras N1=N2 o N2=N3 o N1=N3 Hacer

Escribir "Números repetidos detectados!!, Intente nuevamente:";

Leer N1 , N2 , N3;

FinMientras

si N1 > N2 Entonces

i <- N1;

SiNo

i <- N2;

FinSi

si i > N3 Entonces

Escribir "El mayor de tres números dados es: ", i , ".-";

SiNo

Escribir "El mayor de tres números dados es: ", N3 , ".-";

FinSi

FinAlgoritmo

b) Obtener pares, impares, positivos y negativos de 20 números dados:

Algoritmo numeros_naturales

Definir i , par , impar , positivo , negativo , numero Como Entero;

par <- 0;

impar <- 0;

positivo <- 0;

negativo <- 0;

Para i <- 1 Hasta 20 Hacer

Escribir "Digite un numero positivo o negativo:";

Leer numero;

si numero mod 2 = 0 Entonces

par <- par + 1;

SiNo

impar <- impar + 1;

FinSi

si numero > 0 Entonces

positivo <- positivo + 1;

SiNo

negativo <- negativo + 1;

FinSi

FinPara

Escribir "Total de pares encontrados es: ", par, ".-";

Escribir "Total de impares encontrados es: ", impar, ".-";

Escribir "Total de positivos encontrados es: ", positivo, ".-";

Escribir "Total de negativos encontrados es: ", negativo, ".-";

FinAlgoritmo

c) Algoritmo de calculo de edad con reintento:

Algoritmo calcular_edad

Escribir "ALGORITMO PARA CALCULAR EDAD";

Definir operacion Como Entero;

Definir YYactual Como Entero;

Definir YYnacimiento Como Entero;

Definir Edad Como Real;

Repetir

Escribir ["¿Desea calcular una edad?"];

Escribir ["1: SI"];

Escribir ["2: Salir"];

Leer operacion;

Si operacion = 1

Escribir "Ingrese año actual (ej.: 202*): ";

Leer YYactual;

Escribir "Ingrese año de su nacimiento (ej.: 1995): ";

Leer YYnacimiento;

Edad <- YYactual - YYnacimiento;

Escribir "Su edad es: ", Edad , " años.";

FinSi

si operacion < 1

Escribir "ERROR!!, Debe escribir un numero de opción valido.";

...