Форум АНТИЧАТ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Delphi

15.02.2010, 22:33

DelFo

Новичок

Регистрация: 02.02.2010

Сообщений: 1

Провел на форуме:
3389

Репутация: 0

Delphi

никак не могу написать программу для решения квадратных уравнений , вроде делфи не видит ошибок и компилирует программу , но когда нажимаю кнопку решить выдает ошибку (Invalid floating point operation)

Цитата:

procedure TForm2.Button1click(Sender: TObject);
var
a: real;
b: real;
c: real;
d: real;
x1: real;
x2: real;
x3: real;

begin

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

if d>0 then

x1 := ((-b) + (sqrt(d))) /(2 * a) ;
x2 := ((-b) - (sqrt(d))) /(2 * a) ;

Label7.Caption := 'D= '+
FloatToStrF(d, ffGeneral, 6,2)+
', то уравнение имеет 2 корня ';
Label8.Caption := 'X1= '+
FloatToStrF(x1, ffGeneral, 6,2);
Label9.Caption := 'X2= '+
FloatToStrF(x2, ffGeneral, 6,2);

if d=0 then

x3 := (-b)/(2 * a);

Label7.Caption := 'D= '+
FloatToStrF(d, ffGeneral, 6,2)+
', то уравнение имеет 1 корень ';
Label8.Caption := 'X= '+
FloatToStrF(x3, ffGeneral, 6,2);

if d<0 then

Label7.Caption := 'D= '+
FloatToStrF(d, ffGeneral, 6,2)+
', то уравнение не имеет корней ';

end;

procedure TForm2.Button2click(Sender: TObject);
begin

Form2.Close;

end;

код проверял несколько раз , но ошибку не смог найти