Составить программу которая рисует прямоугольник с разноцветными сторонами - Turbo Pascal
Формулировка задачи:
Составить программу которая рисует прямоугольник с разноцветными сторонами.
помогите пожалуйста!
Решение задачи: «Составить программу которая рисует прямоугольник с разноцветными сторонами»
textual
Листинг программы
MoveTo(100,100); SetColor( 9); LineRel( 200,0); SetColor(10); LineRel(0, 150); SetColor(11); LineRel(-200,0); SetColor(12); LineRel(0,-150);
Объяснение кода листинга программы
В данном коде происходит рисование прямоугольника с помощью линий, которые соединяют последовательно четыре точки.
MoveTo(100,100);
— устанавливает начальную точку для рисования в координатах (100,100).SetColor( 9);
— устанавливает цвет линии на 9 (синий).LineRel( 200,0);
— рисует линию длиной 200 вправо от текущей позиции.SetColor(10);
— устанавливает цвет линии на 10 (зелёный).LineRel(0, 150);
— рисует линию длиной 150 вниз от текущей позиции.SetColor(11);
— устанавливает цвет линии на 11 (красный).LineRel(-200,0);
— рисует линию длиной 200 влево от текущей позиции.SetColor(12);
— устанавливает цвет линии на 12 (жёлтый).LineRel(0,-150);
— рисует линию длиной 150 вверх от текущей позиции.- В данном коде отсутствуют команды для рисования прямоугольника, поскольку он состоит из четырёх прямоугольников, каждый из которых нарисован отдельной линией. Для правильного выполнения задачи необходимо установить соответствующие цвета для линий и корректно изменить координаты начальной точки для каждой линии.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д