Программирование на Паскале. Тема: «Решение квадратного уравнения с использованием конструкции IF–THEN–ELSE»
Цели урока:
Оборудование:
До сих пор мы с вами говорили о каких-то отвлечённых задачах из области математики. Сегодня мы поговорим о конкретной задаче, которая встречается у вас почти на каждом уроке. Это решение квадратного уравнения. Я хочу, чтобы вы на примере этой задачи поняли, что программирование — это не просто прихоть учителя, это действительно раздел информатики, который может нам помочь, например, в решении конкретных математических задач. Нужно только уметь разбираться в этом.
Давайте вспомним, что понимают под квадратным уравнением?
Что из себя представляют числа a,b,c и как их называют?
С чего начинают решение квадратного уравнения?
Найдите вокруг себя формулу дискриминанта. (D=b 2 -4ac) (Приложение 3)
Как мы решаем далее квадратное уравнение? (сравнение D с нулём)
Какие выводы мы из этого делаем?
Как найти корни квадратного уравнения? Найдите формулы корней среди тех, что развешены повсюду.
Если я случай наличия корней квадратного уравнения сведу к условию 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
3. Составление блок-схемы алгоритма.
По заданному решению попробуем составить блок-схему алгоритма в тетради. Кто справится первым, прошу к доске.
Подпишем основные элементы блок — схемы применительно к языку программирования.
4. Составление программы по блок — схеме.
Теперь, пользуясь нашими записями, составим программу и покажем её учителю. Тот, кто до конца урока составит только программу, не проверив её на компьютере, получит три, тот, кто наберёт программу на компьютере, но не проверит её на примерах, получит три. Тот, кто выполнит всё задание, получит пять.
А я раздам вам домашнее задание.
Write(‘введите коэффициенты уравнения a,b,c’); readln(a,b,c);
Else writeln(‘действительных корней нет’)
1. Составить и набрать программу КВУР на компьютере.
Загрузка среды Pascal- 2ЩЛКМ по значку Pascal, нажать ALT+ENTER.
Запуск программы — ЩЛКМ по кнопке RUN выбрать RUN.
2. Решить следующие квадратные уравнения и показать учителю их решения (если нет такой возможности, то занести их в маршрутный лист (Приложение 4)
3. Переделайте программу КВУР таким образом, чтобы в ней учитывался случай, когда D=0 и уравнение имеет один корень.
Подсказка: Меню File — Exit или ALT+X.
1. За простое воспроизведение (набор программы) без проверки оценка «3»
2. За проверку работы программы на примерах, представленных учителем оценка «4»
3. За решение всех заданий и дополнительное изменение программы для случая D=0, оценка «5»
Подсказка: Меню 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://urok.1sept.ru/%D1%81%D1%82%D0%B0%D1%82%D1%8C%D0%B8/592261/
Решение квадратного уравнение
Решение квадратного уравнения
составить программу решения квадратного уравнения вида ax2+bx+c=0 a неравно 0..
Решение квадратного уравнения
Ребята не правильно считает почему то (только начал изучать) program cat; uses crt; var a, b, c.
Решение квадратного уравнения
Я только пытаюсь понять суть программирования, написал прогу для решения Дискриминанта, все.
Решение квадратного неравенства
Всем привет.Нужно написать программу решения неравенства ax2+bx+c>=0 с условным. Вот что.
почитайте про блоки begin . end
Ev[G]eN, вашей программы не понял вообще
Добавлено через 2 минуты
iama, в Вашем случае когда программа все решает, то она на завершается, как это исправить?
Не все понял, надо в предпоследней строке убрать readln
Добавлено через 11 минут
Я скомпилировал, но почему то, у меня программа закрывается на выдовая результатов, я оставил readln
Добавлено через 14 минут
Все разобрался, просто в свойствах программы надо было убрать галочку с Закрывать окно после завершения программы во вкладке Программа
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Решение квадратного уравнения
Найти действительные корни квадратного уравнения вида ax2 + bx + c = 0, путем вычисления.
Найти решение квадратного уравнения ax^2+bx+c=0
5. Найти решение квадратного уравнения ax2+bx+c=0 для a=3.45, b=5.6, c=-4.5.
Решение СЛАУ методом квадратного корня
Очень нужен алгоритм для решения СЛАУ методом квадратного корня. Помогите кому не трудно)) .
Решение квадратного уравнения методом бисекции.
Подскажите с решением одной небольшой задачки,где я немного запутался. Нужно решить квадратное.
Источник статьи: http://www.cyberforum.ru/pascalabc/thread256144.html
Квадратное уравнение
Квадратное уравнение
Написать программу которая вычисляет корни квадратного уравнения. Коэффициенты вводит пользователь.
Квадратное уравнение
«Целая» проблема квадратного уравнения Входные данные В единственной строке задано через.
Квадратное уравнение
program ddd; var a,b,c,D,x1,x2:real; begin writeln(‘ўўҐ¤ЁвҐ a b б’); write(‘a=’); .
Квадратное уравнение с ветвлением
Спасайте ,совершенно не смыслю в паскале. Нужно написать программку с решением квадратного.
Так он вам не отбросит значения дискриминанта меньшего нуля и просто не извлечет корень
Добавлено через 20 минут
Или вот другой вариант построения программы, но тоже выдает ошибку :
Добрый вечер) Попробуй взять вещественный тип данных и в место div используй обычное деление «/«. И остаётся немного подкорректировать код, здесь ты на правильном пути. Ну а в остальном разберёшься сам наверное. =)
Ещё не все переменные integer, могут быть и дробные!
Хорошо, без обид 
В твоём случаи переменная d (дискриминант) у тебя объявлена как integer, а функция sqrt работает с типом real (вещественный) и объявляется так Function Sqrt (x:real): real; . Т.е. когда целое значение присваивается вещественной переменной, оно автоматически преобразуется в вещественный тип и никакие функции для этого не требуются (real := integer) Такое преобразование типов называется неявным. Обратного неявного преобразования нет: будет ошибкой пытаться присваивать переменной целого типа вещественный результат (integer := real). А чтобы использовать оператор div надо преобразовать переменную из real => integer, т.к. оператор div работает с переменными типа integer. Возможно ты имел ввиду так:
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Квадратное уравнение
1.1 Дано три действительных числа A, B и C (A <> 0). Определить, имеет уравнения A * X2 + B * X +.
Квадратное уравнение
Знающие люди, составьте пожалуйста программу:
Квадратное уравнение
a*x*x*x+b*x*x+c*x+d=0 знайти цілі розвязки рівняння.
квадратное уравнение
Ребят помогите написать программу на паскале по вычесление квадратного уравнения. Мне задали, я все.
Источник статьи: http://www.cyberforum.ru/free-pascal/thread209270.html
Решение квадратного уравнения
Вроде материал изучила и ещё больше запуталась. это просто тупо решение или надо код составлять. SOS.
Ввести действительное число h. Определить, имеет ли уравнение ах2 + bх + с = 0 действительные корни, если
Если действительные корни существуют, то найти их и вывести на экран. В противном случае, ответом должно служить сообщение, что действительных корней нет.
решение квадратного уравнения
Ребят, помогите с составлением программы. Вновь слезно прошу! Добавлено через 28 минут S O.
Решение квадратного уравнения
Написал, но работает не совсем исправно, подправьте, пожалуйста, где есть ошибки. P.S Если k 18
Так зачем Вам квадратные уравнения какие-то нелепые?
ICE_LADY, не так всё страшно, квадратные уравнения не раз решались здесь, алгоритм хорошо известен, просто вместо a,b,c надо будет подставить их значения из вашего задания
Добавлено через 8 минут
Вот программа решения кв.уравнения, предложенная Puporev
В ней только вместо ввода a,b,c надо их вычислить по вашим формулам
Добавлено через 4 минуты
т.е я права. Program Kvadrat;
сказали вместо readln а вставить. я и вставила. было смешнее, когда мне объясняли что такое паскаль и с чем его едят. что такое код я даж не подозревала)))) тем более я блондинка.
Добавлено через 13 минут
ха. а эт не я писала. ))))))) а если ближе к телу. ну права я или вообще не в ту степь.
Ураааааа. что-то типо того я и предполагала. счаз попробую)))) и циферка на черном экране это и будет ответ или ещё другие всякие действия производить надо.
Добавлено через 37 минут
что за деень. не хочет txt в pas перетрансформироваться(((((
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Написать функцию, обеспечивающие решение квадратного уравнения
Написать функцию, обеспечивающие решение квадратного уравнения. Параметрами функции должны быть.
Вычислить корни квадратного уравнения
Сгенерировать три случайных числа a,b,c. Вычислить корни квадратного уравнения с такими.
Нахождение корней квадратного уравнения
реализовать в виде модуля набор подпрограмм для выполнения следующих операций с квадратными.
Вычисление корней квадратного уравнения
Допустим я хочу написать функцию для вычисления корней квадратного уравнения. Она будет примерно.
Источник статьи: http://www.cyberforum.ru/pascal/thread119502.html
Квадратное уравнение
Квадратное уравнение
program ddd; var a,b,c,D,x1,x2:real; begin writeln(‘ўўҐ¤ЁвҐ a b б’); write(‘a=’); .
Квадратное уравнение
Вот недавно начал изучать Паскаль и написал квадратное уравнение ниже код, только вот паскаль не.
Квадратное уравнение
«Целая» проблема квадратного уравнения Входные данные В единственной строке задано через.
Квадратное уравнение с ветвлением
Спасайте ,совершенно не смыслю в паскале. Нужно написать программку с решением квадратного.
FedorBoom, советов вреднее, чем от тебя, на этом форуме еще никогда не было.
И, кстати, за регистром следи. Тут глухих (равно как и слепых) нет, а вот Правила (3.4. например) ты уже нарушил.
Я не очень понял это вы к чему?
Добавлено через 23 секунды
Вы не знаете что такое функции или просто не знаете куда влепить?
function quad (a,b,c: real) : real;
*begin
* quad:= sqr(b)-4*a*c;
*end;
var x1, x2, a, b, c, d: real;
*begin
* write(‘Введите коэфициент А —>’);
* readln(a);
* write(‘Введите коэфициент В —>’);
* readln(b);
* write(‘Введите коэфициент С —>’);
* readln(c);
* if quad(a,b,c) > 0 then begin
* * x1:= (-b+sqrt(quad(a,b,c)))/2*a;
* * x2:= (-b-sqrt(quad(a,b,c)))/2*a;
* * writeln(‘x1 = ‘,x1:5:1,’ x2 = ‘,x2:5:1);
* *end;
* if quad(a,b,c) = 0 then begin
* * x1:= (-b)/2*a;
* * writeln(‘x = ‘,x1:5:1);
* *end;
* if quad(a,b,c) 0
emilija, на вкладке Edit есть строка, называется PasteFromWindows. С ее помощью можно вставить в Паскаль что-то из других окошек.
Добавлено через 1 минуту
Так же надо и копировать в Windows, в той же вкладке. Потому что для винды и самого Паскаля есть два разных буфера обмена.
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Квадратное уравнение
Решаю задачу на acmp. И не получается решить простую задачу про квадратное уравнение, написал.
Квадратное уравнение
Написать программу вычисления корней квадратного уравне-ния по введенным с клавиатуры трем.
Квадратное уравнение
1.1 Дано три действительных числа A, B и C (A <> 0). Определить, имеет уравнения A * X2 + B * X +.
Квадратное уравнение
Решить уравнение A*X*X+B*X+C=0 (A,B,C — заданные коэффициенты) в области действительных чисел (без.
Квадратное уравнение
Определить имеет ли действительные корни уравнение ax 2+ bx + c = 0 . Если имеет, то значение a.
Квадратное уравнение
Определить имеет ли действительные корни уравнение ax 2+ bx + c = 0 . Если имеет, то значение a.
Источник статьи: http://www.cyberforum.ru/free-pascal/thread1103146.html