Предмет: Информатика,
автор: Eoy
Решить задачи:
а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров.
б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: zaksylyknazerke17
Предмет: Математика,
автор: kotandpyosgjff
Предмет: Алгебра,
автор: phendaraman
Предмет: Химия,
автор: Dashka1197
Предмет: Химия,
автор: Байс97