Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 44 стр.

UptoLike

Аналогично для Else стоят операторные скобки:
Begin {3}
…………
End; {3}
Приведем еще две задачи, демонстрирующие некоторые способы ис-
пользования оператора IF.
Задача 4
Получить максимальное число из трех целых чисел.
Составим блок-схему решения задачи (рис. 12).
max : = X
max : = Y
max < Z
max : = Z
Рис. 12. Выбор максимального числа из трех
Program Lab3_4;{Максимальное число из трех целых чисел}
Var X, Y, Z: integer;
max: integer;
44
   Аналогично для Else стоят операторные скобки:
   Begin {3}
   …………
   End; {3}

    Приведем еще две задачи, демонстрирующие некоторые способы ис-
пользования оператора IF.

   Задача 4
   Получить максимальное число из трех целых чисел.
   Составим блок-схему решения задачи (рис. 12).




                                            max : = X

                       max : = Y




                       max < Z



                                             max : = Z




                 Рис. 12. Выбор максимального числа из трех

   Program Lab3_4;{Максимальное число из трех целых чисел}
       Var X, Y, Z: integer;
           max: integer;

                                    44