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

Циклический алгоритм

Задача 140

' Пешеходный переход "зебра" FOR Y = 10 ТО 320 STEP 30
LINE (200, У)-(400, Y+20), 15, BF NEXT Y

Задача 143

1 Воздушный шарик
SCREEN 9
' Изменение цвета фона
COLOR, 1
FOR I = 1 ТО 201
' Рисование окружности изменяющегося радиуса
CIRCLE (320, 175), I, 14
' Пауза
FOR T = 1 ТО 2000: NEXT T
' Стирание окружности изменяющегося радиуса
CIRCLE (320, 175), I, 1 NEXT I

Задача 146

F=1

Цикл вообще не будет ни разу исполняться, т. к. начальное значение параметра больше конечного, а шаг по умолчанию принят +1.

Задача 147

1 Да ты крут!
CLS
INPUT "Введи свой возраст"; N
FOR J = 1 ТО N
PRINT "ДА ТЫ КРУТ! "
FOR T = 1 ТО 5000: NEXT T
NEXT J
END

Задача 148

' Таблица умножения
1:INPUT "Введите целое число от 2 до 9"; N
IF N<2 OR N >9 THEN?"От 2 ДО 9!": GOTO 1
? "Таблица умножения на "; N
FOR I = 2 ТО N
? I; "*"; N; "="; I*N NEXT I END

Задача 151

1 Электронный секундомер FOR T = 1 TO 3600
LOCATE 12, 38:? T NEXT T END

Задача 152

' Орнамент с полукольцами
SCREEN 9
' Задание радиусов окружностей
R1 = 20: R2 = 10
FOR X = 50 ТО 600 STEP 4*R1
' Первое полукольцо CIRCLE (X, 175), Rl, 14, 0, 3.14
CIRCLE (X, 175), R2, 14, 0, 3.14 LINE (X – Rl, 175)-(X – R2, 175), 14
LINE (X + Rl, 175)-(X + R2, 175), 14
PAINT (X, 162), 2, 14
' Второе полукольцо
CIRCLE (X + 2 * Rl, 175), Rl, 14, 3.14, 0
CIRCLE (X + 2 * Rl, 175), R2, 14, 3.14, 0
LINE (X + Rl, 175)-(X + Rl + R2, 175), 14
LINE (X + 2 * R1 + R2, 175)-(X + 3 * R1, 175), 14
PAINT (X + 2 * R1, 188), 4, 14
NEXT X
END

Задача 156

  • Правильно, если переменные r, s и н ранее получили значения.
  • Правильно.
  • Правильно.
  • Неправильно. Отсутствует ключевое слово то.
  • Правильно.
  • Неправильно. Цикл выполняться не будет, т. к. начальное значение параметра больше конечного, а шаг неотрицателен.
  • Неправильно, т. к. оператор wend не должен содержать параметр.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.