 Нахождение корней, квадратного уравнения |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| SlimShady |
 11.05.2005 17:42
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация:  0   |
Составить программу вычисления корней квадратного уравнения вида a x 2 + b x + c = 0
Последовательность действий: 1. Описать переменные a, b, c, d, x1,x2 как REAL. 2. Задать с клавиатуры коэффициенты a, b, c. 3. Вычислить значение дискриминанта d = b 2 – 4 a c 4. Вывести значение дискриминанта на экран 5. Проверить значение дискриминанта: • Если дискриминант меньше нуля, то нет решения • Если дискриминант больше или равен нулю, то вычислить значения x1 и x2 как вычислить значение x1 и x2???????? |
   |
 
|
Сообщений в этой теме
volvo По формулам:
11.05.2005 17:55 SlimShady
Program yravnenie;
uses crt;
var a,b,c,d,X1,X2:in... 11.05.2005 19:16 klem4 ошибки в синтаксисе.
var
a,b,c,d{,x1,x2}:exten... 11.05.2005 19:21 Romtek X1, X2 - действительные числа! (Real)
:) 11.05.2005 19:22 Romtek Program yravnenie;
uses crt;
var a,b,c,d,X1,X2:int... 11.05.2005 19:33 volvo SlimShady, плюс к этому (чтобы избежать неприятнос... 11.05.2005 20:06 SlimShady
Program yravnenie;
uses crt;
var a,b,c,d,X1,X2:re... 11.05.2005 21:29
volvo SlimShady, ошибочка у тебя:
if d=0 then
writeln(... 11.05.2005 21:54  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 12.12.2025 22:42 |