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

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

if f2<f3 then {min:=f2} writeln('наименьшее значение - у(х1)= ',f2:5:3)

else {min:=f3} writeln('наименьшее значение - у(a2)= ',f3:5:3);

end

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

begin

{max:=f2;}

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

if f1<f3

then {min:=f1}

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

else {min:=f3}

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

end

else

begin

{max:=f3;}

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

if f1<f3

then {min:=f1}

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

else {min:=f3}

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

end

end;

begin

writeln('Исследование функции вида y=xx/a+x/b+c' );

1:write('введите целые цисла а=');readln(a);

write('b=');readln(b);