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

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=)

[code]

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

Vladimir_S · 19.01.2011, 12:22

Цитата:

Сообщение от Sacred09

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

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

Sacred09 · 19.01.2011, 12:30

Цитата:

Сообщение от Vladimir_S

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

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

Vladimir_S · 19.01.2011, 12:36

Цитата:

Сообщение от Sacred09

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

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

shrek=) · 19.01.2011, 12:37

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

Цитата:

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

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

Vladimir_S · 19.01.2011, 12:42

Цитата:

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

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

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

Sacred09 · 19.01.2011, 13:12

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

19.01.2011, 11:54	#1 (permalink)
Sacred09 Member Регистрация: 22.03.2010 Сообщений: 185 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 54	Программирование с использованием процедур и функций Помогите, голова идёт кругом....Компьютер завис при сворачивании и раскрытие турбо паскаля.файл с решением задания был потерен.Помогите написать... Определить имеет ли уравнение axx+b*x+c=0 действительные корни.Если они есть, то напечатать их, если нет-вывести сообщение об этом.Вычисление корней оформить в виде подпрограммы.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

19.01.2011, 11:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Очень важно почитать схожие темы, возможно, что там уже есть нужный вам ответ Назначение функций кнопок График функций Программирование с использованием файлов Программирование алгоритмов с использованием структур

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

19.01.2011, 13:12	#9 (permalink)
Sacred09 Member Регистрация: 22.03.2010 Сообщений: 185 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 54	Спасибо всем откликнувшимся!