Pascal/Turbo Pascal - AYUDA EJERCICIO DE PASCAL QUE REALIZE LA DE SUMATORIA 100 HASTA 0

   
Vista:

AYUDA EJERCICIO DE PASCAL QUE REALIZE LA DE SUMATORIA 100 HASTA 0

Publicado por resnof (1 intervención) el 09/05/2016 00:35:10
un programa en pascal que realize la de sumatoria 100 hasta 0 en este orden 100+98+96 hasta 0 , osea de 2 en 2 hasta llegar a 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

AYUDA EJERCICIO DE PASCAL QUE REALIZE LA DE SUMATORIA 100 HASTA 0

Publicado por ramon (2072 intervenciones) el 10/05/2016 11:09:38
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
{Mira Esto}
 
program sumatoria;
uses
 crt;
var
 cont, num, sumat : word;
 
  procedure lasumatoria;
  begin
  num := 100;
  sumat := 0;
  for cont := (num div 2) downto 0 do
   begin
    sumat := sumat + (cont + cont);
   end;
  writeln;
  writeln('    El Resultado De La sumatoria Es : ',sumat);
  writeln;
  writeln('    Pulse Una Tecla');
 end;
 
 begin
    clrscr;
    lasumatoria;
    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
0
Comentar

AYUDA EJERCICIO DE PASCAL QUE REALIZE LA DE SUMATORIA 100 HASTA 0

Publicado por dario (41 intervenciones) el 10/05/2016 15:18:33
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{otra solucion mas corta}
uses crt;
var
    suma,i:integer;
begin
    clrscr;
    i:=100;
    while i>=0 do begin
        suma:=suma+i;
        i:=i-2
    end;
    writeln('La suma 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
0
Comentar