Решение квадратного уравнения Prolog
Я занимаюсь некоторыми упражнениями, чтобы изучить программирование Prolog. Однако я не могу понять, как это сделать: мне нужно решить это уравнение с помощью программы пролога (нажмите здесь).
Код, который я уже писал: solveQuadratic([], []). solveQuadratic([a,b,c], Result) :- solveQuadratic([], []). solveQuadratic([a,b,c], Result) :-
«Результат» должен быть списком с 2,1 или 0 элементами, которые показывают нулевые точки этого уравнения.
Я сам пролог-новичок, и я не знаю, смогу ли я решить этот вопрос, но, думаю, было бы полезно рассмотреть это:
В результате получается либо список с результатами 2, 1 или 0? В каких случаях мы можем получить то количество результатов? Ответ лежит в формуле: скажем, часть под корнем b ^ 2-4ac (назовем ее D) является отрицательным числом ( 2017-09-17T14:13:00+03:00 4 года, 5 месяцев назад
Решение квадратного уравнения в прологе
На этом шаге мы рассмотрим сравнение.
Пролог может сравнивать арифметические выражения так же, как символы, сроки и идентификаторы. Следующее выражение в Прологе эквивалентно выражению: «Сумма X плюс 4 меньше 9 минус Y«.
Оператор отношения «меньше чем» ( Таблица 1. Операторы отношения
X-Y=7.1054273576E-15
Следовательно, сравнивая два вещественных числа на равенство, вам всегда следует проверять, чтобы эти два числа находились в определенном диапазоне друг относительно друга.
Приведем следующий пример:
Следующая программа показывает, как обработать приблизительное равенство. Она представляет собой итеративную процедуру вычисления квадратного корня для определения решений квадратного уравнения:
Наличие решений зависит от значения дискриминанта D, определяемого как
В данном случае:
- D>0 — означает, что существует два различных решения;
- D=0 — означает, что существует единственное решение;
- D СодержаниеСледующий шаг
Программирование на Паскале. Тема: «Решение квадратного уравнения с использованием конструкции IF–THEN–ELSE»
Цели урока:
Оборудование:
До сих пор мы с вами говорили о каких-то отвлечённых задачах из области математики. Сегодня мы поговорим о конкретной задаче, которая встречается у вас почти на каждом уроке. Это решение квадратного уравнения. Я хочу, чтобы вы на примере этой задачи поняли, что программирование — это не просто прихоть учителя, это действительно раздел информатики, который может нам помочь, например, в решении конкретных математических задач. Нужно только уметь разбираться в этом.
2. Математическое решение
Давайте вспомним, что понимают под квадратным уравнением?
Что из себя представляют числа a,b,c и как их называют?
С чего начинают решение квадратного уравнения?
Найдите вокруг себя формулу дискриминанта. (D=b 2 -4ac) (Приложение 3)
Как мы решаем далее квадратное уравнение? (сравнение D с нулём)
Какие выводы мы из этого делаем?
(если D 0, то два корня)
Как найти корни квадратного уравнения? Найдите формулы корней среди тех, что развешены повсюду.
Если я случай наличия корней квадратного уравнения сведу к условию D
0, то что я получу в случае D=0?
(Два одинаковых корня)
Давайте ещё раз подробно разберём нашу задачу:
Итак, у нас есть квадратное уравнение ax 2 +bx+c=0.
Мы должны решить его, т.е. найти такие значения х, при которых правая часть уравнения =0. Мы знаем, что для этого нам надо:
Найти дискриминант D=b 2 — 4ac.
Сравнить его с нулём
D=b 2 -4ac=10 2 -4*3*3=100 — 36 =64
Х1=
,
X2 = 
3. Составление блок-схемы алгоритма.
По заданному решению попробуем составить блок-схему алгоритма в тетради. Кто справится первым, прошу к доске.
Подпишем основные элементы блок — схемы применительно к языку программирования.
4. Составление программы по блок — схеме.
Теперь, пользуясь нашими записями, составим программу и покажем её учителю. Тот, кто до конца урока составит только программу, не проверив её на компьютере, получит три, тот, кто наберёт программу на компьютере, но не проверит её на примерах, получит три. Тот, кто выполнит всё задание, получит пять.
А я раздам вам домашнее задание.
Var a,b,c,d,x1,x1: real;
Write(‘введите коэффициенты уравнения a,b,c’); readln(a,b,c);
Else writeln(‘действительных корней нет’)
1. Составить и набрать программу КВУР на компьютере.
Загрузка среды Pascal- 2ЩЛКМ по значку Pascal, нажать ALT+ENTER.
Запуск программы — ЩЛКМ по кнопке RUN выбрать RUN.
2. Решить следующие квадратные уравнения и показать учителю их решения (если нет такой возможности, то занести их в маршрутный лист (Приложение 4)
1,5х 2 -0,6х — 4,8 = 0
3. Переделайте программу КВУР таким образом, чтобы в ней учитывался случай, когда D=0 и уравнение имеет один корень.
4. Закрыть программу.
Подсказка: Меню File — Exit или ALT+X.
1. За простое воспроизведение (набор программы) без проверки оценка «3»
2. За проверку работы программы на примерах, представленных учителем оценка «4»
3. За решение всех заданий и дополнительное изменение программы для случая D=0, оценка «5»
4. Закрыть программу.
Подсказка: Меню File — Exit или ALT+X.
| № | Х1 | Х2 |
| 1 | 3,230139 | 0,1031947 |
| 2 | 1,464102 | -5,464102 |
| 3 | 1,106107 | -1,356107 |
| 4 | Корней нет | |
| 5 | Корней нет | |
| 6 | 1,6 | 0 |
| 7 | 2 | -1,6 |
| 8 | Корней нет | |
| 9 | 0,6872614 | -1,131706 |
| 10 | 9,486833 | -9,486833 |
Можно дать дополнительное задание:
Изменить программу так, чтобы ответ был с точностью до 2-х знаков после запятой.
1) Напишите программу проверки пароля. Пусть пароль — некоторое число, зафиксированное в программе. Программа печатает приглашение «введите пароль» и вводит число. Если введённое число совпадает с фиксированным паролем, то программа выводит приветствие, если нет — сообщает о том, что пароль не угадан.
7. Подведение итогов урока.
Итак, ребята, сегодня мы с вами решали конкретные задачи из математики, применяя свои умения по программированию. Вы получили следующие оценки за свои знания. (Перечисление оценок) На следующем уроке нам предстоит познакомиться с новыми алгоритмами — Циклическими.
На сегодня наш урок закончен. До свидания.
Литература:
http://it.kgsu.ru/Prolog/pro051.html
http://urok.1sept.ru/articles/592261