Арифметика в Бейсике

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

Решения

Глава 5. Решения

Арифметика в Бейсике Оператор присваивания Выводим результаты Стандартные функции Бейсика Вывод данных в заданном месте экрана Вводим данные Операторы DATA и READ Линейный алгоритм Графика в Бейсике Разветвляющийся алгоритм Условный переход Циклический алгоритм Символы и строки

Содержание

Графика в Бейсике

Линейный алгоритм

Оператор присваивания

Операторы DATA и READ

Разветвляющийся алгоритм

Рисунок ание квадрата со стороной

Рисунок ание квадрата со стороной 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

Рисунок ание закрашенного квадратика

Рисунок ание закрашенного квадратика
LINE (X, Y)-(X + 10, Y + 10), С, BF
' Обводка квадратика белым контуром
LINE (X, Y)-(X + 10, Y + 10), 15, В NEXT Y NEXT X END

Символы и строки

Стандартные функции Бейсика

Таблица умножения 1:INPUT "Введите

Таблица умножения
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

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

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

Вводим данные

Вывод данных в заданном месте экрана