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

             Then WriteLn ('Правильно')
             Else
              begin
                  WriteLn ('Вы ошиблись');
                  WriteLn ('Архитектор Исаакиевского собора –');
                  WriteLn ('Огюст Монферран');
              end;
           ReadLn;
    End.

    Пояснения к задаче 5
    Номер ответа otv представлен в разделе описаний как целочисленная пе-
ременная Integer. Пользователем был выбран, например, ответ 3. Ответ не-
верный, поэтому выбирается альтернативная ветка Else и сообщается пра-
вильный ответ: архитектор Исаакиевского собора – Огюст Монферран.

    3. Практическое задание – решение задач с условием
    Организовать ввод данных и решение задач с использованием оператора
ветвления IF, снабдив распечатки соответствующими заголовками.


                          Методические указания

    1. Составить блок-схему программы, после чего приступить к написа-
нию программы в ИСП.
    2. Желательно сделать форматированный вывод результата вычислений.

    Вариант 1
    1. Проверить, делится ли введенное число на 5, 11, 13. Во всех трех
случаях при анализе использовать полную конструкцию оператора IF.

     2. Составить программу, которая вычисляет значение Z = X/Y, где Y =
= SinX + 0,5. В случае Y = 0 вывести на печать сообщение «Деление на 0».

    3. Определить, имеется ли среди чисел A, B, C хотя бы одно четное.

     Вариант 2
     1. Проверить, делится ли введенное число на 2, 3, 7. Во всех трех случа-
ях при анализе использовать полную конструкцию оператора IF.

     2. Даны два целых числа: А и С. Если число С отрицательное, вычис-
лить остаток от деления А на С. Если число С положительное, вывести на пе-
чать число, следующее за суммой А и С.


                                     46