ERICLINUX: Ejercicios Pascal (VI) - Número máximo con while.

22/1/08

Ejercicios Pascal (VI) - Número máximo con while.

En la entrega anterior les mostré como sacar un número máximo con Repeat-Until.
Hoy lo haremos con el comando while.

El código es el siguiente:
program maximo;
uses crt;

var
num, max:integer;
Begin

clrscr;

max:=0;

writeln ('Ingrese un numero '); readln (num);

while num > 0 do

Begin

writeln ('Ingrese otro numero '); readln (num);

if num > max then

max:=num;

End;

writeln ('El numero maximo es ',max);
readkey;

End.

Explicación.

NOTA: Como podrán observar es muy parecido al ejercicio anterior. Solo debemos remplazar el repeat-until por el while y colocar el Begin - End dentro del mismo.
while num > 0 do {Mientras num se mayor a 0 hacer}
Begin {Comienza el While}

writeln ('Ingrese otro numero '); readln (num);{Ingresa un número, lo lee}
if num > max then{Si num es mayor al máximo entonces}
max:=num;{máximo va a ser igual a num}
End;{Fin del while}
Atentamente Eric.

En la entrega anterior les mostré como sacar un número máximo con Repeat-Until.
Hoy lo haremos con el comando while.

El código es el siguiente:
program maximo;
uses crt;

var
num, max:integer;
Begin

clrscr;

max:=0;

writeln ('Ingrese un numero '); readln (num);

while num > 0 do

Begin

writeln ('Ingrese otro numero '); readln (num);

if num > max then

max:=num;

End;

writeln ('El numero maximo es ',max);
readkey;

End.

Explicación.

NOTA: Como podrán observar es muy parecido al ejercicio anterior. Solo debemos remplazar el repeat-until por el while y colocar el Begin - End dentro del mismo.
while num > 0 do {Mientras num se mayor a 0 hacer}
Begin {Comienza el While}

writeln ('Ingrese otro numero '); readln (num);{Ingresa un número, lo lee}
if num > max then{Si num es mayor al máximo entonces}
max:=num;{máximo va a ser igual a num}
End;{Fin del while}
Atentamente Eric.

1 COMENTARIOS:

Anónimo | 27 de junio de 2010, 21:27  

Una pregunta, yo quiero sacar un maximo entre 53 camiones, el tema es que me piden saber cual es el camion que más llevo y cual es el camion que menos llevo, o sea, tirar el numero del camion que mas llevo, si fue el 1, o el 2, o el 3, y asi sucesivamente, y lo mismo con el minimo. Cabe destacar que todavia no vimos vectores ni nada, solo llegamos hasta procedimientos y funciones. Agradeceria su ayuda. Mi mail es: jonathanmarinelli@yahoo.com.ar. Desde ya muchas gracias y espero su respuesta!

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.