Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

   CASE Year MOD 12 OF

    0 : WriteLn('Год Обезьяны');

    1 : WriteLn('Год Петуха');

    2 : WriteLn('Год Собаки');

    3 : WriteLn('Год Свиньи');

    4 : WriteLn('Год Крысы');

    5 : WriteLn('Год Коровы');

    6 : WriteLn('Год Тигра');

    7 : WriteLn('Год Зайца');

    8 : WriteLn('Год Дракона');

    9 : WriteLn('Год Змеи');

   10 : WriteLn('Год Лошади');

   11 : WriteLn('Год Овцы')

  END;

END.

Задача 2. Найти наибольшее из двух действительных чисел, используя оператор выбора.

Program Maximum;

Var Max, X, Y : Real;

Begin

  Write('Введите два неравных числа:');

  ReadLn(X, Y);

  Case X > Y Of

  TRUE  : Max := X;

  FALSE : Max := Y

  End;

Рекомендуем скачать другие рефераты по теме: сочинения по литературе, реферат по математиці.



Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки