Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка_Бейсик_2007 (Попов).doc
Скачиваний:
2
Добавлен:
25.11.2018
Размер:
664.06 Кб
Скачать

Input a,b,c

IF a+b>=c AND b>a THEN ? “Верно” ELSE ? “Неверно”

Другой пример. Для А,В,С выяснить, правда ли что первое число самое большое, а последнее – самое маленькое.

IF a>b AND a>c AND c<a AND c<b THEN ? “Верно” ELSE ? “Неверно”

Еще. Верно ли, что среди чисел имеется ровно одна единица?

IF (a=1 AND b<>1 AND c<>1) OR (a<>1 AND b=1 AND c<>1)

OR (a<>1 AND b<>1 AND c=1) THEN ? “Верно” ELSE ? “Неверно”

Здесь скобки введены лишь для наглядности, поскольку операция AND все равно выполняется прежде операции OR.

Пример. Написать программу, которая для любого года G определяет високосный он или нет (ответ ДА/НЕТ). Подсказка: признаком високосно­го года является кратность года числу 4. Исключением являются года с двумя нулями на конце, число сотен в которых не кратно 4 (например, 1800, 1900, 2100). Кратность чисел можно определять с помощью функции FIX или операции MOD.

Input g

IF (g MOD 4=0) AND NOT((g MOD 100=0) AND (g/100 MOD 4<>0) ) THEN ? “Да” ELSE ? “Нет

Разъясним цепочку анализа. Год должен быть кратным четырем (g MOD 4=0), кроме случая (AND NOT), когда год имеет два нуля в конце (g MOD 100=0) и число сотен, в котором не кратно четырем AND (g/100 MOD 4<>0).

 Задачи для самостоятельного решения. Напишите программу, выясняющую следующие факторы:

1). Даны три произвольных числа А, В, С. Выяснить правда ли что числа расположены в порядке возрастания их значений? Ответы должны быть даны словами: Да/Нет.

2). Даны А, В, С. Выяснить правда ли что среди чисел имеются отрицательные (хотя бы одно)? Ответы – Да/Нет.

3). Выяснить правда ли что среди чисел А, В, С имеются одинаковые? Ответы – Да/Нет.

4). Найти наибольшее из чисел А, В, С. Здесь удобно использовать три оператора IF, каждый из которых проверяет на максимум одно из чисел. Если данное число оказалось самым большим, следует его напечатать и сразу прекратить вычисления оператором END включенным внутрь структуры IF.

5). Вывести число, занимающее промежуточное положение между самым большим и самым маленьким из чисел А,В,С.

6). На плоскости нарисован прямоугольник. Напишите программу, которая для точки с произвольными координатами Х и Y определяет факт ее попадания внутрь прямоугольника. Ответ – Да/Нет. Положение квадрата указано на рисунке. Кроме того, вычислить площадь прямоугольника S.

7). Для той же фигуры определить факт ее попадания точки в область  или  или вне квадрата. Ответ должен быть дан в виде цифр 1, 2 или фразы «Вне квадрата».

8). На плоскости проведена прямая. Определить в какую из областей , , ,  попала наша точка.

9). На плоскости проведены две прямых линии. Определить, попала ли точка внутрь заштрихованной области. Ответ дать в форме Да/Нет.

10). Положим, автомобиль был взят на прокат с датой G1, M1, H1, Min1 (год, месяц, день, час, минуты), а был возвращен в G2, M2, H2, Min2. Вычислить сколько времени использовался автомобиль T (в часах и минутах), а также, сколько должен заплатить клиент за использование автомобиля при часовом тарифе 100 руб/час. Длительность всех месяцев считать равной 30 дням.

11). Те же условия, но длительность каждого месяца брать фактической (с учетом високосности года). Считать также, что событие может происходить в период (2006-2009гг).

12). То же, но до 2050 года.