-
Lenguaje
Pascal
-
Descripción
Desarrollar un algoritmo que me permite mostrar la siguiente serie y también mostrar la suma:
S = 1/1+1/2+1/3+...+1/1001
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Sumatoria1I;
uses crt;
var i : integer;
var S, termino : real;
begin
S := 0;
for i:=1 to 1001 do
begin
writeln ('PROCESO ', i);
termino := 1.0/i;
S := S+termino;
writeln ('Valor de termino: ', termino:0:6);
writeln;
end;
writeln ('Valor de S: ', S:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var S, termino : real;
begin
S := 0;
for i:=1 to 1001 do
begin
writeln ('PROCESO ', i);
termino := 1.0/i;
S := S+termino;
writeln ('Valor de termino: ', termino:0:6);
writeln;
end;
writeln ('Valor de S: ', S:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.