Нарисовать флаг Чехии - QBasic

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

Помогите нарисовать флаг Чехии Среднего размера в бэйсике срочно

Решение задачи: «Нарисовать флаг Чехии»

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

SCREEN 12
LINE (170, 135)-STEP(300, 100), 4, BF
LINE (170, 235)-STEP(300, 100), 7, BF
LINE (170, 135)-STEP(150, 100), 1
LINE STEP(0, 0)-STEP(-150, 100), 1
LINE STEP(0, 0)-STEP(0, -200), 1
PAINT (200, 235), 1, 1

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

Установка начального экрана — SCREEN 12
Нарисовать линии для флага Чехии:
- LINE (170, 135)-STEP(300, 100), 4, BF
- LINE (170, 235)-STEP(300, 100), 7, BF
- LINE (170, 135)-STEP(150, 100), 1
- LINE STEP(0, 0)-STEP(-150, 100), 1
- LINE STEP(0, 0)-STEP(0, -200), 1
Закрасить флаг Чехии:
- PAINT (200, 235), 1, 1