Как найти квадратный корень уравнения по информатике

Программирование на Паскале. Тема: «Решение квадратного уравнения с использованием конструкции IF–THEN–ELSE»

Цели урока:

Оборудование:

До сих пор мы с вами говорили о каких-то отвлечённых задачах из области математики. Сегодня мы поговорим о конкретной задаче, которая встречается у вас почти на каждом уроке. Это решение квадратного уравнения. Я хочу, чтобы вы на примере этой задачи поняли, что программирование — это не просто прихоть учителя, это действительно раздел информатики, который может нам помочь, например, в решении конкретных математических задач. Нужно только уметь разбираться в этом.

2. Математическое решение

Давайте вспомним, что понимают под квадратным уравнением?

Что из себя представляют числа a,b,c и как их называют?

С чего начинают решение квадратного уравнения?

Найдите вокруг себя формулу дискриминанта. (D=b 2 -4ac) (Приложение 3)

Как мы решаем далее квадратное уравнение? (сравнение D с нулём)

Какие выводы мы из этого делаем?

(если D 0, то два корня)

Как найти корни квадратного уравнения? Найдите формулы корней среди тех, что развешены повсюду.

Если я случай наличия корней квадратного уравнения сведу к условию D0, то что я получу в случае 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.

Можно дать дополнительное задание:

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

1) Напишите программу проверки пароля. Пусть пароль — некоторое число, зафиксированное в программе. Программа печатает приглашение «введите пароль» и вводит число. Если введённое число совпадает с фиксированным паролем, то программа выводит приветствие, если нет — сообщает о том, что пароль не угадан.

7. Подведение итогов урока.

Итак, ребята, сегодня мы с вами решали конкретные задачи из математики, применяя свои умения по программированию. Вы получили следующие оценки за свои знания. (Перечисление оценок) На следующем уроке нам предстоит познакомиться с новыми алгоритмами — Циклическими.

На сегодня наш урок закончен. До свидания.

Литература:

Решить квадратное уравнение

Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a , b , c , которые вводит пользователь.

Квадратное уравнение имеет вид ax 2 + bx + c = 0 . Коэффициенты a , b и c — это конкретные числа, а x надо найти, решив уравнение.

1. Вычислить дискриминант по формуле d = b 2 — 4ac .
2. Если дискриминант больше нуля, то вычислить два корня уравнения:
   x₁ = (-b+√d) / 2a
   x₂ = (-b-√d) / 2a
3. Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
4. Если дискриминант отрицателен, то вывести сообщение, что корней нет.

Pascal

квадратное уравнение паскаль

Язык Си

Ключ -lm при компиляции gcc.

Python

КуМир

Basic-256

• Total 0
• 0
• 0
• 0
• 0

квадратное уравнение паскаль

var
a,b,c,d,x1,x2: real;
begin
write(‘a=’); readln(a);
write(‘b=’); readln(b);
write(‘c=’); readln(c);
d := b*b — 4*a*c;
if d > 0 then begin
x1 := (-b + sqrt(d)) / (2*a);
x2 := (-b — sqrt(d)) / (2*a);
writeln(‘x1=’,x1:3:2,’; x2=’,x2:3:2);
end
else
if d = 0 then begin
x1 := (-b) / (2*a);
writeln(‘x=’,x1:5:2);
end
else
writeln(‘Корней нет’);
end.

main() <
float a,b,c,d,x1,x2;
printf(«a=»); scanf(«%f»,&a);
printf(«b=»); scanf(«%f»,&b);
printf(«c=»); scanf(«%f»,&c);
d = b*b — 4*a*c;
if (d>0) <
x1 = (-b + sqrt(d)) / (2*a);
x2 = (-b — sqrt(d)) / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else
if (d = 0) <
x1 = -b / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else printf(«Корней нет.»);
printf(«n»);
>

Ключ -lm при компиляции gcc.

python квадратное уравнение

print(«Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):»)
a = float(input(«a = «))
b = float(input(«b = «))
c = float(input(«c = «))

discr = b**2 — 4 * a * c;
print(«Дискриминант D = %.2f» % discr)
if discr > 0:
import math
x1 = (-b + math.sqrt(discr)) / (2 * a)
x2 = (-b — math.sqrt(discr)) / (2 * a)
print(«x1 = %.2f nx2 = %.2f» % (x1, x2))
elif discr == 0:
x = -b / (2 * a)
print(«x = %.2f» % x)
else:
print(«Корней нет»)

