Как в Lazarus (или Delphi) решить квадратное уравнение ([tex]ax^{2} + bx + c = 0[/tex]), когда [tex]ax^{2} = 0[/tex] ?

Есть break для прерывания цикла и exit для прерывания процедуры, но их обычно избегают.

Просто, когда дискриминант меньше нуля, оно пишет "Нет корней", но всё равно решает и выводит ответ, а мне нужно, чтобы после этой фразы у меня не было решения

Он ничего не решает. Наверно просто результаты предыдущего решения остались. Просто сотри их. Поменяй строчку if d < 0 then ShowMessage('Корней нет'); на if d < 0 then begin Label1.Caption := ''; Label2.Caption := ''; ShowMessage('Корней нет'); end;

Хорошо

То же самое. Оно сначала пишет "Корней нет" и Label пустые, а после нажатия "ОК", оно мне выбивает какой-то ответ.