Программирование с использованием процедур и функций

[Sacred09]

Программирование с использованием процедур и функций

Помогите, голова идёт кругом....Компьютер завис при сворачивании и раскрытие турбо паскаля.файл с решением задания был потерен.Помогите написать...
Определить имеет ли уравнение a*x*x+b*x+c=0 действительные корни.Если они есть, то напечатать их, если нет-вывести сообщение об этом.Вычисление корней оформить в виде подпрограммы.

 

[shrek=)]

var
a,b,c,x1,x2,d:real;
procedure korni;
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln ('Первый корень= ',x1,'  Второй корень= ',x2);
end;
begin
write ('Enter a=');
readln (a);
write ('Enter b=');
readln (b);
write ('Enter c=');
readln (c);
d:=sqr(b)-4*a*c;
if d>=0 then
korni
else writeln ('Корней нет');
readln
end.

 

[Sacred09]

[/QUOTE]
Это не по-моему вопросу!

 

[Vladimir_S]

Это не по-моему вопросу!

Это еще почему?! По самому по Вашему вопросу. Впрямую.

 

[Sacred09]

Это еще почему?! По самому по Вашему вопросу. Впрямую.

А вроде уравнение не-то?Да и ещё программа выдает корней нет...

 

[Vladimir_S]

А вроде уравнение не-то?Да и ещё программа выдает корней нет...

Да... трудный случай: похоже Вы, сударь, будучи не в ладах со школьной математикой, плохо представляете себе теорию решения квадратных уравнений. Прискорбно до крайности...
Ну что же, в таком случае Вам - сюда:
Квадратное уравнение — Википедия

 

[shrek=)]

У меня все работает, только одно изменение:

x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a);

 

[Vladimir_S]

У меня все работает, только одно изменение:

Я исправил в #2.

 

[Sacred09]

Спасибо всем откликнувшимся!