Pascal/Turbo Pascal - Pequeña duda con otro problema de pascal

   
Vista:

Pequeña duda con otro problema de pascal

Publicado por federico (19 intervenciones) el 01/05/2011 06:53:04
Por qué cuando tengo que ingresar una cantidad de números me pasa que me pide uno de más...por ejemplo pongo el FOR 1 a 5 y en lugar de tener que ingresar 5 tengo que ingresar 6? me gustaría saber el porqué.

Es un programa para sacar la mayor diferencia entre entre los numeros que ingreso.

Mil gracias desde ya.



program dsds(input,output);
uses crt;
var i,m,n,max,min:integer;


begin

writeln('ingresar cantidad de numeros');
readln(n);
writeln('ingrese numeros');
readln(m);
max:=m;
min:=m;
for i:=1 to n do
begin
readln(m);
if m>max
then max:= m
else if m<min
then min:=m
else;
end;
writeln('la mayor diferencia es', max-min:3);

repeat until keypressed;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Pequeña duda con otro problema de pascal

Publicado por ramon (2072 intervenciones) el 01/05/2011 14:09:51
[El problema que tienes es el siguiente }

program dsds(input,output);
uses crt;
var i,m,n,max,min:integer;


begin

writeln('ingresar cantidad de numeros');
readln(n);
writeln('ingrese numeros');
readln(m); {En este lugar ingresas ya un numero por lo tanto tienes que realizar un decremento }
{ de uno por dicha entrada si no saldra una mas}
max:=m;
min:=m;
for i:=1 to n - 1 do {quedaría como ves}
begin
readln(m);
if m>max
then max:= m
else if m<min
then min:=m
else;
end;
writeln('la mayor diferencia es', max-min:3);

repeat until keypressed;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Pequeña duda con otro problema de pascal

Publicado por federico (19 intervenciones) el 01/05/2011 21:30:43
Cierto,...soy un tonto.

Gracias por tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar