Изменить цвет фона на синий - 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.

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

  1. Подключается библиотека graph.
  2. Объявляются переменные g и d типа integer.
  3. Создается массив p типа Pointtype, содержащий 5 элементов.
  4. Вызывается функция initgraph, передающая в качестве аргументов значения переменных g и d, а также пустую строку в качестве параметра ``.
  5. С помощью функции SetBkColor устанавливается цвет фона на 1, что соответствует синему цвету.
  6. Создаются пять точек типа Pointtype с координатами x и y, соответствующими точкам на графике.
  7. С помощью оператора присваивания p[5] присваивается значение p[1], что означает копирование всех свойств (включая координаты) первой точки во вторую.
  8. С помощью функции setcolor устанавливается цвет текста на 12, что соответствует синему цвету.
  9. С помощью функции setfillstyle устанавливается стиль заполнения, где 1 - это цвет, а 12 - это номер цвета, который был установлен для текста (синий).
  10. Вызывается функция fillpoly, передающая в качестве аргументов количество точек (5) и массив p.
  11. Выводится сообщение с помощью функции readln.

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

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