2.
Program Summa2
var S, x: real, i: integer
function Fact(var i:integer) // Функция вычисления факториала
var j: integer
Fact := 1;
for j := 1 to i do Fact := Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
S := 0;
for i := 1 to n do S := S + 1/Fact(i) + sqrt(abs(x));
write (S);
END.
3.
Program Summa3
var S: real, k, n: integer
var a, b: array of integer // Задаем динамические массивы
BEGIN
write ('Vvedite razmer massivov n'); readln (n);
setlength(a, n); // Устанавливаем размеры массивов
setlength(b, n); // a и b в n элементов.
a[1] := 1; b[1] := 1;
for k := 1 to n do
begin
a[k] := b[k-1] + a[k-1]; // Находим все a[k]
b[k] := a[k-1] + 2*b[k-1]; // И все b[k] при k = 1, ..., n
end;
S := 0;
for k := 1 to n do S := S + exp(k*ln(3))/k/sqrt(a[k]*a[k] + b[k]*b[k]);
write (S);
END.
5.
Program Summa5
var S, A, x, eps: real, k: integer
function Fact(var k:integer) // Функция вычисления факториала
var j: integer
for j := 1 to i do Fact = Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
write ('Vvedite epsilon'); readln (eps);
S := 0;
A := 1;
while abs(A-eps) > 0 do
begin
A := exp(2*k*ln(x)) / (2*Fact(k))
S := S + A;
end;
write (S);
END.