Hoy a diferencia del anterior vamos a hacerlo no con 2 números, sino con 5. Y no lo haremos con varios write sino con un for.
program mayorde5;Explicación.
uses crt;
var i,num, max:integer;
Begin
clrscr;
max:= 0;
for i:=1 to 5 do
Begin
writeln ('Ingrese un numero '); readln (num);
if num > max then
max:= num;
End;
Writeln ('El numero maximo es: ',max);
readkey;
End.
NOTA: Se pueden realizar comentarios en Pascal con las llaves {Comentario aquí.}.
max:= 0: Declaramos a la variable con un valor 0 en el comienzo.
for i:=1 to 5 do: For es un bucle repetitivo. Lo que estamos diciendo en ésta linea es que para i valiendo de 1 hasta 5 hacer.
Recordemos que luego del for debemos encerrar las acciones con un Begin y End;
if num > max then: Si el nuevo número ingresado es mayor a el máximo (variable max) entonces.
max:= num: Aquí pasamos el valor del nuevo número al número máximo.
Atentamente Eric.
En la lección anterior hicimos un ejercicio que consistía en sacar el número máximo.
Hoy a diferencia del anterior vamos a hacerlo no con 2 números, sino con 5. Y no lo haremos con varios write sino con un for.
program mayorde5;Explicación.
uses crt;
var i,num, max:integer;
Begin
clrscr;
max:= 0;
for i:=1 to 5 do
Begin
writeln ('Ingrese un numero '); readln (num);
if num > max then
max:= num;
End;
Writeln ('El numero maximo es: ',max);
readkey;
End.
NOTA: Se pueden realizar comentarios en Pascal con las llaves {Comentario aquí.}.
max:= 0: Declaramos a la variable con un valor 0 en el comienzo.
for i:=1 to 5 do: For es un bucle repetitivo. Lo que estamos diciendo en ésta linea es que para i valiendo de 1 hasta 5 hacer.
Recordemos que luego del for debemos encerrar las acciones con un Begin y End;
if num > max then: Si el nuevo número ingresado es mayor a el máximo (variable max) entonces.
max:= num: Aquí pasamos el valor del nuevo número al número máximo.
Atentamente Eric.
4 COMENTARIOS:
La linea 13 debería ser:
Writeln ('El número máximo es: ',max);
Saludos...
Neuquino
Es cierto, pequeño error.
Gracias por corregirlo.
Atentamente Eric.
Quiero hacer una pregunta, como que es medio viejo el comentario, pero quizá tengo suerte y me responden. Miren, yo quiero sacar el maximo entre 53 elementos, o sea, la idea es que hay camiones que llevan cierta cantidad de cajas, y se quiere saber cual es el camion que más lleva cajas, o sea, el camion 1, o 2, o 3, etc, como haria eso?, porque ahi no estoy sacando el maximo con la cantidad de cajas, sino con la cantidad de camiones y el numero. Se, o calculo que ser haria con un FOR, pero de que manera puedo implementarlo?. Tambien me piden saber cual es el camion que menos cajas llevo. Si me pueden responder haganlo a este mail: jonathanmarinelli@yahoo.com.ar. Saludos y gracias!
Y si quiero saber la posicion del maximo?
Publicar un comentario
Bienvenido a ERICLINUX.
Gracias por tu comentario.
Nota: solo los miembros de este blog pueden publicar comentarios.