Вопрос по информатике:
Решить задачи:
а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров.
б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.
- 15.10.2017 22:52
- Информатика
- remove_red_eye 5149
- thumb_up 25
Ответы и объяснения 1
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.
- 16.10.2017 11:43
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.