Курсовая работа: Составление программ для решения задач на языке программирования Turbo Pascal 2

var a,b,c,a1,a2:integer;

min,max,f1,f2,f3:real;

h,x,yt,yp,x1:real;

i:integer;

function y(x:real):real;

begin

y:=sqr(x)/a+x/b+c;

end;

function dy(x:real):real;

begin

dy:=2*x/a+1/b;

end;

procedure min_max2;

begin

if f1>f2 then

begin {max:=f1; min:=f2; }

writeln('наибольшее значение - у(а1)= ',f1:5:3);

writeln('наименьшее значение - у(a2)= ',f2:5:3);

end;

if f1<f2 then

begin {max:=f2; min:=f1;}

writeln('наименьшее значение - у(a1)= ',f1:5:3);

writeln('наибольшее значение - у(а2)= ',f2:5:3);

end;

end;

procedure min_max3;

begin

if (f1>f2)and(f1>f3) then

begin