Разработать программу в Pascal решения уравнения, использующую условный оператор. ...

Question

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

Comments

m и n здесь зачем?

---

yt pyf.

---

не знаю

---

=_= Процедуру тебе что-ли? Или функцию?

---

программу которая будет считать это уравнение

---

при вводимом а, с?

---

да

---

Мы в 10 классе и уже решаем функции и процедуры... Вы везучие больно)

---

я в школе бейсик прохожу.. а в учебнике задание в паскале написать

Answer 1

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!');<br>end.