19.01.2011, 11:54 | #1 (permalink) |
Member
Регистрация: 22.03.2010
Сообщений: 185
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 54
|
Программирование с использованием процедур и функций
Определить имеет ли уравнение a*x*x+b*x+c=0 действительные корни.Если они есть, то напечатать их, если нет-вывести сообщение об этом.Вычисление корней оформить в виде подпрограммы. |
19.01.2011, 11:54 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Очень важно почитать схожие темы, возможно, что там уже есть нужный вам ответ Назначение функций кнопок График функций Программирование с использованием файлов Программирование алгоритмов с использованием структур |
19.01.2011, 12:06 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Код:
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. |
19.01.2011, 12:30 | #5 (permalink) |
Member
Регистрация: 22.03.2010
Сообщений: 185
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 54
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.01.2011, 12:36 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... трудный случай: похоже Вы, сударь, будучи не в ладах со школьной математикой, плохо представляете себе теорию решения квадратных уравнений. Прискорбно до крайности...
Ну что же, в таком случае Вам - сюда: Квадратное уравнение — Википедия |
19.01.2011, 13:12 | #9 (permalink) |
Member
Регистрация: 22.03.2010
Сообщений: 185
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 54
|
Спасибо всем откликнувшимся!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|