Pascal/Turbo Pascal - suma infinita

   
Vista:
Imágen de perfil de Misael

suma infinita

Publicado por Misael (34 intervenciones) el 03/06/2015 19:17:15
necesito hacer una programa que sume una cantidad indeterminada de números que ingrese el usuario y solo se detiene y muestra el resultado de la suma cuando ingrese el numero 0

gracias de antemano..
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

suma infinita

Publicado por David (144 intervenciones) el 04/06/2015 00:41:21
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses CRT;
 
var
  n , suma : Longint;
 
begin
  n:=0;
  suma:=0;
  Repeat
    Clrscr;
    Writeln('Introduzca un n£mero (0 para terminar)');
    readln(N);
    suma:=suma+n;
  Until n=0;
  Writeln('La suma es ',suma);
  readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

suma infinita

Publicado por dario (41 intervenciones) el 04/06/2015 15:31:06
Otra solucion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
   seguir:boolean;
   suma,num:integer;
begin
    clrscr;
    seguir:=true;
    suma:=0;
    while seguir do
        begin
            write('Ingrese un numero: ');
            readln(num);
            if num = 0 then
                seguir:=false
            else
                suma:=suma+num
        end;
    writeln('La suma de los numeros es ',suma);
    readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar