Изучаем язык BASIC. Занятие 30. Оператор CASE.

Занятие 30

Оператор CASE

Выполняет один из нескольких блоков операторов в зависимости от значения выражения.

SELECT CASE тест-выражение

CASE список выражений 1

             [блок операторов 1]

CASE список выражений 2

             [блок операторов 2]

[CASE ELSE

             [блок операторов]]

END SELECT

Тест-выражение  - любое числовое или строковое выражение

Список выражений – одно или несколько выражений для сравнения с тест-выражением. В выражении ключевое слово IS должно стоять перед любым знаком отношения.

Блок операторов – один или несколько операторов в одной или нескольких строках.

Аргументы списка выражений могут принимать любую из следующих форм или комбинацию и должны разделяться запятыми:

Выражение[, выражение]

Выражение ТО выражение

IS знак отношения выражение

                  Выражение – любое числовое или строковое выражение, совместимое с тест-выражением

                   Знак отношения – один из следующих знаков отношения: <, <=, >, >=, <> или =.

Пример:

INPUT “Введите уровень риска (1-5): “; Total

SELECT CASE Total

CASE IS >= 5

PRINT «Максимальный риск, шансов на возвращение нет»

PRINT»Сходите в нотариальную контору»

CASE 2 TO 4

PRINT «Высокий риск, шансов на возвращение не много»

PRINT»Проверьте снаряжение и припасы»

CASE 1

PRINT»Риск отсутствует, возврат гарантирован.»

PRINT»В вас отсутствует дух авантюризма»

 END SELECT

1. Составить программу, которая должна определять день недели для произвольного дня месяца. В ней считается, что первое число данного месяца — понедельник.

CLS

INPUT d

Select case w = d mod 7

Case 1  

 PRINT "понедельник"

Case 2   

PRINT "вторник"

Case 3   

PRINT "среда"

Case 4   

PRINT "четверг"

Case 5  

 PRINT "пятница"

Case 6  

 PRINT "суббота"

Case 0  

 PRINT "воскресенье"

END select

2. Напишите программу, которая будет решать ту же задачу при условии, что w₁ — день недели для первого числа месяца. Значение w₁ (целое число от 1 до 7) должно запрашиваться программой. Интересующее нас число месяца d (от 1 до 31) также должно запрашиваться. Предполагается, что ввод данных будет корректным.

CLS

INPUT w,d

Select case (d +w-1) mod 7

Case 1

   PRINT "понедельник"

Case 2

   PRINT "вторник"

Case 3

   PRINT "среда"

Case 4

   PRINT "четверг"

Case 5

   PRINT "пятница"

Case 6

   PRINT "суббота"

Case 0

   PRINT "воскресенье"

END select

Контрольная работа.