Циклический алгоритм
Задача 157
WAR WAR WAR SUNDAY PEACE
Так как после окончания цикла параметр имеет значение большее конечного значения параметра, то проверяемое условие r=w ложно, следовательно выполняется следующий оператор печати слова "SUNDAY", а затем "PEACE".
Задача 169
Будут бесконечно печататься нули. Значение s не меняется, поэтому цикл будет длиться бесконечно.
Задача 173
X=INT(RND(1)*ll)+10
Задача 175
X =-INT(RND(l)*101)+65
Задача 179
1 Маленький взрыв RANDOMIZE TIMER SCREEN 9 FOR 1=1 TO 100 X=INT(RND(1)*200)+220 Y=INT(RND(1)*200)+75 C=INT(RND(1)*15)+1 LINE (X, Y)-(320, 175), С NEXT I END
Задача 188
Rem ось абсцисс Rem ось ординат
' Построение графика Y=SQR{X)
SCREEN 9
LINE (0, 175)-(640, 175), 15
LINE (320, 0)-(320, 350), 15
DEF FNY(X)=SQR(X)
FOR X = 320 TO 640
Y = 175-30*FNY*((X-320J/30)
PSET (X, Y), 15 NEXT X END
Пояснение: корень квадратный извлекается только из неотрицательных чисел, следовательно, аргумент функции (х-320)/30) не должен быть меньше нуля, что и достигается его начальным значением 320.
Задача 190
' Поверхность вращения функции у = 1/1+х" SCREEN 9 LINE (0, 175) -(640, 175), 15 Rem ось абсцисс LINE (320, 0) -(320, 350), 15 Rem ось ординат DEF FNY(X) = 1/(1+хл2) FOR X = 320 ТО 640 STEP 5 Y = 175-30*FNY((X -320)/30) CIRCLE (X, 175), 175 -Y, 15,,,3 NEXT X END
Задача 196
1 Лестница 1 SCREEN 9 FOR X = 0 TO 64 0 STEP 4 0 LINE(X, X*35/64)-(X + 40, (X + 40)*35/64),15,В NEXT X END
Так как экран представляет собой не квадрат, а прямоугольник, то, чтобы серия прямоугольников располагалась вдоль диагонали, приходится вводить коэффициент соотношения сторон экрана 350/640 или 35/64.
Задача 197
' Пирамида. Вид сверху SCREEN 9 FOR X = 20 ТО 220 STEP 10 LINE (X, X)-(220-Х, 220-Х),15, В NEXT X END
Задача 200
1 Лоскутный ковер SCREEN 9 RANDOMIZE TIMER FOR X = 0 TO 640 STEP 10 FOR Y = О ТО 350 STEP 10 ' Выбор случайного цвета для закраски кв. лоскута С = INT(RNDd) *15) + 1 ' Рисование закрашенного квадратика LINE (X, Y)-(X + 10, Y + 10), С, BF ' Обводка квадратика белым контуром LINE (X, Y)-(X + 10, Y + 10), 15, В NEXT Y NEXT X END