input «a = «, a
input «b = «, b
input «c = «, c
d = b^2 — 4*a*c

if d > 0 then
x1 = (-b + sqrt(d)) / (2*a)
x2 = (-b — sqrt(d)) / (2*a)
print «x1 = » + x1 + «, x2 = » + x2
else
if d = 0 then
x = -b / (2*a)
print «x = » + x
else
print «Корней нет»
endif
endif

Команда decimal указывает сколько знаков после запятой следует выводить.

Программа для решения квадратных уравнений на C++

Довольно часто в пособиях по программированию встречаются задания по нахождению решений каких-нибудь математических уравнений. Задача нахождения корней квадратного уравнения — это довольно тривиальная задача, как и многие другие задачи. Решается она очень просто при помощи листа бумаги и ручки, но решение можно автоматизировать посредством написания прикладной программы и её использования. В этой статье мы напишем такую программу.

Алгоритм решения квадратного уравнения

Многие знают, что уравнение вида ax 2 + bx + c = 0 , где a не равно 0, называют квадратным уравнением.

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

Обозначается дискриминант буквой D . Из школьного курса знаем, что D = b 2 — 4ac .

Существует несколько условий:

• Если D > 0, то решение имеет 2 различных вещественных корня.
• Если D = 0, то оба вещественных корня равны.
• Если D для вводавывода в консоли, #include для работы с математическими функциями и область using namespace std;
  

Перейти к содержанию

var

    a,b,c,d,x1,x2: real;

begin

    write('a='); readln(a);

    write('b='); readln(b);

    write('c='); readln(c);

    d := b*b - 4*a*c;

    if d > 0 then begin

        x1 := (-b + sqrt(d)) / (2*a);

        x2 := (-b - sqrt(d)) / (2*a);

        writeln('x1=',x1:3:2,'; x2=',x2:3:2);

    end

    else

        if d = 0 then begin

            x1 := (-b) / (2*a);

            writeln('x=',x1:5:2);

        end

        else

            writeln('Корней нет');

end.

a=7

b=1

c=-6

x1=0.86; x2=-1.00

#include < stdio.h>

#include < math.h>

 
main() {

    float a,b,c,d,x1,x2;

    printf("a="); scanf("%f",&a);

    printf("b="); scanf("%f",&b);

    printf("c="); scanf("%f",&c);

    d = b*b - 4*a*c;

    if (d>0) {

        x1 = (-b + sqrt(d)) / (2*a);

        x2 = (-b - sqrt(d)) / (2*a);

        printf("x1=%.2f; x2=%.2f", x1, x2);

    }

    else

        if (d = 0) {

            x1 = -b / (2*a);

            printf("x1=%.2f; x2=%.2f", x1, x2);

        }

        else printf("Корней нет.");

    printf("n");

}

a=-20

b=8

c=1.5

x1=-0.14; x2=0.54

print("Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):")

a = float(input("a = "))

b = float(input("b = "))

c = float(input("c = "))

 
discr = b**2 - 4 * a * c;

print("Дискриминант D = %.2f" % discr)

if discr > 0:

	import math

	x1 = (-b + math.sqrt(discr)) / (2 * a)

	x2 = (-b - math.sqrt(discr)) / (2 * a)

	print("x1 = %.2f nx2 = %.2f" % (x1, x2))

elif discr == 0:

	x = -b / (2 * a)

	print("x = %.2f" % x)

else:

	print("Корней нет")

алг квадратное уравнение

нач

  вещ a, b, c, D, x1, x2

  ввод a

  ввод b

  ввод c

  D := b**2 - 4*a*c

  вывод "D = ", D, нс

  если D > 0 то

    x1 := (-b + sqrt(D)) / (2 * a)

    x2 := (-b - sqrt(D)) / (2 * a)

    вывод "x1 = ", x1, нс

    вывод "x2 = ", x2, нс

   иначе

    если D = 0 то

      x1 := -b / (2 * a)

      вывод "x = ", x1, нс

     иначе

      вывод "корней нет", нс

    все

  все

кон

input "a = ", a

input "b = ", b

input "c = ", c

d = b^2 - 4*a*c

 
decimal 3

 
if d > 0 then

	x1 = (-b + sqrt(d)) / (2*a)

	x2 = (-b - sqrt(d)) / (2*a)

	print "x1 = " + x1 + ", x2 = " + x2

else

	if d = 0 then

		x = -b  / (2*a)

		print "x = " + x

	else 

		print "Корней нет"

	endif

