Изменить цвет фона на синий - Turbo Pascal
Формулировка задачи:
Вопрос: как в данном решение изменить цвет фона на синий?
Решение задачи: «Изменить цвет фона на синий»
textual
Листинг программы
uses graph; var g,d:integer; p:array[1..5] of Pointtype; begin initgraph(g,d,''); SetBkColor(1); {romb} p[1].x:=100;p[1].y:=100; p[2].x:=200;p[2].y:=50; p[3].x:=300;p[3].y:=100; p[4].x:=200;p[4].y:=150; p[5]:=p[1];{прсто присвоить значение} setcolor(12); setfillstyle(1,12);{это нужно, если цвет возьмете не белый, то рамка будет заданного цвета, а внутренность белого} fillpoly(5,p); readln end.
Объяснение кода листинга программы
- Подключается библиотека graph.
- Объявляются переменные g и d типа integer.
- Создается массив p типа Pointtype, содержащий 5 элементов.
- Вызывается функция initgraph, передающая в качестве аргументов значения переменных g и d, а также пустую строку в качестве параметра ``.
- С помощью функции SetBkColor устанавливается цвет фона на 1, что соответствует синему цвету.
- Создаются пять точек типа Pointtype с координатами x и y, соответствующими точкам на графике.
- С помощью оператора присваивания p[5] присваивается значение p[1], что означает копирование всех свойств (включая координаты) первой точки во вторую.
- С помощью функции setcolor устанавливается цвет текста на 12, что соответствует синему цвету.
- С помощью функции setfillstyle устанавливается стиль заполнения, где 1 - это цвет, а 12 - это номер цвета, который был установлен для текста (синий).
- Вызывается функция fillpoly, передающая в качестве аргументов количество точек (5) и массив p.
- Выводится сообщение с помощью функции readln.