• 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
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.