-
Lenguaje
Pascal
-
Descripción
Se tiene un conjunto de n términos y se desea hallar el resultado total.
- La serie se caracteriza porque en el denominador de cada término estará un valor elevado a un determinado exponente.
- Además cada término tiene su signo que puede ser positivo o negativo.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Serie1452783;
uses crt, math;
var i, n : integer;
var serie, termino : real;
begin
serie := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
termino := (1.0+(i-1)*3)/power((i-1)*4+1,i);
if i mod 2=0 then
begin
termino := -termino;
end;
serie := serie+termino;
writeln ('Valor de termino: ', termino:0:6);
writeln;
end;
writeln ('Valor de serie: ', serie:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var i, n : integer;
var serie, termino : real;
begin
serie := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
termino := (1.0+(i-1)*3)/power((i-1)*4+1,i);
if i mod 2=0 then
begin
termino := -termino;
end;
serie := serie+termino;
writeln ('Valor de termino: ', termino:0:6);
writeln;
end;
writeln ('Valor de serie: ', serie:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.