Разделы презентаций


Презентация для урока: Графический режим

Инициализация графического режима.Для поддержки программ ,которые используют графический режим работы дисплея, в языке Turbo Pascal существует модуль Graph.

Слайды и текст этой презентации

Слайд 1
Графический режим языка
TURBO PASCAL



Работа ученика 11-Б класса
Ярмишко Антона

Графический режим языкаTURBO PASCAL Работа ученика 11-Б классаЯрмишко Антона

Слайд 2




Инициализация графического режима.

Для поддержки программ ,которые используют графический режим работы

дисплея, в языке Turbo Pascal существует модуль Graph.

Данный модуль необходимо описать в разделе подключения драйверов в таком виде: Uses graph;
Дальше в основной программе в первую очередь нужно инициализировать такой режим с помощью процедуры (подпрограммы) InitGraph. Общий вид Этой процедуры такой: InitGraph(режим, путь к драйверу) ;
Для первого параметра (режим) можно использовать такие режимы : 1.vga ; 2.vgahi ; Для второго параметра (путь к драйверу) нужно указать путь к каталогу, в котором находится соответствующий драйвер поддержки выбранного режима. Например: InitGraph(vga,vgahi,’D:\TP7\BGI’);

В Turbo Pascal экран имеет расширение 640*480 пикселей. Это значит ,что Х может принимать значения от 0 до 640, а Y – от 0 до 480.
Дисплей в Turbo Pascal:






Пример полной инициализации графического режима:


X

Y

Инициализация графического режима.Для поддержки программ ,которые используют графический режим работы дисплея, в языке Turbo Pascal существует модуль

Слайд 3



Стандартные процедуры и графические функции.
Стандартные процедуры и функции для построения

графических примитивов:
PutPixel(X,Y,цвет) – выводит в заданную позицию точку с указанным

