01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / ELF / ELF

Program SuperDimaInterPrices_LTD;
Uses CRT;
Type
func=function(x:real):real;
var
kol,i,verh,niz:integer;
znach,x,shag:real;

{$F+}
Function s(x:real):real;
begin
s:=sqrt(x-1);
end;
{$F-}

Procedure G(f:func;verh,niz:integer;shag:real;var znach:real);
begin
znach:=0;x:=verh;
kol:=round((verh-niz)/shag);
For i:=1 to kol Do begin
znach:=znach+f(x);
x:=x+shag;
end;
end;

begin
ClrScr;
Write('‚ўҐ¤ЁвҐ ўҐае­Ё© ЇаҐ¤Ґ« Ё­в. :');ReadLn(verh);
Write('‚ўҐ¤ЁвҐ ­Ё¦­Ё© ЇаҐ¤Ґ« Ё­в. :');ReadLn(niz);
Write('‚ўҐ¤ЁвҐ и Ј Ё­вҐЈаЁа®ў ­Ёп :');Readln(shag);
G(s,verh,niz,shag,znach);
Writeln(znach:5:2);
readln;
end.