Hoy lo haremos con el comando while.
El código es el siguiente:
program maximo;Explicación.
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.
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}Atentamente Eric. En la entrega anterior les mostré como sacar un número máximo con Repeat-Until.
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}
Hoy lo haremos con el comando while.
El código es el siguiente:
program maximo;Explicación.
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.
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}Atentamente Eric.
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}
1 COMENTARIOS:
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.