Pascal/Turbo Pascal - Sumatoria con For y While Do

   
Vista:

Sumatoria con For y While Do

Publicado por gstvbrdnv (2 intervenciones) el 14/04/2012 05:29:40
Hola, estoy intentando hacer la sumatoria de los números del 1 al 100 con un While Do pero me da mal. El resultado debería ser 5050 pero me da 5150 (si lo hago creciente) o 4950 (si lo hago decreciente).

Lo hice también con un For, y logre el resultado correcto.

Este es el código:

program SumatoriaWhileDo;

var num, sum : word;

begin
num := 1;
sum := 0;

writeln('Los primeros 100 numeros naturales son: ');

while num <= 100 do
begin
writeln(num);
num := num + 1;
sum := sum + num;
end;

writeln('Sumatoria: ', sum);
readln;

end.

Gracias!
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

Sumatoria con For y While Do

Publicado por ramon (2072 intervenciones) el 14/04/2012 17:33:17
{Observa tu código con cuidado y veras el error de posición}

while num <= 100 do
begin
writeln(num);
num := num + 1; {Al valor sum le añades 1 en cada while por lo tanto suma 100 mas}
sum := sum + num; {tienes que pasarlo encima de num := num + 1}
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

Sumatoria con For y While Do

Publicado por gstvbrdnv (2 intervenciones) el 14/04/2012 18:02:01
Increible! Tenías razón.

Muchas gracias!
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