Программа паскаль. здание - разработать функцию с применением примененнием конструкций for, while, repeat y = ∑ (1/i! )

(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;

 

 

{1. традиционный паскаль, каким он был более четверти века назад. именно его описывают школьные учебники. } function max(a,b: real): real; begin   if a> b then max: =a else max: =b end; var   x,y,z,r: real; begin   write('введите z,y,z: ');   read(x,y,z);   r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end. // 2. pascalabc.net 3.2, сборка 1374 от 10.01.2017 // актуальная, современная версия паскаля, которой // все же начали учить некоторые школы и на которой // можно решать олимпиадные // (пока еще не на любых сайтах) begin   var x,y,z: real;   write('введите z,y,z: ');   read(x,y,z);   var r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end.

1) program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i : = 1 to 6 do readln(a[i]); mi : = 1; m : = a[mi]; for i : = 2 to 6 do if a[i] < m then begin mi : = i; m : = a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end. 2) предполагая, что 'коробочка' - это корень program t2; const f = -8; t = 6; s = 2; var i: real; function gety(x: real): real; begin if (x > -3) and (x < = 3) then gety : = sqrt(x) else gety : = 1 / (x * x); end; begin writeln('промежуток [', f, '; ', t, '], шаг ', s, ': '); i : = f; while i < = t do begin writeln('y(', i, ') = ', gety(i)); i : = i + s; end; end.