Написать приложение, реализующее вычисление корней квадратного уравнения. ( В lazarus или...

Question

Написать приложение, реализующее вычисление корней квадратного уравнения. ( В lazarus или делфи )

Answer 1

Держи! Радуйся! Все готово! Сделано на Дельфине

---

Скачать вложение Текст (TXT)

Comments

Спасибо большое) Если тебе не составит труда помоги еще с одним вопросом

---

Написать приложение, реализующее вычисление корней квадратного уравнения.

---

Вот что я накулюкал : procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c,D,x1,x2:real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

if a=0 then Label4.Caption:='Уравнение не является квадратным';

if a=0 then Label4.Caption:='Уравнение не является квадратным' else

begin

D:=b*b-4*a*c;

if d<0 then Label4.Caption:='Уравнение не имеет решений' else<br>
begin

X1:=(-b+sqrt(D))/2*a;

---

X2:=(-b-sqrt(D))/2*a;

Label4.Caption:='X1='+floattostr(x1)+' X2='+floattostr(x2);

end;
end;

end;

---

что тут не правильно ?

---

ой чет тупанул