Question

МОДЕРАТОРЫ И АДМИНИСТРАТОРЫ ПОМОГИТЕ! ЧЕРЕЗ 20 мин сдавать на оценку!!
Вещественные числа х, у, z являются исходными данными для следующего алгоритма: 1) переменной m присвоить значение х; 2) сравнить значения m и у: если у больше m, переменной m присвоить значение у; 3) сравнить значения m и z: если z больше m, переменной m присвоить значение z.
Выясните, какую решает этот алгоритм. запишите его на языке программирования pascal. решите аналогичную для чисел х, у, z и w.

Answer 1

Это алгоритм поиска максимального значения

begin

 var (x, y, z) := ReadReal3('Введите x, y, z:');

 var m := x;

 if y > m then

   m := y;

 if z > m then

   m := z;

 Println('Максимальное значение равно', m)

end.

Для четырех переменных:

begin

 var x, y, z, w: real;

 Print('Введите x, y, z, w:');

 Read(x, y, z, w);

 var m := x;

 if y > m then

   m := y;

 if z > m then

   m := z;

 if w > m then

   m := w;  

 Println('Максимальное значение равно', m)

end.

===== PascalABC.NET =====