Примеры программ:

• Составить программу Абстракция, которая выводит на экран всевозможные графические фигуры.

program graphsb;

uses graph, crt;

var gd,gm,c:integer;

begin

gd:=detect;

initgraph (gd,gm,'');

setbkcolor (1); {Устанавливает цвет фона (1 - blue)}

setcolor (14); {Устанавливает текущий цвет (14 - yellow)}

circle (100,120,50); {Рисует окружность}

putpixel (100,120,14); {Рисует точку}

c:=getpixel (100,120); {Узнаёт цвет пикселя, в указанной координате}

setcolor (14);

line (100,150,200,200); {Рисует отрезок}

setcolor (1);

rectangle (250,100,350,70); {Рисует прямоугольник}

setfillstyle (5,14); floodfill (270,75,1); {Заливка прямоугольника по шаблону}

bar (400,400,500,350); {Рисует прямоугольник, закрашенный в текущем стиле}

setcolor (10); setlinestyle (0,0,3);

bar3d (100,300,200,250,15,true); {Рисует параллелепипед, закрашенный в текущем стиле}

setcolor (10); setlinestyle (1,0,3);

line (150,100,320,170); {Рисует утолщённую точечную линию}

setcolor (10); setlinestyle (0,0,3);

arc (300,350,0,175,70); {Рисует дугу окружности. Линия утолщённая.}

setcolor (9); setlinestyle (0,0,0);

ellipse (490,200,0,360,50,100); {Рисует эллипс. Нормальная толщина линии}

setfillstyle (7,14); floodfill (490,200,9);{Заливка эллипса по шаблону}

setcolor (12); setlinestyle (0,0,3);

ellipse (380,200,25,150,50,100); {Рисует дугу эллипса. Линия утолщённая}

sector (330,190,220,340,100,30); {Рисует закрашенный сектор эллипса}

setcolor (9);

pieslice (300,450,30,170,50); {Рисует круговой сектор}

setfillstyle (3,14); floodfill (300,445,9); {Заливка сектора}

setcolor (10);

lineto (550,450); {Проводит отрезок из текущей позиции в точку с координатами 550,450}

moveto (120,400); {Устанавливает курсор в точку с координатами 120,400}

setcolor (12);

lineto (350,250);

setcolor (14); settextstyle (4,0,4); {Стиль текста}

outtextxy (250,25,'Abstraction'); {Вывод текста}

repeat until keypressed;

closegraph; {Закрытие графического экрана}

clrscr; window (5,5,70,100); {Создание текстового окна}

textbackground (9); textcolor (15);

clrscr; writeln ('Цвет пикселя -',c);

writeln ('До свидания! Для завершения работы нажмите Enter.');

readln; end.

• Составить программу, позволяющую текст, набранный обычным шрифтом, спроецировать в центр экрана и заменить каждый пиксель кругом

program graphtext;

uses crt,graph;

var gd,gm,i,j:integer;

begin

gd:=detect;

initgraph (gd,gm,''); {Инициализирует графическую систему}

outtextxy (1,1,'Mama'); {Выводит строку с позиции, имеющей координаты 1,1}

for i:=1 to 100 do

for j:=1 to 100 do

begin

if getpixel (i,j)=15 then

begin

setcolor (10);

circle (100+i*12,100+j*12,5);

setfillstyle (9,9); floodfill (100+i*12,100+j*12,10);

delay (700);

end;

end;

repeat until keypressed;

closegraph; {Закрытие графического экрана}

end.

Дополнительная информация.

Вывод на экран ломаной линии или закрашенного контура

DrawPoly(<количество точек>,<массив координат точек>); - выводит не экран в графическом режиме ломаную, соединяющую заданные координатами точки.

FillPoly(<количество точек>,<массив координат точек>); - выводит на экран закрашенный многоугольник, координаты вершин которого задаются в массиве.

Массив координат точек – одномерный массив типа Integer, где нечетные элементы содержат горизонтальные элементы (Х), а четные – вертикальные (У).

Количество точек определяет, сколько пар элементов массива необходимо использовать при выводе ломаной линии (многоугольника).

Чтобы оператором DrawPoly вывести многоугольник требуется за точку начала и конца ломаной линии принять определенную точку, координаты которой повторить в начале и конце массива. При этом количество точек должно равняться количеству вершин многоугольника плюс один.

Пример использования операторов:

Uses crt,graph;

const a:array[1..6]of integer=(100,100,300,200,400,400);{задание координат массива как констант}

var gd,gm,i:integer;{описание переменных для объявления графического режима и параметра цикла}

begin

gd:=detect; {объявления графического режима }

initgraph(gd,gm,'');

setcolor(5); {задание цвета линий}

setfillstyle(1,2);

fillpoly(3,a);{рисование закрашенного треугольника}

for i:=1 to 6 do{цикл для изменения массива с координатами точек}

if i mod 2 =0 then a[i]:=a[i]-80 else a[i]:=a[i]+100;

drawpoly(3,a);{рисование угла}

repeat until keypressed;

end.