Заполнения областей изображения

Что представляет собой графический драйвер.

Действия, которые необходимо выполнить для работы в графическом режиме

Задания и технология выполнения.

3.1. Составить программу получения на экране монитора изображения прямоугольного треугольника и точки желтого цвета на зеленом фоне.

Program Tr1;

Uses Graph;

Var a,b: Integer;

Begin

a:=Detect;

InitGraph (a,b,'');

SetBkColor (2);

SetColor (14);

Line (240, 70, 240, 270);

Line (240, 270, 400, 270);

Line (240, 70, 400, 270);

PutPixel (400, 70, 14);

Readln; CloseGraph;

End.

3.2. Составить программу получения на экране монитора изображения снежной бабы (белого цвета на синем фоне).

Program BABA;

Uses Graph;

Var a,b:Integer;

Begin

a:=Detect; InitGraph (a,b,'');

SetBkColor (1);

SetColor (15);

Circle (320, 60, 30);

Circle (320, 140, 50)

Circle (320, 260, 70);

Readln; CloseGraph;

End.

3.3. Составить программу получения на экране монитора изображения головы робота.

Program ROBOT;

Uses Graph;

Var a,b:Integer;

Begin

a:=Detect; InitGraph (a,b,'');

SetBkColor (1);

SetColor (15); {голова}

Rectangle (270,180,370,300); {уши}

Rectangle (240, 220, 270, 260);

Rectangle (370, 220, 400, 260);

Readln; CloseGraph;

End.

3.4.Составить программу получения изображения прямоугольной трапеции.

Первый вариант решения примера 3.4

Program TRAPECIA_1;

Uses Graph;

Var a,b:Integer;

Begin

a:=Detect; InitGraph (a,b,’’);

MoveTo (240, 60);

LineTo (240, 200); {вниз}

LineTo (450, 200); {вправо}

LineTo (350, 60); {влево вверх}

LineTo (240, 60); {влево}

Readln; CloseGraph;

End.

Второй вариант решения примера 3.4 (с использованием процедуры LineRel):

Program TRAPECIA_2;

Uses Graph; Var a,b:Integer;

Begin

a:=Detect; InitGraph (a,b,’’);

MoveTo (240, 60); LineRel (0, 140);

LineRel (210, 0); LineRel (-100, -140); LineRel (-110, 0);

Readln; CloseGraph;

End.

3.5. Составить программу получения изображения эллипса с центром в точке (320, 240) и длинами полуосей 190 и 80

Program ELIPS;

Uses Graph;

Var a,b:Integer:

Begin

a:=Detect;

InitGraph (a,b,’’);

Ellipse (320, 240, 0, 360, 190, 80);

Readln;

CloseGraph;

End.

3.6. Написать программу заполнения прямоугольного треугольника белым цветом (с контуром желтого цвета на зеленом фоне).

Program Triangle_1;

Uses Graph;

Var a,b:Integer;

Begin

a:=Detect; InitGraph (a,b,’’);

SetBkColor (2); SetColor (14);

Line (240, 70, 240, 270);

Line (240, 270, 400, 270);

Line (240, 70, 400, 270);

FloodFill (320, 200, 14);

Readln; CloseGraph;

End.

3.7. Написать программу заполнения прямоугольного треугольника красным цветом (с контуром желтого цвета на зеленом фоне).

Скорректируем программу Triangle_1:

…

{корректировка программы Triangle_1}

Line (240, 70, 400, 270,);

SetFillStyle (1, 4);

{сплошной красный цвет заливки}

FloodFill (320, 260, 14);

…

3.8. Написать программу заполнения прямоугольной трапеции штриховкой светло-серого цвета нормальной толщины.

Program TRAPECIA_3;

Uses Graph;

Var a,b:Integer;

Begin

a:= Detect;

InitGraph (a,b,’’);

SetColor (1); {синий контур}

MoveTo (240, 60);

LineTo (240, 200);

LineTo (450, 200);

LineTo (350, 60);

LineTo (240, 60);

SetFillStyle (3, 7);

FloodFill (350, 175, 1);

Readln;

CloseGraph;

End.

3.9 Напишите программу заполнения окружности желтым цветом, которая после нажатия на клавишу Enter изменяет цвет заливки на зеленый.

Program CIRC;

Uses Graph;

Var a,b:Integer;

Begin

a:=Detect;

InitGraph (a,b,’’);

SetColor (14); {желтый контур}

Circle (320, 175, 100);

SetFillStyle (1, 14);

FloodFill (320, 175,14);

Readln;

ClearDevice;

SetColor (14);

Circle (320, 175, 50);

SetFillStyle (1, 2);

FloodFill (320, 175, 14);

Readln; CloseGraph;

End.

3.10. Написать программу получения изображения горизонтального отрезка с началом в точке (0,240).

Будем рассматривать отрезок как совокупность точек и использовать для получения его изображения процедуру PutPixel. Поместим ее в тело цикла с параметром For. Таким образом, получим изображение 640 точек с координатами (β, 240) при β=0,1,2,3,…,639; в результате соединения пиксели сольются в горизонтальный отрезок.

Program PUT_LANE;

Uses Graph;

Var a,b,k: Integer;

Begin

a:= Detect; InitGraph (a, b, ' ');

{горизонтальная прямая}

For k:=0 To 639 do

PutPixel (k, 240,14);

{14 – желтый цвет}

Readin; CloseGraph;

End.

4. Контрольные задания.

4.1. Составить программу получения изображения «левой» полуокружности с центром в точке (250, 200) и радиусом 100.

4.2. Написать программу получения изображения семи параллельных отрезков равной длины. Концы отрезков: (100, у), (500,у), где у=50, 90, …, 290, значение у измеряется с шагом 40.(Использовать оператор While)

4.3. Написать программу получения изображения семи параллельных отрезков равной длины. Концы отрезков: (100, у), (500,у), где у=50, 90, …, 290, значение у измеряется с шагом 40.(Использовать оператор For)

4.4. Написать программу закраски прямоугольника различными цветами׃ смена цвета должна осуществляться после нажатия клавиши Enter.