Материал по информатике на тему "Графический режим языка Turbo Pascal"

Графический режим языка Turbo Pascal

Для вывода графических изображений на экран монитора в языке Pascal существует стандартная библиотека Graph, подключение которой осуществляется стандартным способом uses Graph;

В графическом режиме работы любое изображение на экране дисплея состоит из множества мельчайших светящихся точек – пикселей. Экран дисплея представляет собой прямоугольную сетку координат.

Каждая точка задается двумя координатами (x, y).

Точка с координатами (0, 0) находится в левом верхнем углу экрана.

Ось Х направлена вправо, а ось У вниз.

Режим Detect устанавливает разрешающую способность экрана 640*480 пикселей, т. е. координата Х может принимать значения от 0 по 639, а У от 0 по 479.

Инициализация графического режима

Program pr;

Uses graph; {использование графического режима}

Var gd, gm: integer; {графический драйвер}

Begin

Initgraph (dg, gm, ‘ ‘);

{операторы и процедуры графических построений}

Readkey;

Closegraph;

End.

Графические операторы для построения изображений

Setcolor (x)- выбор цвета;

PutPixel (X, Y, цвет) - вывод точки на экран, где X, Y - координаты точки ;

Line (X1, Y1, X2, Y2)- проводит линию из точки с координатами (X1, Y1)в точку с координатами (X2, Y2 );

Rectangle (X1, Y1, X2, Y2)- прямоугольник со сторонами, параллельными осям координат; (X1, Y1) и (X2, Y2) - координаты, определяющие одну из диагоналей прямоугольника ;

Bar (X1, Y1, X2, Y2)- закрашенный прямоугольник (без окантовки);

Circle (X, Y, радиус)– на экран выводится окружность с центром в точке (X, Y )(тип integer) ;

FloodFill (x, y, цвет границы) – заливка замкнутой области;

Setbkcolor (x) – цвет экрана;

Setfillstyle(s, color)- выбор цветной штриховки.

Графический режим языка Turbo Pascal поддерживает шестнадцать цветов:

Полную информацию смотрите в файле. 

Графический режим языка Turbo Pascal

Для вывода графических изображений на экран монитора в языке Pascal существует стандартная библиотека Graph, подключение которой осуществляется стандартным способом uses Graph;

В графическом режиме работы любое изображение на экране дисплея состоит из множества мельчайших светящихся точек – пикселей. Экран дисплея представляет собой прямоугольную сетку координат.

Каждая точка задается двумя координатами (x, y).
 Точка с координатами (0,0) находится в левом верхнем углу экрана.
Ось Х направлена вправо, а ось У вниз.
Режим Detect устанавливает разрешающую способность экрана 640*480 пикселей, т.е. координата Х может принимать значения от 0 по 639, а У от 0 по 479.

Инициализация графического режима

Program pr;

Uses graph; {использование графического режима}

Var gd, gm: integer; {графический драйвер}

Begin

Initgraph (dg, gm, ‘ ‘);

{операторы и процедуры графических построений}

Readkey;

Closegraph;

End.

Графические операторы для построения изображений

• Setcolor (x)- выбор цвета;

• PutPixel (X, Y, цвет) - вывод точки на экран, где X, Y - координаты точки ;

• Line ( X1, Y1, X2, Y2 ) - проводит линию из точки с координатами (X1, Y1 ) в точку с координатами ( X2, Y2 );

• Rectangle (X1, Y1, X2, Y2 ) - прямоугольник со сторонами, параллельными осям координат; (X1, Y1) и (X2, Y2) - координаты, определяющие одну из диагоналей прямоугольника ;

• Bar ( X1, Y1, X2, Y2 ) - закрашенный прямоугольник (без окантовки);

• Circle ( X, Y, радиус ) – на экран выводится окружность с центром в точке ( X, Y )(тип integer) ;

• FloodFill (x, y, цвет границы) – заливка замкнутой области;

• Setbkcolor (x) – цвет экрана;

• Setfillstyle(s, color)- выбор цветной штриховки.

Графический режим языка Turbo Pascal поддерживает шестнадцать цветов:

0,Black – чёрный.

2,Green – зелёный.

3,Cyan – голубой.

4,Red – красный. 5,Magenta – фиолетовый. 6,Brown – коричневый. 7,LightGray – светло-серый. 8,DarkGray – тёмно-серый. 9,LightBlue – светло-синий. 10,LightGreen – светло-зелёный. 11,LightGyan – светло-голубой. 12,LightRed – розовый. 13,LightMagenta – малиновый. 14,Yellow – жёлтый. 15,White – белый.

Цвета в Turbo Pascal можно обозначать как словами так и цифрами. Например красный цвет можно записать как red или просто поставить 4.

Пример программы, изображающей заштрихованную окружность пурпурным цветом с зеленой границей

program z1;

Uses graph;
var gd, gm: integer;
begin
initgraph (gd, gm, ‘ ‘);
Setcolor (3);

Setfillstyle (5,5);

Circle ( 300, 200, 100 );

Floodfill(300,40,3);
readln;
closegraph;
end.

Нарисовать колобка одними разноцветными эллипсами.

Нарисовать цветок используя оператор Ellipse.

Задания для самостоятельного выполнения

1. Нарисовать разноцветные окружности с одним центром и разными радиусами.

2. Нарисовать заштрихованный прямоугольник

3. Составить программу, результатом которой будет следующая картинка