Программирование на Паскале. Тема: «Решение квадратного уравнения с использованием конструкции IF–THEN–ELSE»
До сих пор мы с вами говорили о каких-то отвлечённых задачах из области математики. Сегодня мы поговорим о конкретной задаче, которая встречается у вас почти на каждом уроке. Это решение квадратного уравнения. Я хочу, чтобы вы на примере этой задачи поняли, что программирование — это не просто прихоть учителя, это действительно раздел информатики, который может нам помочь, например, в решении конкретных математических задач. Нужно только уметь разбираться в этом.
2. Математическое решение
Давайте вспомним, что понимают под квадратным уравнением?
Что из себя представляют числа a,b,c и как их называют?
С чего начинают решение квадратного уравнения?
Найдите вокруг себя формулу дискриминанта. (D=b 2 -4ac) (Приложение 3)
Как мы решаем далее квадратное уравнение? (сравнение D с нулём)
Какие выводы мы из этого делаем?
(если D 0, то два корня)
Pascal (Урок 4) Квадратное уравнение
Как найти корни квадратного уравнения? Найдите формулы корней среди тех, что развешены повсюду.
Если я случай наличия корней квадратного уравнения сведу к условию D0, то что я получу в случае D=0?
(Два одинаковых корня)
Давайте ещё раз подробно разберём нашу задачу:
Итак, у нас есть квадратное уравнение ax 2 +bx+c=0.
Решить квадратное уравнение — Паскаль
Эта программа решает квадратное уравнение (ax^<2>+bx+c=0) и вывод его корни. После запуска программы надо ввести через пробел три коэффициента: a,b,c. Если дискриминант меньше нуля, то выдается сообщение о том, что корней нет. Если дискриминант равен нулю, то выводится один корень, если больше нуля, то выводятся два корня. Точность решения — два знака после запятой.
Программа написана не очень грамотно, поэтому ваш преподаватель легко поверит, что Вы ее решили сами. Пригодится не только школьникам, но и студентам, которые только начинают изучать программирование на Паскале.
Program Kvadrat; var a,b,c,x1,x2,d:real; BEGIN write(‘Vvedite a,b,c: ‘); readln(a,b,c); d:=(b*b)-(4*a*c); if D0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(‘x1= ‘,x1:0:2,’; x2= ‘,x2:0:2); end; readln; END.
Источник: upbyte.net
Решение квадратного уравнения
Стандартный пример на Паскале программы, которая решает квадратное уравнение. Будет полезна начинающим программистам. Почему начинающим? Потому что программа не проверяет не равен ли нулю коэффициент a. Главный недостаток этой программы: она не обрабатывает случай, когда дискриминант d $$ax^2+bx+c=0$$
program Equation; var a,b,c,d,x1,x2:real; begin writeln; writeln (‘Введите коэффициенты a,b,c:’); read (a,b,c); d:=sqr(b)-4*a*c; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln (‘Корни уравнения’); writeln (x1:10:2,x2:10:2); readln; readln; end.
Pascal.Программа квадратное уравнение.
Мне нравится
- Типовые задачи — Паскаль
- Сборник программ на Паскале
- Решение однородной системы
- Вычисление предела функции
Оставить комментарий
Вы должны быть авторизованы , чтобы оставить или оценить комментарий.
Новые записи
- Про сувенірну продукцію та.
- Защита зрения: контактные .
- Про обладнання для шкільни.
- Сила настільних ігор для к.
- Як матраци Sleep Fly забез.
- Что такое портативная элек.
- Какой интернет магазин пла.
- Вибір аксесуарів для полив.
- Важность и актуальность от.
- Найкращі портативні колонк.
Новые комментарии
- Я нашел работу уже на посл
- Наклон шрифта удобно и точ
- И что это значит? совершен
- Спасибо. Крутые советы!
- интерестно
- «Сделайте пожалуйста
- Ну вот — «бессмысленн
- Бред. Выкладывать данные н
- На каком основании вы гово
- Только что придумал идею д
Популярные записи
- Гостовские чертежные рамки.
- 72 образца характеристик н.
- Чертежные шрифты студентам.
- Миллиметровка, система коо.
- Титульный лист курсовой ра.
- Таблица производных и инте.
- Построение поверхностей
- Пишем характеристику студе.
- Заявление на отчисление и .
- Пишем отзыв руководителя
Новые объявления
- Чем отличаются услуги грам.
- Серебряное мужское кольцо .
- Особенности и разновидност.
- Почему и когда нужен аудит.
- Быстрая покупка бикоина на.
- Не важно где ты находишься.
- Неожиданная причина почему.
- Как уберечь себя и свое пр.
- Несколько советов покупате.
- Доставка воды как бизнес
Источник: studlab.com