Найти тему

Квадратные уравнения на Pascal. Находим дискриминант.

Оглавление
Не квадратное, конечно, но все же
Не квадратное, конечно, но все же

Добрый день, товарищи! И вот я возвращаюсь с новым гайдом, который, думаю, окажется многим полезным. Сегодня мы напишем программу для нахождения корней и дискриминанта квадратного уравнения.

Согласитесь, всегда удобно иметь под рукой небольшой калькулятор, который быстро покажет тебе и дискриминант, и ответ на сложное уравнение.

В конце статьи я дам вам ссылку на Яндекс.Диск для скачивания файла с этим кодом!

1. Объявим и введем переменные

-2

В этом отрезке кода мы объявляем наши переменные. a, b, c - будет вводить пользователь, это основные части уравнения.

d - наш дискриминант.

x1, x2 - корни уравнения.

Тип данных выберем целый, но при желании все же можно поставить real.

Для наглядности после ввода переменных продублируем их в уравнение, чтобы пользователь видел уравнение.

2. Находим дискриминант квадратного уравнения

-3

Тут все просто, тут все по математике. Вместо не очень красивого b*b можно использовать функцию возведения в квадрат - sqr(b), в данном примере так сделано для наглядности.

3. Если дискриминант меньше нуля

-4

Как мы помним из курса математики, если Д меньше нуля - это уравнение не будет иметь смысла. Чтож, поэтому необходимо добавить это исключение.

4. Если дискриминант равен нулю

-5

Если Д равен нулю - у него лишь один корень, и находится он иначе, чем при Д больше нуля. Поэтому поспешим добавить и это исключение в нашу программу.

5. Находим корни х1 и х2 квадратного уравнения

-6

Просто найдем х1 и х2. Напомню, что sqrt(d) это корень дискриминанта. После этого просто делим это на 2а. Формулы, думаю, сами знаете.

Чтож, вот и все программа, ссылка, напомню, будет в конце статьи, а сейчас давайте ее протестируем!

6. Тесты

Тесты помещу в галерею. Смотрите остальные (->)

7. Полный код + ссылка

-8

Тут весь код программы, а ниже вы можете найти ссылку на скачивание этой программы в формате .pas, для открытия файла сразу в паскале.

Скачать код программы с Яндекс.Диска

-9

Данный человек всегда открыт для обсуждения контента и общения с подписчиками, если найдутся какие либо вопросы то я обязательно постараюсь ответить на них.

По возможности я попросил бы подписаться и оценить публикацию. Сейчас это критически важно для развития канала. Так то!

Доброго вам всем здоровьица в эти трудные времена!