Построить окружность с любым радиусом - QBasic
Формулировка задачи:
Помогите пожалуйста построить окружность в qbasic.
Неважен какой размер круга.
Решение задачи: «Построить окружность с любым радиусом»
textual
Листинг программы
FOR t=0 TO 6.28 STEP 0.01 x=100*COS(t)+320 y=100*SIN(t)+240 PSET(x,y) NEXT
Объяснение кода листинга программы
FOR t=0 TO 6.28 STEP 0.01— это цикл, который выполняет 649 итераций (с шагом 0.01 от 0 до 6.28).x=100*COS(t)+320— это формула, которая вычисляет значение переменнойxна каждой итерации цикла. Значение переменнойxравно 100 умноженное на косинусtплюс 320.y=100*SIN(t)+240— это формула, которая вычисляет значение переменнойyна каждой итерации цикла. Значение переменнойyравно 100 умноженное на синусtплюс 240.PSET(x,y)— это функция, которая рисует точку на экране с координатамиxиy.NEXT— это команда, которая выполняет следующую итерацию цикла.