endif

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

Итак, задача звучит следующим образом:

«Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов«.

Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет. 

Исходный код программы нахождения корней:

var a,b,c: real;

    x1,x2,D: real;

begin

  readln(a,b,c);

  D := b*b - 4*a*c;

  if D<0 then

    writeln('Корней нет')

  else if D=0 then begin

    x1 := -b/2/a;

    writeln('x1=x2=',x1);

  end

  else begin

    x1 := (-b-sqrt(D))/2/a;

    x2 := (-b+sqrt(D))/2/a;

    writeln('x1=',x1,' x2=',x2);

  end;

end.

Скачать исходник: koren2.pas

В последнее время я перешел на linux, совсем забыв про windows 8. В связи с переездом с одной системы на другую, я как-то потерял этот исходник и не выкладовал его с 2012 года! Теперь я загрузил старый компьютер с windows и нашел на рабочем столе этот исходник. Кстати, если Вас интресуют  Темы для Windows 8.1, то посетите сайт 7themes.su.

Дата: 2014-06-11 17:48:56   Просмотров: 115618

Теги: Исходник исходники Паскаль Pascal скачать

Quadratic Equation is polynomial equations that have a degree of two, which implies that the highest power of the function is two. The general form of the quadratic equation is ax² + bx + c, so in this article, we will find out the roots of the quadratic equation. 

What is Quadratic Equation

Quadratic Equation is polynomial equations that have a degree of two, which implies that the highest power of the function is two. The quadratic equation is represented by ax² + bx + c, Where a, b, c are real numbers and constants and a ≠ 0. The root of the quadratic equations is a value of x that satisfies the equation. 

How to Find Roots of Quadratic Equations 

The nature of the roots is different and it depends upon the discriminant value.

Discriminant(D) = b2 -4ac

1. D > 0, Roots are real and different

2. D = 0, Roots are real and the same

3. D < 0, Roots are complex 

Examples :

 Input  :  a = 1, b = -2, c = 1

 Output :  1,  Roots are real and same

Explanation :  D = b² – 4ac = (-2)² -4(1)(1) = 0, which is equal to 0
                 

 Input  :  a = 1, b = 7, c = 12

Output :  -3, -4,  Roots are real and different

Explanation :  D = b² – 4ac = (7)² -4(1)(12) = 1, which is greater then 0
                 

Input  :  a = 1, b = 1, c = 1
Output :  Roots are complex 
                  -0.5 + i1.73205
                 -0.5 – i1.73205  

Explanation :  D = b² – 4ac = (1)² -4(1)(1) = -3, which is less then 0

C Program for Quadratic Equation roots

Roots are real and different 
4.000000
3.000000

Time Complexity: O(log(D)), where D is the discriminant of the given quadratic equation.
Auxiliary Space: O(1)

Last Updated :
27 Mar, 2023

Like Article

Save Article

• Повторить с учащимися правила решения
  квадратных уравнений
• Вспомнить алгоритмическую конструкцию IF-THEN-ELSE
• Составить блок-схему программы и саму программу
  на языке Pascal
• Проверить работоспособность программы на
  конкретных примерах
• Расширить представления учащихся о применении
  языка Pascal
• Воспитать у учащихся чувство аккуратности,
  внимательности, ответственности
• Научить учащихся самостоятельно находить свои
  ошибки в программах

• Таблички с формулами
• Плакат с блок-схемой алгоритма КВУР
• Листочки с индивидуальными заданиями
• Система программирования «Turbo Pascal 7.0»

1. Введение.

До сих пор мы с вами говорили о каких-то
отвлечённых задачах из области математики.
Сегодня мы поговорим о конкретной задаче,
которая встречается у вас почти на каждом уроке.
Это решение квадратного уравнения. Я хочу, чтобы
вы на примере этой задачи поняли, что
программирование — это не просто прихоть
учителя, это действительно раздел информатики,
который может нам помочь, например, в решении
конкретных математических задач. Нужно только
уметь разбираться в этом.

2. Математическое решение

Давайте вспомним, что понимают под квадратным
уравнением?

Вопросы:

Что из себя представляют числа a,b,c и как их
называют?

С чего начинают решение квадратного уравнения?

Найдите вокруг себя формулу дискриминанта. (D=b²-4ac)
(Приложение 3)

Как мы решаем далее квадратное уравнение?
(сравнение D с нулём)

Какие выводы мы из этого делаем?

