01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Прога ищет маштаб функций

Program Laba2;
{‘®бв ўЁвм Їа®Ја ¬¬г б Їа®жҐ¤га®© Masshtab ¤«п ®влбЄ ­Ёп ¬ бив Ў 
Ё§®Ўа ¦Ґ­Ёп дг-© f(x) Ё g(x) ­  нЄа ­Ґ а §¬Ґа®¬ B Ї® д-«Ґ M=B/f(x).
‚ ®б­®ў­®© Їа®Ја ¬¬Ґ ЁбЇ®«м§®ў вм Masshtab ¤«п дг-Ё© sin(x) Ё tg(x)
ЇаЁ е<1}
uses crt;
var
b,x,l,f,g,m1,m2,max1,max2:real;
{----------------------------}
procedure Masshtab(b1,max11,max21:real;var M1,M2:real);
begin
M1:=abs(B1/max11);
M2:=abs(B1/max21);
end;
{-----------------------------}
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ а §¬Ґа нЄа ­ ');
readln(B);
writeln('‚ўҐ¤ЁвҐ ЇаЁа йҐ­ЁҐ l');
readln(l);
x:=-10E10;
max1:=-10E10;
max2:=-10E10;
repeat F:=sin(x);
G:=sin(x)/cos(x);
x:=x+l;
If max1<F then max1:=F;
If max2<F then max2:=G;
until x<1;
masshtab(b,max1,max2,m1,m2);
writeln('Њ бив Ўл Ё§®Ўа ¦Ґ­Ё© Њ1:',M1:6:2);
writeln(' M2:',M2:6:2);
readln;
end.