Цитата:
Сообщение от vindows93
не флоат а реал
|
Точно!!! Вот что значит без практики...
По условию:
Код:
if (d>0) do begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
end;
if (d<0) do writeln ('Хрен тебе в обе руки!');
if (d=0) do [какая-нибудь переменная]:=(-b)/(2*a);
С учётом моих последних ошибок, лучше бы чтобы кто-нибудь ещё проверил.
