Предмет: Информатика,
автор: настя21032002
составьте программу!!! найти корни квадратного уравнения, если мы предполагаем,что x=0, x больше 0, х меньше 0. помогите пожалуйста
Ответы
Автор ответа:
0
var a,b,c:integer;D,x1,x2:real;beginwriteln('введите a');readln(a);writeln('введите b');readln(b);writeln('введите c');readln(c);D:=sqr(b)-4*a*c;if (D>0) thenbeginx1:=(-b+sqrt(d))/(2*a);x2:=(-b-sqrt(d))/(2*a);writeln('дискриминант больше нуля= ',d);writeln('x1= ',x1);writeln('x2= ',x2);end;if (d=0) thenbeginx1:=-b/(2*a);writeln('d=0');writeln('x1,2= ',x1);end;if (d<0) then writeln('корней нет!');end.
Похожие вопросы
Предмет: Русский язык,
автор: artemir00
Предмет: Русский язык,
автор: Аноним
Предмет: Английский язык,
автор: nizenky0
Предмет: Обществознание,
автор: Munya1