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

     2. Написать программу, которая проверяет знание даты основания Мо-
сквы. В случае неверного ответа программа должна выводить правильный от-
вет: «Вы ошиблись, Москва была основана в 1147 году».

     3. Заданы площади круга R и квадрата S. Определить, поместится ли
круг в квадрате. Задачу решить при следующих значениях: 1) R = 3,2, S = 3,5;
2) R = 3,2, S = 4; 3) R = 6, S = 9.

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

    2. Меньшее из двух значений переменных вещественного типа X, Y за-
менить на X2 + Y2. В случае их равенства заменить оба нулями.

     3. Составить программу для определения наибольшей площади фи-
гур. Одна фигура является квадратом (площадь S1), а другая – кругом
(площадь S2). Квадрат задан длиной стороны, а круг – радиусом. Результат
вывести в виде ПЛОЩАДЬ КРУГА = … или ПЛОЩАДЬ КВАДРАТА = ...

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

    2. Две точки задаются своими координатами. Определить, какая из них
находится дальше от начала координат.

    3. Ввести действительное число Х, значение которого лежит в двух
интервалах, и вычислить значение Y:
                         ⎧sin( x − 20, если − 2 < x < 4
                      Y =⎨ 2
                         ⎩3 x + 6 x + 2, если x ≥ 4

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

     2. Ввести два целых числа: X и Y. Вычислить выражение Y = sin x2 +
+ cos x2, если число X меньше либо равно 3, иначе вычислить остаток от де-
ления X на 3.

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


                                     50