Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Pascal/Turbo Pascal - sacar el mayor y menor de n numeros en pascal

  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

sacar el mayor y menor de n numeros en pascal

Autor:Santiag0 (1 intervención)
Fecha:24/10/2006 20:57:05
salu2 como estan? tengo un pequeño problema en pascal, para sacar el numero mayor y menor de n cantidades de numeros??
esto es lo que he hecho.... debe ser sin arrays

Program Mayo;
uses crt;
var
num, mayor,i,n,num1:integer;
begin
clrscr;

writeln ('ingrese la cantidad de numeros'); readln(n);
for i:=1 to n do
begin
writeln ('Ingrese el numero',i); readln(num);

mayor:=num;

if num > mayor Then
mayor := num;
end;
writeln ('El numero mayor es: ',mayor);

readkey;

end.
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:sacar el mayor y menor de n numeros en pascal

Autor:Carlos Guimaraenz (266 intervenciones)
Fecha:25/10/2006 02:41:37
Hola Santiago! el problema que noto en tu código es que en cada iteración asignas a «mayor» el valor de «num», y luego comparas, por lo cual siempre será igual, nunca mayor, y siempre indicará que el número mayor es el último. Te presento una solución a continuación:

*******************************************************
Program Mayo;
uses crt;
var
num, mayor,i,n,num1:integer;

begin
clrscr;

{inicializo la variable mayor en un valor bajo}
mayor:=-32768;
write ('ingrese la cantidad de numeros: '); readln(n);
for i:=1 to n do
begin
write ('Ingrese el numero ',i, ': '); readln(num);
{aqui elimino la linea donde asignabas «num» a «mayor», ya que solo se hace
si se cumple que «num» sea mayor que «mayor», valga la redundancia}
if num > mayor Then
mayor := num;
end;
writeln ('El numero mayor es: ',mayor);

readkey;

end.
***************************************************

Además retoqué algunas instrucciones como write, para que aparezca más prolijo en pantalla.
Para sacar el número mínimo, haces lo mismo, cambiando la inicialización de la variable (en lugar de mayor:=-32768 escribes menor:=32767), y verificando que «num» sea menor que «menor».
Un abrazo grande!
Comentar