Нарисовать несколько вложенных прямоугольников - QBasic

Узнай цену своей работы

Формулировка задачи:

как нарисовать несколько вложенных прямоугольников?

Решение задачи: «Нарисовать несколько вложенных прямоугольников»

textual
Листинг программы
CLS
SCREEN 12
FOR i = 50 TO 100 STEP 10
  LINE (100-i, 50-i/2)-(100+i, 50+i/2), 1, B
NEXT i

Объяснение кода листинга программы

  1. CLS — очистка экрана
  2. SCREEN 12 — установка номера экрана на 12
  3. FOR i = 50 TO 100 STEP 10 — цикл, который выполняется от 50 до 100 с шагом 10
  4. LINE (100-i, 50-i/2)-(100+i, 50+i/2), 1, B — рисование линии между точками (100-i, 50-i/2) и (100+i, 50+i/2) с помощью функции LINE, параметр 1 задает ширину линии, B — цвет линии (синий)
  5. NEXT i — переход к следующему шагу цикла
  6. Код повторяется от 5 до 10 раз, рисуя линии разной длины и положения в зависимости от значения переменной i

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы