• Где здесь ошибка? Пожалуйста помогите. Программа на лазарус решение квадратных корнейю
    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;

    question img

Ответы 1

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

    Верно так - sqrt

    • Автор:

      rufo
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years