|
#1
|
|||
|
|||
нужна помощь
Помогите пожалуйста решить такую задачу, нужно написать программу, которая печатает true или false в зависимости от того, выполняется или нет указанное условие: для произвольных вещественных чисел a,b,c определить , имеет ли уравнение ax2+bx+c=o хотя бы одно вещественное решение.
Корни найти могу, а дальше мозгов нехватает, помогите плиз ,срочно надо. |
#3
|
|||
|
|||
Да там и корни не надо искать. Достаточно, что бы дискриминант был >= 0.
Код:
procedure HaveSol(a,b,c : Extended); begin If (sqr(b) - 4*a*c) >= 0 Then ShowMessage('True') Else ShowMesage('False'); end; |
#4
|
|||
|
|||
Спасибо, я просто ступил, я думал что нужно из корней выделять вещественные, и получается из вещественных вещественные
|