Разработать программу в Pascal решения уравнения, использующую условный оператор. Ax^2+x+c=0 m=2, n=3

1
программу которая будет считать это уравнение
при вводимом а, с?
да
Мы в 10 классе и уже решаем функции и процедуры... Вы везучие больно)
я в школе бейсик прохожу.. а в учебнике задание в паскале написать

Ответы и объяснения

2013-09-24T14:17:36+00:00
Program acxD;
uses crt;
var a,c,D:integer;
    x1,x2:real;
begin
Writeln('Vvedi a,c');
readln(a,c);
D:=1-4*a*c;
if D>0 then begin
writeln('V otvete x1,x2 :');
x1:=(1-sqrt(D))/2*a;
x2:=(1+sqrt(D))/2*a;
writeln('x1=',x1,' x2=',x2);
end;
if D=0 then begin writeln('x1=x2');
x1:=1/2*a;
writeln('x=',x1);
end;
if D<0 then writeln('V otvete pystoe mnojestvo!');
end.