(если D <0, то нет корней, если D=0, то один корень,
если D>0, то два корня)

Как найти корни квадратного уравнения? Найдите
формулы корней среди тех, что развешены повсюду.

Если я случай наличия корней квадратного
уравнения сведу к условию D0, то что я получу в случае D=0?

(Два одинаковых корня)

Давайте ещё раз подробно разберём нашу задачу:

Итак, у нас есть квадратное уравнение ax²+bx+c=0.

Мы должны решить его, т.е. найти такие значения
х, при которых правая часть уравнения =0. Мы знаем,
что для этого нам надо:

Найти дискриминант D=b² — 4ac.

Сравнить его с нулём

Если D<0 , то «корней нет» иначе два корня х1 и
х2.

Х1 = , Х2=

Пример: (вызываем ученика)

3х²-10х+3=0

D=b²-4ac=10²-4*3*3=100 — 36 =64

D>0, два корня

Х1=,

X2 =

3. Составление блок-схемы алгоритма.

По заданному решению попробуем составить
блок-схему алгоритма в тетради. Кто справится
первым, прошу к доске.

Подпишем основные элементы блок — схемы
применительно к языку программирования.

4. Составление программы по блок — схеме.

Теперь, пользуясь нашими записями, составим
программу и покажем её учителю. Тот, кто до конца
урока составит только программу, не проверив её
на компьютере, получит три, тот, кто наберёт
программу на компьютере, но не проверит её на
примерах, получит три. Тот, кто выполнит всё
задание, получит пять.

А я раздам вам домашнее задание.

Ответ:

Program kwur;

Uses CRT;

Var a,b,c,d,x1,x1: real;

Begin

Clrscr;

Write(‘введите коэффициенты уравнения a,b,c’);
readln(a,b,c);

D:=b*b-4*a*c;

If d>=0 then

Begin

X1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);

Writeln(‘x1=’,x1′ x2=’,x2)

END;

Else writeln(‘действительных корней нет’)

End.

5. Практическая работа (Приложение
1).

1. Составить и набрать программу КВУР на
компьютере.

Подсказка:

Загрузка среды Pascal- 2ЩЛКМ по значку Pascal, нажать
ALT+ENTER.

Запуск программы — ЩЛКМ по кнопке RUN выбрать RUN.

2. Решить следующие квадратные уравнения и
показать учителю их решения (если нет такой
возможности, то занести их в маршрутный лист (Приложение 4)

3х² -10х +1=0

0,5х²+2х — 4=0

4х² + х — 6=0

2х² + 3х +8=0

х² +4 =0

5х² -8х = 0

1,5х²-0,6х — 4,8 = 0

-2х²+4х — 8 = 0

9х²+4х -7 = 0

0,1х²— 9 = 0

3. Переделайте программу КВУР таким образом,
чтобы в ней учитывался случай, когда D=0 и
уравнение имеет один корень.

4. Закрыть программу.

Подсказка: Меню File — Exit или ALT+X.

Оценивание:

1. За простое воспроизведение (набор программы)
без проверки оценка «3»

2. За проверку работы программы на примерах,
представленных учителем оценка «4»

3. За решение всех заданий и дополнительное
изменение программы для случая D=0, оценка «5»

4. Закрыть программу.

Подсказка: Меню File — Exit или ALT+X.

Ответы:

Можно дать дополнительное задание:

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

6. Домашнее задание: (Приложение 2)

1) Напишите программу проверки пароля. Пусть
пароль — некоторое число, зафиксированное в
программе. Программа печатает приглашение
«введите пароль» и вводит число. Если введённое
число совпадает с фиксированным паролем, то
программа выводит приветствие, если нет —
сообщает о том, что пароль не угадан.

7. Подведение итогов урока.

Итак, ребята, сегодня мы с вами решали
конкретные задачи из математики, применяя свои
умения по программированию. Вы получили
следующие оценки за свои знания. (Перечисление
оценок) На следующем уроке нам предстоит
познакомиться с новыми алгоритмами —
Циклическими.

На сегодня наш урок закончен. До свидания.

1. И. Семакин, Л. Залогова «Информатика. Базовый
   курс. 9 класс», М., БИНОМ, 2005г.
2. А.А. Чернов «Конспекты уроков информатики в 9-11
   классах», Волгоград: Учитель, 2006г.
3. Л.И. Белоусова, С.А. Веприк «Сборник задач по
   курсу информатики», М., «Экзамен», 2007.