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

Введение.

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

Задача.

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

Код.

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.

Нет комментариев

Оставить комментарий