Добрый день. Сегодня я хочу поделиться программой, написанной на языке программирования Паскаль, а именно исходник программы, которая находит корни квадратного уравнения.
Итак, задача звучит следующим образом:
"Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов".
Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет.
Исходный код программы нахождения корней:
Скачать исходник: koren2.pas
var a:real;
var b:real;
var c:real;
var d:real;
var x:real;
var x1:real;
var x2:real;
writeln(‘program that is count of the discriminant’);
writeln (‘enter of a var ‘);
readln (a);
writeln (‘enter of b var ‘);
readln (b);
writeln (‘enter of c var ‘);
readln (c);
write (‘discriminant equal = ‘);
d:= b*b — 4 * a * c;
writeln (d);
x:= -b / 2 * a;
x1:= (-b — sqrt(d)) / (2 * a);
x2:= (-b + sqrt(d)) / (2 * a);
Уравнение вида a⋅x 2 + b⋅x + c = 0 — квадратное уравнение.
a, b, c — действительные числа, a ≠ 0.
Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.
- если D 0, то уравнение имеет два действительных корня:
- x1 = (-b + √D) / (2⋅a);
- x2 = (-b + √D) / (2⋅a).
Программа для решения квадратного уравнения на языке программирования Паскаль
Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.
Загрузка...
