Циклический алгоритм
Задача 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 не должен содержать параметр.