Вычислить значение выражения - Turbo Pascal (33676)

Формулировка задачи:

ax2+bx>=0


textual

Код к задаче: «Вычислить значение выражения - Turbo Pascal (33676)»

uses crt;
var a,b,x1,x2,x,d:real;
begin clrscr;
repeat
Writeln('a=');read(a);until (a<>0);
repeat
Writeln('b=');read(b);until (b<>0);
x1:=0;x2:=-(b/a);
x:=1;
d:=a*sqr(x)+b*x;
if x2>x1 then
if d<0 then writeln('x=[',x2,'..',x1,']')
else begin writeln('"bs"-eto beskonechnost');writeln('x=(-bs..',x2,'] i [0..bs)');end
else
if d<0 then writeln('x=[',x1,' ..',x2,']')
else begin writeln('"bs"-eto beskonechnost');
writeln('x=(-bs..0] i [',x2,'..bs)');end;
readln;readln;readln;end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5

Источник