Решить задачи: а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров. б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процеду...
Решить задачи:
а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров.
б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.
Гость
Ответ(ы) на вопрос:
Гостьprogram QuadraticEquation;
var a, b, c, d, x1, x2: real;
begin
writeln ('Введите коэффициенты');
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('Нет реальных решений');
end
end.
Не нашли ответ?
Похожие вопросы