Иллюстрированный самоучитель по Basic, вводный курс

Разветвляющийся алгоритм. Условный переход.

Задача 111

1 Бегущий узор 1: PRINT "***" PRINT " °**
PRINT " *н
PRINT " *"
PRINT " *"
PRINT " °**"
PRINT "***"
GOTO 1
END

Условный переход

Задача 117

1 Чет-нечет
CLS
INPUT "Введите целое число"; N
IF N MOD 2=0 THEN LOCATE 12, 35: PRINT "Это число четное"
ELSE LOCATE 12, 35: PRINT "Это число нечетное"
END

Задача 120

Переменная X примет следующие значения:

• х=1
• Х=2
• Х=0

Задача 123

S=6

Задача 135

Старояпонский календарь CLS
' Запрос года INPUT "Введите год"; YEAR
' Вычисление номера цвета и животного С =((9910-YEAR) MOD 60)\12 К =(YEAR-3) MOD 12
' Определение по номеру цвета года SELECT CASE С CASE 0
PRINT "ЗЕЛЕНЫЙ"; CASE I
PRINT "КРАСНЫЙ"; CASE 2
PRINT "ЖЕЛТЫЙ"; CASE 3
PRINT "БЕЛЫЙ"; CASE A
PRINT "ЧЕРНЫЙ"; END SELECT
' Определение по номеру животного года SELECT CASE К CASE 0
PRINT " КАБАН" CASE 1
PRINT " КРЫСА" CASE 2
PRINT " БЫК" CASE 3
PRINT " ТИГР" CASE 4
PRINT " КОТ" CASE 5
PRINT " ДРАКОН" CASE 6
PRINT " ЗМЕЯ" CASE 7
PRINT " ЛОШАДЬ"
CASE 8
PRINT " ОВЦА" CASE 9
PRINT " ОБЕЗЬЯНА" CASE 10
PRINT " ПЕТУХ" CASE 11
PRINT " СОБАКА" END SELECT PRINT "УДАЧИ ВАМ!"
END