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

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

Задача 205

1 Хронометр CLS
1 Цикл для часов FOR HOURS = 0 to 23
' Цикл для минут FOR MINUTES = 0 to 59
' Цикл для секунд FOR SECONDS = 0 to 59 LOCATE 12, 35
? HOURS; ":"; MINUTES; ":";
SECONDS SLEEP 1 NEXT SECONDS NEXT MINUTES NEXT HOURS

Задача 208

' Вычисление числа Пи методом Монте-Карло
CLS: RANDOMIZE TIMER
LOCATE 3, 20
PRINT " Вычисление числа Пи методом Монте-Карло"
SCREEN 9
' Рисование квадрата со стороной 200
LINE (100, 100)-(300, 300), 14, В
' Рис.ание вписанной в квадрат окружности радиусом
100CIRCLE (200, 200), 100, 0,,, 1.01
' Задание общего количества песчинок N
' и обнуление счетчика попавших в круг KN=5000: K=0
FOR 1=1 ТО N
X=INT(RND(1)*200)+100
Y=INT(RND(1)*200)+100 ' Вычисление расстояния от выпавшей точки до центра
S =SQR((X-200)Л2+(У-200)"2)
' Проверка условия, попала ли точка в круг 1 и изображение ее красным или белым цветами
IF S<=100 THEN K=K+1: PSET (X, Y), 4 ELSE PSET (X, Y), 15
' Вывод на экран счетчиков песчинок LOCATE 5, 20: PRINT "Выпала песчинка №"; I
LOCATE 6, 20: PRINT "В круг уже попало"; К; "песчинок" NEXT I
1 Вычисление и вывод на экран значения числа Пи LOCATE 23, 15:
PRINT "Число ПИ для"; N; "точек ="; 4*K/N
END

Задача 212

1 Сумматор
CLS
' Запрос с клавиатуры количества суммируемых чисел
INPUT "Сколько чисел будем складывать"; N
' Обнуление переменной для накапливания суммы
S = 0
FOR 1=1 ТО 5
? "Введите"; I; "число"; INPUT A S=S+A NEXT I
' Вывод результата на экран?"Сумма ваших"; N; "чисел равна"; S END

Задача 215

1 Нахождение суммы ряда
CLS
' Запрос значений переменных А и В
INPUT "Введите значения А и В"; А, В
' Обнуление переменной для накапливания суммы
S=0
1 = 0
WHILE (A+I)OB
S=S+1/(1+(A+I)Л2)
1 = 1 + 1 WEND
' Вывод результата на экран?"Сумма ряда равна"; S END

Задача 216

1 Соприкасающиеся окружности
1 Занесение значений радиусов
DATA 50, 20, 10, 25, 40, 15, 60
SCREEN 9
' Задание начальной координаты X
Х=0
FOR 1=1 ТО 7
READ R
CIRCLE (X+R, 175), R, 14
X=X+2*R NEXT I END

Задача 220

1 Разноцветные окружности. Вариант 1
' Программа с циклом DO…LOOP WHILE
SCREEN 9
' Задание значения первого цвета
ч^-1
DO
' Определение координаты X центра окружности
Х=10+40*С
CIRCLE (X, X), 30, 15
PAINT (X, X), С, 15
С=С+1
LOOP WHILE C<7 END
' Разноцветные окружности. Вариант 2
' Программа с циклом DO…LOOP UNTIL
SCREEN 9
' Задание значения первого цвета
С=1
DO
' Определение координаты X центра окружности
Х=10+40*С
CIRCLE (X, X), 30, 15
PAINT (X, X), С, 15
С=С+1 LOOP UNTIL C=7