Решение задачи №6: Нахождение максимума из трех чисел

Задание №6 Анализ алгоритма: 1) Переменной \(m\) присваивается значение \(x\). Теперь \(m = x\). 2) Сравниваются \(m\) и \(y\). Если \(y > m\), то \(m\) обновляется и становится равным \(y\). Таким образом, в \(m\) теперь хранится большее из чисел \(x\) и \(y\). 3) Сравниваются \(m\) и \(z\). Если \(z > m\), то \(m\) обновляется и становится равным \(z\). Теперь в \(m\) хранится самое большое число из трех. Вывод: Данный алгоритм находит максимальное из трех вещественных чисел \(x, y, z\). Программа на языке Pascal: program FindMax; var x, y, z, m: real; begin writeln('Введите три числа x, y, z:'); readln(x, y, z); m := x; if y > m then m := y; if z > m then m := z; writeln('Максимальное значение m = ', m:0:2); end. Решение аналогичной задачи для четырех чисел x, y, z и w: Чтобы найти максимум среди четырех чисел, нужно добавить еще один шаг сравнения для переменной \(w\). Алгоритм: 1) \(m := x\); 2) Если \(y > m\), то \(m := y\); 3) Если \(z > m\), то \(m := z\); 4) Если \(w > m\), то \(m := w\). Программа на языке Pascal для четырех чисел: program FindMax4; var x, y, z, w, m: real; begin writeln('Введите четыре числа x, y, z, w:'); readln(x, y, z, w); m := x; if y > m then m := y; if z > m then m := z; if w > m then m := w; writeln('Максимальное значение m = ', m:0:2); end.