Разработка технологии преподавания языка программирования QBASIC
Занятие «Знакомство с оператором CIRCLE» Постановка задачи: нарисовать окружность 1 Нарисуем окружность радиуса R = 100 СIRCLE (300,200), 100 2 Затем зададим красный цвет окружности СIRCLE (300,200), 100,4 3 Закрасим окружность Для этого используем оператор PAINT (300,200),2,4 (Циклы с неизвестным числом повторений) Пример. Постройте семейство концентрических (с общим центром) окружностей, описанное следующим образом: 1) центр окружностей расположен в точке с координатами (315,125); 2) радиус первой окружности равен 50 единицам; 3) радиус следующей окружности меньше предыдущего на 5 единиц; 4) очередная окружность проводится, если её радиус больше трёх единиц. Программа на Бейсике: 10 SCREEN 2 20 R=50 30 CIRCLE (315,125), R,,,2/3 40 R=R – 5 50 IF R>3 THEN 30 60 END