[kidm]

Помогите пожалуйста решить такую задачу, нужно написать программу, которая печатает true или false в зависимости от того, выполняется или нет указанное условие: для произвольных вещественных чисел a,b,c определить , имеет ли уравнение ax2+bx+c=o хотя бы одно вещественное решение.

Корни найти могу, а дальше мозгов нехватает, помогите плиз ,срочно надо.

[hkdkest]

если корень нашел то showmessage('true'); ))

[lmikle]

Да там и корни не надо искать. Достаточно, что бы дискриминант был >= 0.

Код:

procedure HaveSol(a,b,c : Extended);
begin
  If (sqr(b) - 4*a*c) >= 0 
    Then ShowMessage('True') 
    Else ShowMesage('False');
end;

[kidm]

Спасибо, я просто ступил, я думал что нужно из корней выделять вещественные, и получается из вещественных вещественные