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

writeln('введитеинтервал :');

write('a1='); readln(a1);

write('a2='); readln(a2);

if a*b<>0 then

begin

x1:=-a/(2*b);

f1:=y(a1);

f2:=y(x1);

f3:=y(a2);

write('x=',x1:5:3,' - критическаяточка , y(x1)= ',y(x1):7:3);

if a>0 then writeln (' - min')

else writeln (' - max');

min_max3;

end

else

begin

writeln('aи bне могут быть нулевыми');goto 1;

end;

h:=abs(a1-a2)/10;

x:=a1;

i:=1;

writeln ('табулирование функции вида у=хх/a+х/b+с');

writeln ('-----------------------------------');

writeln ('! N ! x ! y ! y p !');

writeln ('-----------------------------------');

repeat

writeln('!',i:4,'!',x:7:2,'!',y(x):9:3,'!',dy(x):9:3,'!');

i:=i+1;

x:=x+h;