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

Технический форум (http://www.tehnari.ru/index.php)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/forumdisplay.php?f=43)

- - Программирование с использованием процедур и функций (http://www.tehnari.ru/showthread.php?t=45946)

Sacred09

19.01.2011 11:54

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

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

shrek=)

19.01.2011 12:06

Код:

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

19.01.2011 12:15

Цитата:

Сообщение от shrek=) (Сообщение 449140)

[code]

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

Vladimir_S

19.01.2011 12:22

Цитата:

Сообщение от Sacred09 (Сообщение 449141)

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

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

Sacred09

19.01.2011 12:30

Цитата:

Сообщение от Vladimir_S (Сообщение 449143)

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

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

Vladimir_S

19.01.2011 12:36

Цитата:

Сообщение от Sacred09 (Сообщение 449146)

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

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

shrek=)

19.01.2011 12:37

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

Цитата:

Сообщение от shrek=) (Сообщение 449140)

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

Vladimir_S

19.01.2011 12:42

Цитата:

Сообщение от shrek=) (Сообщение 449148)

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

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

Sacred09

19.01.2011 13:12

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

Часовой пояс GMT +4, время: 22:31.