Задание 6 Параграф 7 ГДЗ Босова 11 класс (Информатика)

Задача

1) переменной т присвоить значение х;
2) сравнить значения m и у: если у больше m, переменной m присвоить значение у;
3) сравнить значения m u z: если z больше m, переменной m присвоить значение z.
Выясните, какую задачу решает этот алгоритм. Запишите его на языке программирования Pascal. Решите аналогичную задачу для чисел х, у, z и w.
Представленный в задании алгоритм определяет максимальное число среди 3-х введенных переменных вещественного типа.
program Z_7_6_1;
var
x, y, z, m: real;
begin
writeln(‘введи 3 вещественные переменные через пробел’);
readln(x,y,z);
m := x;
if y > m then m := y;
if z > m then m := z;
Writeln(‘m=’, m)
end.
Программы: Z_7_6_1.pas, Z_7_6_2.pas (ссылка ниже)

Подробный ответ

Алгоритм сначала запоминает в переменной $$m$$ значение $$x$$, затем последовательно сравнивает его с $$y$$ и $$z$$. Если очередное число больше текущего значения $$m$$, то $$m$$ принимает это значение.

Значит, алгоритм находит наибольшее из трёх вещественных чисел $$x$$, $$y$$ и $$z$$.

Для четырёх чисел $$x$$, $$y$$, $$z$$ и $$w$$ нужно аналогично сравнить с текущим максимумом ещё и $$w$$.

program Z_7_6_1;
var
  x, y, z, m: real;
begin
  writeln(‘введи 3 вещественные переменные через пробел’);
  readln(x, y, z);
  m := x;
  if y > m then m := y;
  if z > m then m := z;
  writeln(‘m=’, m);
end.

program Z_7_6_2;
var
  x, y, z, w, m: real;
begin
  writeln(‘введи 4 вещественные переменные через пробел’);
  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);
end.