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;

Answer 1

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

Верно так - sqrt