ERICLINUX: Ejercicios Pascal (IV) - Número máximo de 5.

20/1/08

Ejercicios Pascal (IV) - Número máximo de 5.

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;
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.
Explicación.

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;
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.
Explicación.

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:

Neuquino | 21 de enero de 2008, 9:21  

La linea 13 debería ser:

Writeln ('El número máximo es: ',max);

Saludos...
Neuquino

Eric | 21 de enero de 2008, 11:58  

Es cierto, pequeño error.
Gracias por corregirlo.

Atentamente Eric.

Jonathan Marinelli | 26 de junio de 2010, 19:09  

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!

yamila | 4 de diciembre de 2012, 20:07  

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.

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.