Pascal/Turbo Pascal - Suma de Numeros Con ciclo for o while

   
Vista:

Suma de Numeros Con ciclo for o while

Publicado por Boris boris_crz@hotmail.com (1 intervención) el 31/07/2014 05:15:53
Porfavor ayuda... con esto... recomendaciones almenos... explicacion de como hacerlo en pascal con estos ciclos se los agradeceré mucho... soy principiante...
Realizar un programa que calcule la suma siguiente: 100 + 90 + 80 + 70 + … 0
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 de Numeros Con ciclo for o while

Publicado por ramon (39 intervenciones) el 31/07/2014 10:47:25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
{ Con while}
 
program suma;
uses
     crt;
   var
       i, num : integer;
       valor, resu : integer;
  begin
         resu := 0;
         i := 1;
        writeln('  Entre Cuantos Numeros A Sumas : ');
        readln(num);
         clrscr;
        while i < num do
        begin
               write('  Entre Valor Entero : ');
               readln(valor);
              resu := resu + valor;
         end;
       writeln('     La suma es : ',resu);
        readkey;
 end.
 
 
 
{ Con For}
 
program suma;
uses
     crt;
   var
       i, num : integer;
       valor, resu : integer;
  begin
         resu := 0;
         i := 1;
        writeln('  Entre Cuantos Numeros A Sumas : ');
        readln(num);
         clrscr;
        for i Ñ= 1 to num do
        begin
               write('  Entre Valor Entero : ');
               readln(valor);
              resu := resu + valor;
         end;
       writeln('     La suma es : ',resu);
        readkey;
 end.
 
{ Espero sea esto}
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