Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Сборник_задач_8_класс.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
989.18 Кб
Скачать

Тема: Компьютерная графика. Стандартные графические процедуры.

Пример 1. Программа ставит на экране точку с координатами (X,Y) цвета С. Значения координат и цвета вводятся с клавиатуры.

PROGRAM z1 ;

VAR x,y,c : INTEGER ;

BEGIN { ******* MAIN PROGRAM ******* }

WRITELN('Введите координаты и цвет точки') ;

READLN( x,y,c ) ;

InitGraph ;

PutPixel(X,Y,C) ;

ReadKey ;

CloseGraph ;

END.

Вызов процедуры

Параметры

Назначение процедуры

Процедуры управления графическим режимом

INITGRAPH

НЕТ

Устанавливает графический режим: 640x350 точек, 16 цветов

CLOSEGRAPH

НЕТ

Закрывает графический режим

Процедура работы с точками

PUTPIXEL(X1,Y1,C)

X,Y,C - значения типа INTEGER

Ставит точку с координатами (X,Y) цветом C

Процедуры работы с линиями

LINE(X1,Y1,X2,Y2,C)

X1,Y1, X2,Y2,С - INTEGER

Проводит линию цвета C из точки с координатами (X1,Y1) в точку с координатами (X2,Y2)

LINETO(X,Y,C)

X,Y,С - INTEGER

Проводит линию цвета C из текущей позиции графического курсора в точку с координатами (X,Y)

MOVETO(X,Y)

X,Y - INTEGER

Перемещает графический курсор из текущей позиции в точку с координатами (X,Y)

SETLINESTYLE(N,Р)

N,Р - INTEGER N - [0:3]

Р - [0:1]

Устанавливает тип линии N и толщину линии Р.

Типы линии: 0 - сплошная; 1 - пунктирная; 2 - штрихпунктирная; 3 - штриховая.

Толщина линии: 0 - обычная; 1 - жирная.

Процедуры построения фигур из линий

RECTANGLE (X1, Y1, X2, Y2, C)

X1,Y1, X2,Y2,С - INTEGER

Строит контур прямоугольника цветом С; X1, Y1, X2, Y2 - координаты любой диагонали прямоугольника;

BAR(X1,Y1,X2,Y2)

X1,Y1, X2,Y2 - INTEGER

Строит закрашенный прямоугольник; X1, Y1, X2, Y2 - координаты любой диагонали прямоугольника;

SETFILLSTYLE(N,C)

N,C - INTEGER N - [0:9]

C - [0:15]

Устанавливает шаблон N и цвет закраски прямоугольника C (см. таблицу шаблонов закраски)

Процедуры построения криволинейных фигур

CIRCLE (X, Y, R, C)

X,Y,R,C - INTEGER

Строит окружность цветом C;

X,Y - координаты центра окружности; R - радиус окружности

ARC (X, Y, StAngle, EndAngle, R, C)

X,Y,StAngle, EndAngle,R,C - INTEGER

Строит дугу окружности цветом C;

X,Y - координаты центра окружности; R - радиус дуги; StAngle - угол до начальной точки дуги в градусах (отсчитывается против часовой стрелки от горизонтальной оси, направленной слева направо);

EndAngle - угол до конечной точки дуги в градусах

ELLIPSE (X, Y, StAngle, EndAngle, RX, RY, C)

X,Y, StAngle, EndAngle,RX,RY,C - INTEGER

Строит эллипс или дугу эллипса цветом C;

X,Y - координаты центра эллипса; StAngle - угол до начальной точки эллипса в градусах (отсчитывается против часовой стрелки от горизонтальной оси, направленной слева направо);

EndAngle - угол до конечной точки эллипса в градусах; RX , RY - горизонтальная и вертикальная полуоси эллипса.

Процедура ожидания нажатия клавиши

READKEY

НЕТ

Задерживает графическое изображение на экране

Таблица кодов цветов

Black

=0 ( черный )

Blue

=1 ( синий )

Green

=2 ( зеленый )

Cyan

=3 ( голубой )

Red

=4 ( красный )

Magenta

=5 ( фиолетовый )

Brown

=6 ( коричневый )

LightGray

=7 ( светло- серый )

DarkGray

=8 ( темно- серый )

LightBlue

=9 ( ярко- синий )

LightGreen

=10 ( ярко- зеленый )

LightCyan

=11 ( ярко- голубой )

LightRed

=12 ( розовый)

LightMagenta

=13 ( малиновый )

Yellow

=14 ( желтый )

White

=15 ( белый )

Шаблоны закраски (для процедуры SETFILLSTYLE)

Код

Значение

0

1

2

3

4

5

6

7

8

9

штриховка фоном (узор отсутствует)

сплошная штриховка

штриховка линиями

штриховка /////

штриховка утолщёнными /////

штриховка \\\\\

штриховка утолщёнными \\\\\

штриховка клеткой +++++

штриховка косой клеткой ххххх

штриховка частой клеткой