Где здесь ошибка? Пожалуйста помогите. Программа ** лазарус решение квадратных корнейю...

Question

Где здесь ошибка? Пожалуйста помогите. Программа на лазарус решение квадратных корнейю procedure TForm1.Button1Click(Sender: TObject); var a ,b,c,n,d,s :Integer; begin a:= StrToInt (ka.Text); b:= StrToInt (kb.Text); c:= StrToInt (kc.Text); D:= b*b-4*a*c; if D>0 then n := ( (-b+scrt(b)) / (2*a)) and s := ((-b-scrt(b)) / (2*a)); if D=0 n = b / (2*a) ; if D<0 then Showmessage ('нет корней'); no.Text := IntToStr (n); nod.Text:= IntToStr(s); end;<hr>

Comments

Все скрин есть

---

да

---

и еще на and и s:=

---

а теперь не ругается на ;

---

if D>0 then n := ( (-b+scrt(b)) / (2*a)) and s := ((-b-scrt(b)) / (2*a)); где and и s:=

---

спасибо

Answer 1

Не верно написана функция нахождения корня - scrt

Верно так - sqrt