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

21/1/08

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.

0 COMENTARIOS:

Publicar un comentario

Bienvenido a ERICLINUX.
Gracias por tu comentario.

Nota: solo los miembros de este blog pueden publicar comentarios.

Tu comentario será moderado la primera vez que lo hagas al igual que si incluyes enlaces. A partir de ahi no ser necesario si usas los mismos datos y mantienes la cordura. No se publicarán insultos, difamaciones o faltas de respeto hacia los lectores y comentaristas de este blog.