Delphi

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

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

 

На какой строке выбивает ?

 

короче не считаем корня из -|d|. B И это не ед. место где вы не используете блоки begin end.

 

а где ты вводишь a,b и c???????????? о_О) все работает

 

DelFo, ты написал бред хотя бы в том смысле, что здесь всюда должны быть не такие конструкции:

Code:

if <условие> then <команда>

а такие

Code:

if <условие> then begin <команды> end

Если проблемы возникают со столь простыми задачами, то дальше будет очень проблематично...