Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal

[Рифатина]

Решение квадратного уравнения с процедурой нахождения дискриминанта в Pascal . Помогите пожалуйста!

[p51x]

чем? все формулы есть в школьных учебниках математики...

[hiho]

function D(a,b,c : integer {extended}) : extended;
begin
   Result := a*a - 4*a*c;
end;

А применяем сами =)

[Leshii]

а не B*B ?

a*a - 4*a*c;

[hiho]

ой =)) Безусловно...
Будем считать, что я хотел проверить на грамотность участников форума

[Leshii]

Не по теме, а по сути, главное чтоб человек понимал что пишет или даже переписывает. А наши погрешности можна исправить.
Я сам то особо не дока. Так что самому порой весело с того что пишу)

Да и добавить бы к коду проверку

if D>0 then

{корней в уравнении два} или

If D<0 then ...

, есть третий случай,но там один корень( называется подумай сам ).
После проверки посчитать по ещё одной формуле x1 и x2. Ну и на вывод. И таки там лучше процедура.

[hiho]

ЛикБез:

Корней у квадратного уравнения всегда два... Даже когда (D < 0).

И попробуй доказать, чем лучше процедура нахождения дискриминанта, чем аналогичная функция?