Ejercicios Pascal (V) - Número máximo de "X" cantidad ingresados.

En la lección anterior sacamos el número mayor de 5 ingresados. Hoy vamos a sacar el número mayor de la cantidad "X" que el usuario quiera.

El código es el siguiente:

uses crt;
var
num, max:integer;
Begin
clrscr;
max:= 0;
writeln ('Ingrese un numero '); readln (num);
repeat
if num > max then
max:= num;
writeln ('Ingrese un numero '); readln (num);
until num = 0;
writeln ('El numero mayor es ',max);
readkey;
end.

Explicación.

Repeat: Nos encontramos con éste nuevo bucle condicional. Esta compuesto por dos códigos "Repeat Until" ésto significa Repetir hasta que pase X acción.
En éste caso decimos qué:

Repeat (Repita).
if num > max then (Si el número es mayor al máximo haga).
max:=num; (Si el número es mayor al máximo entonces el máximo pasa a ser el número).
writeln (Ingresa un número, y lo lee).
until num = 0; (Cuando el número ingresado sea 0 finalizara el repeat). writeln (Para mostrar el número máximo).

Atentamente Eric.

En la lección anterior sacamos el número mayor de 5 ingresados. Hoy vamos a sacar el número mayor de la cantidad "X" que el usuario quiera.

El código es el siguiente:

uses crt;
var
num, max:integer;
Begin
clrscr;
max:= 0;
writeln ('Ingrese un numero '); readln (num);
repeat
if num > max then
max:= num;
writeln ('Ingrese un numero '); readln (num);
until num = 0;
writeln ('El numero mayor es ',max);
readkey;
end.

Explicación.

Repeat: Nos encontramos con éste nuevo bucle condicional. Esta compuesto por dos códigos "Repeat Until" ésto significa Repetir hasta que pase X acción.
En éste caso decimos qué:

Repeat (Repita).
if num > max then (Si el número es mayor al máximo haga).
max:=num; (Si el número es mayor al máximo entonces el máximo pasa a ser el número).
writeln (Ingresa un número, y lo lee).
until num = 0; (Cuando el número ingresado sea 0 finalizara el repeat). writeln (Para mostrar el número máximo).

Atentamente Eric.