Question

Программа Паскаль. здание - разработать функцию с применением примененнием управляющих конструкций FOR, WHILE, REPEAT y = ∑ (1/i!)

Answer 1

(FOR) function sumf(i:integer):real;

begin

k:=1;

sumf:=1; {так как для i1 sum=1}

for i:=1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k:=k*i;

f:=k;

sumf:=sumf+1/f;

end;

(WHILE)

 

function sumw(i:integer):real;

begin

k:=1;

i:=1;

sumw:=1;

while i<=n do

begin

k:=k*i;

f:=k;

sumw:=sumw+1/f;

end;

 

(REPEAT)

function sumr(i:integer):real;

begin

k:=1;

i:=1;

sumr:=1;

repeat

k:=k*i;

f:=k;

sumr:=sumr+1/f;

i:=i+1

until i<n;