Как составить программу в паскале для решения квадратного уравнения

Уравнение вида a⋅x² + b⋅x + c = 0 — квадратное уравнение.

a, b, c — действительные числа, a ≠ 0.

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

D = b² — 4⋅a⋅c;

• если D < 0, то квадратное уравнение не имеет корней;
• если D = 0, то уравнение имеет один действительный корень(иногда говорят, что корней два, но они одинаковые):
  • x₁ = x₂ = -b / (2⋅a);
• если D > 0, то уравнение имеет два действительных корня:
  • x₁ = (-b + √D) / (2⋅a);
  • x₂ = (-b + √D) / (2⋅a).

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

{$CODEPAGE UTF8}
program QuadraticEquation;
var
  a, b, c, x1, x2, discriminant : real;
begin
  {ввыод данных}
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  
  {дискриминант}
  discriminant := sqr(b) - 4 * a * c;  

  if discriminant < 0 then
    writeln('Квадратное уравнение не имеет корней')
  else
    begin
      if discriminant = 0 then
        begin
          {квадратное уравнение имеет два одинаковых корня}
          x1 := -b / (2 * a);
          x2 := x1;
        end
       else
         begin
           {уравнение имеет два разных корня}
           x1 := (-b + sqrt(discriminant)) / (2 * a);
           x2 := (-b - sqrt(discriminant)) / (2 * a);
         end;
       
       {вывод корней уравнения}
       writeln('x1 = ', x1:8:3);
       writeln('x2 = ', x2:8:3);
     end;
  writeln('Press Enter to Exit...');
  readln;
end.

Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.

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

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. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет.

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

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

Как составить программу для нахождения корней квадратного уравнения в паскале

Введение.

Здравствуйте. На этот раз я хотел бы предложить вам исходник программы на языке PascalABC, которая решает квадратное уравнение, строя его на считанных с клавиатуры коэффициентов.

Задача.

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

Программирование на Паскале. Тема: «Решение квадратного уравнения с использованием конструкции 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. Подведение итогов урока.

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

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

Литература: