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

Содержание

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

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

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

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

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

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

Задача

Написать процедуру, вычисляющую корни квадратного уравнения

Решение

Представленная ниже программа с процедурой вычисления корней квадратного уравнения не возвращает в основную программу ничего (просто выводит результат на экран). Однако можно написать такую процедуру, которая будет использовать глобальные переменные x1 и x2. В результате в основной ветке программы можно будет использовать полученные корни квадратного уравнения.

BEGIN
write(‘Введите значение коэффициента а, 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);
writeln(‘x2=’,x2);
end;
readln
End.

Читайте также  Программа красивые буквы для оформления
Ссылка на основную публикацию
Adblock
detector