цветом. ПримерПример:PutPixel(12Пример:PutPixel(123Пример:PutPixel(123,42Пример:PutPixel(123,423Пример:PutPixel(123,423,yellow); Line(X1,Y1,X2,Y2) – проводит линию между указанными координатами текущим стилем и цветом. ПримерПример: Line(123,500,320,240); LineTo(X,Y) – проводит линию от текущей точки до координат(X,Y). ПримерПример: LineTo(123,120); LineRel(Dx,Dy) – проводит линию от текущей точки с приростом Dx и Dy. ПримерПример: LineRel(124,231); Rectangle(X1,Y1,X2,Y2) – выводит прямоугольник с координатами левого верхнего и правого нижнего углов. ПримерПример: Rectangle(123,23,234,240); Bar(X1,Y1,X2,Y2) – выводит прямоугольник закрашенный текущем стилем и цветом. ПримерПример: Bar(540,234,247,345);

Circle(X,Y,радиус) – изображает окружность с центром в (X,Y), радиус нужно задать в пикселях. ПримерПример: Circle(320,240,50); Arc(X,Y,начальный угол, конечный угол, радиус) -выводит дугу между указанными углами с центром в (X,Y). Углы задавать в градусах, углы рассчитываются против часовой стрелки. ПримерПример: Arc(234,123,233,240,20); PiesLice(X,Y,начальный угол, конечный угол,радиус) – изображает сектор закрашенный текущим стилем и цветом. ПримерПример: PiesLice(234,345,100,180,10); Ellipse(X,Y,начальный угол, конечный угол, горизонтальный радиус, вертикальный радиус) – выводит эллипсную дугу. Пример: Пример: Ellipse(123,12,180,0,10,12); FillPoly(N,координаты) – выводит замкнутый многоугольник и штрихует его текущем видом штрихования. ПримерПример: FillPoly(4,123,234,234,345,240,222,4,123); DrawPoly(N,координаты) – изображает ломанную линию линию. N – количество точек перелома (Х1, Y1, X2, Y2, …, Xn ,Yn). ПримерПример: DrawPoly(4,123,23,132,24,234,2,123,12);

Стандартные процедуры и графические функции.Стандартные процедуры и функции для построения графических примитивов:PutPixel(X,Y,цвет) – выводит в заданную позицию

Слайд 4



Стандартные процедуры и графические

функции.

(продолжение)

SetColor(цвет) – устанавливает цвет для выведения символов и линий на экране. ПримерПример: SetColor(red); SetBKColor(цвет) – устанавливает цвет фона. ПримерПример: SetBKColor(blue); SetFillstyle(код,цвет) – устанавливает вид штрихования в соответствии с кодом, который может принимать значения от 1 до 11 . ПримерПример: SetFillStyle(2,green); FloodFill(X,Y,цвет границы) – штрихует любую замкнутую область, где X, Y – координаты в середине этой области. ПримерПример: FloodFill(320,240,red); OutTextXY(X,Y,’ваш текст’) – выводит на экран введённый вами текст.(Воспринимает только латинские буквы). ПримерПример: OutTextXY(100,200,’Maloy’); SetTextStyle(шрифт,вид отображения текста, размер) – устанавливает вид текста на экране, шрифт и размер текста текущим цветом. Вид отображения текста может принимать два значения 0 и 1:

0 – слева на право. 1 – снизу вверх. В Turbo Pascal шрифт обозначается цифрами от 1 до 4. ПримерПример: SetTextStyle(3,0,9); ClearDevice – эта процедура отчищает весь экран. CloseGraph – эта процедура используется для закрытия графического режима. Её рекомендуется использовать в конце каждой программы в которой используется графический режим.

Стандартные процедуры и графические

Слайд 5
Цветовая гамма языка
Turbo Pascal
Графический режим языка Turbo Pascal поддерживает

шестнадцать цветов:
0,Black – чёрный.

1,Blue – синий. 2,Green – зелёный. 3,Cyan – голубой. 4,Red – красный. 5,Magenta – фиолетовый. 6,Brown – коричневый. 7,LightGray – светло-серый. 8,DarkGray – тёмно-серый. 9,LightBlue – светло-синий. 10,LightGreen – светло-зелёный. 11,LightGyan – светло-голубой. 12,LightRed – розовый. 13,LightMagenta – малиновый. 14,Yellow – жёлтый. 15,White – белый. Цвета в Turbo Pascal можно обозначать как словами так и цифрами. Например красный цвет можно записать как red или просто поставить 4.




Цветовая гамма языка Turbo PascalГрафический режим языка Turbo Pascal поддерживает шестнадцать цветов:0,Black – чёрный.

Слайд 6


Вы только что ознакомились с графическим режимом языка
Turbo Pascal






Вы только что ознакомились с графическим режимом языка Turbo Pascal

Слайд 7



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer1;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Putpixel(123,423,yellow);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



.

NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 8



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer2;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Line(123,500,320,240);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 9



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer3;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Line(320,240,400,240);
Lineto(123,120);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 10



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer4;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Putpixel(320,240,red);
Linerel(124,231);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 11



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer5;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Rectangle(123,23,254,240);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 12



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer6;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Bar(540,234,247,345);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 13



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer7;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Circle(320,240,50);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 14



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer8;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Arc(234,123,233,240,20);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 15



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer9;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
PiesLice(234,345,100,180,10);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 16



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer10;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Ellipse(123,12,180,0,10,12);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 17



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer11;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
FillPoly(4,123,234,234,345,240,222,4,123);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters





NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 18



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer12;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
DrawPoly(4,123,23,132,24,234,21,123,12);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 19



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer14;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
Line(100,100,200,200);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 20



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer13;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
SetBKColor(blue);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 21



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer15;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(green);
Circle(320,240,20);
Setfillstyle(2,green);
Floodfill(320,240);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 22



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer16;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
Circle(320,240,30);
FloodFill(red);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters




NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 23



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer17;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
OutTextxy(100,200,’Maloy’);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



Malloy

NONAME00.PASFile    Edit    Search    Run    Compile

Слайд 24



NONAME00.PAS


File Edit Search

Run Compile

Debug Tools Options Windows Help

Program primer18;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
SetTextStyle(1,0,9);
OutTextxy(100,200,’Maloy’);
Readln;
End.





Run Ctrl+F9
Strepover F8
Trace into F7
Go to cursur F4
Program reset Ctrl+F2
Parameters



Maloy

NONAME00.PASFile    Edit    Search    Run    Compile

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика