|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.02.2013, 19:16 | #1 |
Новичок
Джуниор
Регистрация: 18.02.2013
Сообщений: 2
|
Задача в Pascal
Найти сумму корней квадратного уравнения.
Если эта сумма положительна и кратна трем, то увеличить коэффициенты a и b в 0,5 раза. Иначе проверить, кратна ли данная сумма произведению коэффициентов этого уравнения. Если уравнение не имеет корней, то вывести соответствующее сообщение. |
18.02.2013, 19:57 | #2 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
Как вариант - вспомнить теорему Виета и определение дискриминанта квадратного уравнения.
Цитата:
Кратность можно определить делением целых чисел: оператор mod Вам поможет. Так думается, что коэффициенты уравнения - целого типа Думаю, что этого будет достаточно ...
Как-то так, ...
|
|
18.02.2013, 21:17 | #3 |
Пользователь
Регистрация: 15.02.2013
Сообщений: 35
|
Доброго времени суток.
Чтобы проверить кратность нужно использовать mod, то есть: Код:
Надеюсь это Вам поможет. |
19.02.2013, 21:32 | #4 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
Код:
x1 и x2 - должны быть целого типа. Тогда a и b - целого типа. Тогда код: Код:
Возможно так? Код:
Вроде так ...
Как-то так, ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal | ExCiTeC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.01.2013 20:36 |
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC | kimberly | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.12.2012 17:03 |
Задача Pascal!!! | Kirill_Sokolov | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 17.10.2012 20:47 |
Задача Pascal | Cruzel | Помощь студентам | 3 | 05.11.2011 20:18 |
Задача на Pascal! | BlackFishSQL | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.11.2011 17:38 |