01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Прога находит расстояние между двумя кривыми

Program Laba1;

{‘®бв ўЁвм Їа®Ја ¬¬г б Їа®жҐ¤га®© Maxim ¤«п ­ е®¦¤Ґ­Ёп а ббв®п­Ёп ¬Ґ¦¤г
¤ўг¬п ЄаЁўл¬Ё F(x) Ё G(x) ЇаЁ ®¤­®© Ё в®© ¦Ґ  ЎжЁбᥠx Ё ў Ё­вҐаў «Ґ ®в 0.5
¤® 1. ‚ ®б­®ў­®© Їа®Ја ¬¬Ґ ЁбЇ®«м§®ў вм maxim ¤«п дг­ЄжЁ© sin(x)/x Ё
tg(x+1)/(x+1)}
uses crt;
type
fun1=function(x:real):real;
var
max,l,x,z:real;
f,g:fun1;

{$F+}
function func1(x:real):real;
begin
Func1:=sin(x)/x;
end;
function func2(x:real):real;
begin
Func2:=sin(x+1)/(x+1)*cos(x+1);
end;
{$F-}
{--------------------------}
procedure maxim(f1,g1:fun1;x:real;var z1:real);
begin
z1:=abs(F1(x)-G1(x));
end;
{---------------------------}
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ ЇаЁа йҐ­Ёп');
readln(l);
max:=-10E10;
x:=0.5;
repeat f:=func1;
g:=func2;
maxim(f,g,x,z);
x:=x+l;
If max<z then max:=z;
until x>1;
writeln('Њ ЄбЁ¬ «м­®Ґ а ббв®п­ЁҐ ¬Ґ¦¤г ЄаЁўл¬Ё:',max:6:2);
readln;
end.