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.