|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.09.2014, 17:42 | #1 |
Пользователь
Регистрация: 19.09.2014
Сообщений: 13
|
Решить квадратное уравнение в Delphi
Delphi даны коэффициенты квадратного уравнения ax в квадрате+bx +c=0 решить в delphi. Нужно срочно
|
19.09.2014, 18:52 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Алгоритм
1. Вводишь коэффициенты 2. Если a=0 - вырожденное, выход 2. Считаешь дискриминант 3. Если < 0 - нет решения, выход (можешь найти решение в комплексных числах) 4. Если = 0 - один корень, находишь, выход 5. Если > 0 - два корня, находишь, выход
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
19.09.2014, 19:01 | #3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
А вот так почему бы не сделать ? Я сделал и нашел кучу ответов.
И еще, если там не Delphi , а Pascal - тоже годится. Только ввод и вывод сделать по другому. |
19.09.2014, 19:10 | #4 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Решить простое квадратное уравнение легче всего с помощью метода дискримината.
Делается это так: 1. Получаем сам дискриминат. Код:
2. Далее проверяем дискриминат. Если D<0, то корней нет и некогда не будет. Парабала не имеет пересечения с осью Х. Если D=0, то корень один и считается по формуле: Код:
Код:
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
19.09.2014, 19:33 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
саша40, чтобы не усложнять оператор if, случай D=0 можно не выделять.
Будет считаться (-b+0)/(2*a) и т.д. |
19.09.2014, 19:39 | #6 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Код:
Если помог, проси поставить минус. Будь оригинален!
|
19.09.2014, 19:42 | #7 |
Пользователь
Регистрация: 19.09.2014
Сообщений: 13
|
получилось так
Код:
Последний раз редактировалось Stilet; 19.09.2014 в 20:57. |
19.09.2014, 20:15 | #8 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Вот здесь
Код:
Код:
Вот, так работает например Код:
Последний раз редактировалось type_Oleg; 19.09.2014 в 20:20. |
19.09.2014, 21:51 | #9 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Эт вот так, штоль?
Писал одним пальцем, лёжа на диване. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal. Арифметическое выражение. Решить квадратное уравнение и посчитать выражение, используя вычисленные корни. | dauletsergazin | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 13.11.2017 11:55 |
Даны три матрицы A, B, C. Решить квадратное уравнение Amin*x^2 + Bmin*x + Cmin = 0 (Pascal ABC.NET) | марфаз | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 25.12.2013 21:34 |
Квадратное уравнение | Mrsqler | Microsoft Office Excel | 1 | 16.02.2012 23:40 |
Квадратное уравнение | turtles | Общие вопросы по Java, Java SE, Kotlin | 1 | 14.04.2011 21:56 |