1. Линии и точки

Процедура PutPixel выводит заданным цветом точку по указанным координатам.

Procedure PutPixel (X,Y: Integer; Color:Word);

Где Х,У - координаты точки, Color - цвет точки.

Функция GetPixel. Возвращает значение типа Word, содержащее цвет пиксела с указанными координатами.

GetPixel (X,Y: Integer): Word;

Где Х, У - координаты пиксела.

Процедура Line. Вычерчивает линию с указанными координатами начала и конца.

Procedure Line (X1, Y1, X2,Y2: Integer);

Где X1 . . .Y1 - координаты начала (X1, Y1) и конца (X2,Y2) линии.

Процедура LineTo. Вычерчивает линию от текущего положения указателя до положения, заданного его новыми координатами.

Procedure LineTo (X, Y: Integer);

Где Х, У - координаты нового положения указателя, они же координаты второго конца линии.

Процедура SetLineStyle. Устанавливает новый стиль вычерчиваемых линий.

Procedure SetlineStyle (Type, Pattern, Thick:Word)

Где Type, Pattern, Thick - соответсвенно тип, образец и толщина линии.

Тип линии может быть задан с помощью одной из следующих констант.

Const

SolidLn=0; {Сплошная линия}

Dottedln=1; {Точечная линия}

CenterLn=2; {Штрих - пунктирная линия}

DashedLn=3; {Пунктирная линия}

Userbitln=4; {Узор линии определяет пользователь}.

Параметр Pattern учитывается только для линий, вид которых определяет пользователь.

Параметр Thick может принимать одно из двух значений.

Const

NormalWidth = 1;

ThickWidth = 3;

Многоугольники

Процедура Rectangle. Вычерчивает прямоугольник с указанными координатами углов.

Procedure Rectangle ( X1, Y1, X2, Y2: Integer);

Где X1. . .Y2 – координаты левого верхнего (Х1,Y1) и правого нижнего (X2,Y2) углов прямоугольника.

Процедура DrawPoly. Вычерчивает произвольную ломанную линию, заданную координатами точек излома.

Procedure DrowPoly(N:Word; var Points);

N - количество точек излома, включая обе крайние точки; Points –переменные типа PointType, содержащая координаты точек излома.

Дуги, окружности, эллипсы.

Процедура Circle. Вычерчивает окружность.

Procedure Circle (X,Y: Integer; R:Word);

Где X,Y – координаты центра; R- радиус в пикселах.

Процедура Arc. Чертит дугу окружности.

Procedure Arc(X,Y: Integer; BegA, EndA, R:Word);

Здесь X,Y – координаты центра. BegA, EndA – соответсвенно начальный и конечный углы дуги. R – радиус.

Процедура Ellipse. Вычерчивает эллипсную дугу.

Procedure Ellipse(X,Y: Integer; BegA, EndA, RX, RY:Word);

Где X,Y – координаты центра. BegA, EndA – соответсвенно начальный и конечный углы дуги. RX, RY – горизонтальный и вертикальный радиусы эллипса в пикселах.

Краски, палитры, заполнения.

Процедура SetColor. Устанавливает текущий цвет для выводимых линий и символов.

Procedure SetColor (Color: Word);

где Color – текущий цвет.

Процедура SetBkColor. Устанавливает цвет фона.

Procedure SetBkColor (Color:Word);

Где Color – цвет фона.

Список литературы

2. В.В. Фаронов Турбо-Паскаль 7.0. Начальный курс. Учебное пособие в 2т. . - М.: Нолидж, 1997.-616с.

3. А.И. Марченко, Л.А. Марченко Программирование в среде Турбо-Паскаль 7.0./Под ред. Тарасенко В.П. - М.: Бином Универсал, К.: Юниор, 1997.- 496с.

4. Ю. С. Бородич, А. Н. Вальвачев, А. И. Кузьмич Паскаль для персональных компьютеров.- Минск: Высшая школа, 1991.-365с.

5. С.А. Немнюгин TURBO PASCAL практикум. - СПб: Питер,2000.-253с.

6. Э.В.Бурсиан Задачи по физике для компьютера.- М.: Просвещение, 1991.-255с.

7. Л.И. Белоусова, С.А.Веприк, А.С.Муравка Сборник задач по курсу информатики/Под ред. Л.И.Белоусовой.- Х., 2000.-168с.

8. В.Н.Пильщиков Сборник упражнений по языку Паскаль. М..: Наука,1988.-154с.

9. Информатика: Базовый курс /Под ред. С.В.Симоновича и др. – СПб.: Питер,2001.-640с.

10. С.Н.Малярчук Основы информатики в определениях, таблицах и схемах / Под ред. С.А.Ракова.- Харьков: Ранок, 2000.-112с.

11. С.А.Абрамов, Е.В.Зима Начала программирования на языке Паскаль-М.: Наука,1987.-110с.

12. В.Ф. Шаньгин, Л.М.Поддубная, Ю.С.Голубев-Новожилов Программирование на языке «Паскаль»/Под ред.В.Ф. Шаньгина.-М.:Высшая школа,1988.-126 с.