Лабораторные работы / zad1 / zad1

Program sdf;
{$f+}
uses crt;
type func = function(c: integer): real;
var
k: integer;

{€б室­ п дг­ЄжЁп
c -  аЈг¬Ґ­в}
function f(c: integer): real;
begin
f:= 2/(c+exp(1*ln(c)/3));
end;

{ђҐЄгабЁў­ п дг­ЄжЁп ¤«п Ї®¤бзсв  б㬬л з«Ґ­®ў Ї®б«Ґ¤®ў вҐ«м­®бвЁ
1 - ­Ё¦­пп Ја ­Ёж  б㬬Ёа®ў ­Ёп
c - ­®а¬Ґа ⥪г饣® з«Ґ­ 
f - дг­ЄжЁп ¤«п Ї®¤бзсв  1 з«Ґ­ }
function qrec(c: integer; f: func): real;
begin
if (c > 1) then
qrec:=qrec(c-1, f)+ f(c)
else
qrec:=f(1);
end;

{€вҐа вЁў­ п дг­ЄжЁп ¤«п Ї®¤бзсв  б㬬л з«Ґ­®ў Ї®б«Ґ¤®ў вҐ«м­®бвЁ
i - бзсвзЁЄ
s - ЇҐаҐ¬Ґ­­ п ¤«п еа ­Ґ­Ёп б㬬л
k - Є®«ЁзҐбвў® з«Ґ­®ў
f - дг­ЄжЁп ¤«п Ї®¤бзсв  1 з«Ґ­ }
function qiter(k: integer; f: func): real;
var i: integer;
s: real;
begin
s:=0;
for i := 1 to k do
s:=s+f(i);
qiter:=s;
end;

begin
{‚ў®¤ ўҐае­ҐЈ® ЇаҐ¤Ґ«  б㬬Ёа®ў ­Ёп}
write('‚ўҐ¤ЁвҐ k: ');
readln(k);
{‚лзЁб«Ґ­Ёп}
writeln('‘㬬  з«Ґ­®ў ¬Ґв®¤®¬ ४габЁЁ',qrec(k, f));
writeln('‘㬬  з«Ґ­®ў ¬Ґв®¤®¬ ЁвҐа жЁ©',qiter(k, f));
readln;
end.

{‡ ¤ з  - Џ®бзЁв вм б㬬г Q ЇҐаўле k з«Ґ­®ў Ї®б«Ґ¤®ў вҐ«м­®бвЁ, Є ¦¤л© з«Ґ­ Є®в®а®© § ¤ свбп дг­ЄжЁҐ© f(i)
‚室­лҐ ¤ ­­лҐ - ‚Ґае­Ё© ЇаҐ¤Ґ« б㬬Ёа®ў ­Ёп
‚л室­лҐ ¤ ­­лҐ - 2 ўҐйҐб⢥­­ле §­ зҐ­Ёп б㬬л, Ї®бзЁв ­­ле а §­л¬Ё ¬Ґв®¤ ¬Ё
ЊҐв®¤
1) ђҐЄгабЁп.
Q(1) = 1
Q(k) = Q(k-1) + f(k)
2) €вҐа жЁп.
Q = f(1)+f(2) + ... + f(k)}