Примеры программ работы с графикой

1. Построение мозаичных изображений.

Мозаичное изображение можно построить с помощью рисования прямоугольников. Для задания изображения нужно сформировать матрицу, содержащую вид этого изображения. Каждый элемент матрицы с координатами (i,j) – номер цвета, которым нужно закрасить прямоугольник, находящийся на пересечении i-ой строки и j-го столбца.

Пример. Создать мозаичное изображение вида:

Program Demo_1;

Uses Crt,Graph;

Const

h=10; {высота прямоугольника}

B: array [1..5,1..5] of 0..2=

((0,0,1,0,0), {задаем матрицу размером 5x5}

(0,1,0,1,0), {тип 0..2 – количество используемых цветов}

(1,0,2,0,1),

(0,1,0,1,0),

(0,0,1,0,0));

Var

Driver,Mode,i,j,x,y:Integer;

Begin

Driver:=Detect;

InitGraph(Driver,Mode,'');

For i:=1 to 5 do

Begin

y:=i*h;

for j:=1 to 5 do

Begin

x:=75+j*h;

case B[i,j] of

0:SetFillStyle(1,White); {меняем цвет заполнения}

1:SetFillStyle(1,Blue); {в зависимости от значения}

2:SetFillStyle(1,Yellow) {элемента матрицы}

end;

Bar(x,y,x+h,y+h); {рисуем прямоугольник}

end;

ReadLn;

CloseGraph;

End.

2. Построение графика функции.

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

Система координат графического экрана Декартова система координат

Для преобразования координат точки (x,y) декартовой системы координат в координаты точки (X,Y) системы координат графического режима можно использовать преобразования:

где w_m, w_n – масштабные коэффициенты по осям, (w_x,w_n) – координаты центра начала декартовой системы координат на графическом экране.

Пример: построить график функции y =sin(x).

Program Demo_2;

Uses Graph;

Const

a=-10; {[a,c] – отрезок, на котором строится график функции}

c=10;

wm=50; {масштабный множитель по оси ox }

wn=50; {масштабный множитель по оси oy }

Var

Driver,Mode:Integer;

i,wx,wy:Integer;

x,y:Real;

Begin

Driver:=Detect;

InitGraph(Driver,Mode,'');

{Задаем координаты начала системы координат в центре экрана}

wx:=GetMaxX div 2;

wy:=GetMaxY div 2;

{Рисуем оси}

SetColor(Red);

SetLineStyle (SolidLn,0,ThickWidth);

Line(0,wy,GetMaxX,wy); {ox}

Line(wx,0,wx,GetMaxY); {oy}

{Подписи осей}

SetColor(White);

OutTextXY(wx+7,4,'Y');

OutTextXY(GetMaxX-8,wy+6,'X');

{Вертикальные линии сетки}

SetColor(Green);

SetLineStyle (SolidLn,0,NormWidth);

i:=1;

While (wx-i*wm>0) or (wx+i*wm<GetMaxX) do

Begin

Line(wx-i*wm,0,wx-i*wm,GetMaxY);

Line(wx+i*wm,0,wx+i*wm,GetMaxY);

Inc(i);

end;

{Горизонтальные линии сетки}

i:=1;

While (wy-i*wn>0) or (wy+i*wn<GetMaxY) do

Begin

Line(0,wy-i*wn,GetMaxX,wy-i*wn);

Line(0,wy+i*wn,GetMaxX,wy+i*wn);

Inc(i);

end;

{Строим график точками}

i:=a*wm;

While i<=c*wm do

Begin

x:=i/wm;

y:=sin(x);

PutPixel(Round(wx+wm*x),Round(wy+wn*y),White);

i:=i+1;

end;

ReadLn;

CloseGraph;

End.

3. Построение круговых и столбчатых диаграмм.

Построить круговую и столбчатую диаграммы, содержащие сведения о знаменитых алмазах следующего вида:

Для построения диаграмм нужно определить 2 массива: первый содержит значения массы в каратах (массив А[1..5]), второй – названия алмазов (массив Y[1..5]).

Расчет высоты столбика производится следующим образом:

· находим самый большой алмаз (max). Пусть этому значению соответствует столбик в 200 пиксел;

· высота каждого столбика равна .

Градусная мера угла для построения круговых диаграмм рассчитывается так:

· находим сумму в каратах всех знаменитых алмазов (sum). Этому значению будет соответствует угол в 360⁰;

· градусную меру каждого угла определим из формулы .

Program Demo_3;

Uses Graph,Crt;

Type

Mas1= array [1..5] of Real;

Mas2= array [1..5] of String [15];

Const

N=5; {количество данных}

A:Mas1=(3106,971,968,787,770); {значения}

Y:Mas2=('Куллинан','Эльсценсиор',

'Сьерра-Леоне','Великий Могол',

'Река Уойе'); {подписи данных}

Var

Driver,Mode:Integer;

Z: array [1..N] of Integer;