Рисунок QBasic

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

Помогите пожалуйста предпоследнее задание в практике, не сложный рисунок З.Ы. Последнее задание тоже рисунок

Решение задачи: «Рисунок QBasic»

Листинг программы

CLS
SCREEN 11
h = 25
a = 50
b = 200
c = 400
 
FOR i = 0 TO 6
   LINE (b + (-1) ^ i * h, a * (i + 1))-(c + (-1) ^ i * h, a * (i + 1))
   IF i = 6 THEN EXIT FOR
   LINE (b + (-1) ^ i * h, a * (i + 1))-(b + (-1) ^ (i + 1) * h, a * (i + 2))
   LINE (c + (-1) ^ i * h, a * (i + 1))-(c + (-1) ^ (i + 1) * h, a * (i + 2))
NEXT
END

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

В этом коде используется язык программирования QBasic. Список действий, которые выполняются в этом коде, оформленные в виде нумерованного списка с названиями и значениями переменных в кавычках:

CLS - очистка экрана
SCREEN 11 - установка цвета фона экрана на 11 (синий)
h = 25 - присваивание переменной h значение 25
a = 50 - присваивание переменной a значение 50
b = 200 - присваивание переменной b значение 200
c = 400 - присваивание переменной c значение 400
FOR i = 0 TO 6 - начало цикла, который выполняется 7 раз
LINE (b + (-1) ^ i h, a (i + 1))-(c + (-1) ^ i h, a (i + 1)) - рисование линии от (b+ih,a(i+1)) до (c+ih,a(i+1))
IF i = 6 THEN EXIT FOR - условие выхода из цикла, если значение переменной i равно 6
LINE (b + (-1) ^ i h, a (i + 1))-(b + (-1) ^ (i + 1) h, a (i + 2)) - рисование линии от (b+ih,a(i+1)) до (b+(i+1)h,a(i+2))
LINE (c + (-1) ^ i h, a (i + 1))-(c + (-1) ^ (i + 1) h, a (i + 2)) - рисование линии от (c+ih,a(i+1)) до (c+(i+1)h,a(i+2))
NEXT - конец цикла
END - конец программы