Нарисуйте в правой половите экрана 8 окружностей разным радиусом используя цикл - QBasic
Формулировка задачи:
Ребята, помогите пожалуйста, 2 Задания в qBasic
1.Нарисуйте в правой половите экрана 8 окружностей разным радиусом используя цикл.
2. Вычислите S=1/2+1/4+1/6+1/8+1/10 используя цикл
Помогите пожалуйста(
Решение задачи: «Нарисуйте в правой половите экрана 8 окружностей разным радиусом используя цикл»
textual
Листинг программы
- SCREEN 12
- CLS
- X = 480
- FOR I = 0 TO 7
- CIRCLE (480, I * 25 + 75), I * 10 + 15
- NEXT I
Объяснение кода листинга программы
В данном коде происходит следующее:
- Устанавливается номер экрана на 12.
- Очищается экран.
- Задается значение переменной X равное 480.
- Запускается цикл от 0 до 7 (включительно).
- Внутри цикла рисуется окружность с центром в точке (480, I 25 + 75) и радиусом I 10 + 15.
- Цикл заканчивается. Список действий:
- Установить экран 12.
- Очистить экран.
- Задать X = 480.
- Начать цикл от 0 до 7.
- Внутри цикла нарисовать окружность с центром в точке (480, I 25 + 75) и радиусом I 10 + 15.
- Закончить цикл.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
