PPt4Web Хостинг презентаций

Главная / Информатика / Введение в графику в языке программирования Turbo Pascal
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

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

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Введение в графику в языке программирования Turbo Pascal


Скачать эту презентацию

Презентация на тему: Введение в графику в языке программирования Turbo Pascal


Скачать эту презентацию

№ слайда 1 Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор:
Описание слайда:

Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор: Казначей, учитель информатики

№ слайда 2 МЕНЮ Графический режим Цвета и заполнения Незаполненные фигуры Заполненные фигур
Описание слайда:

МЕНЮ Графический режим Цвета и заполнения Незаполненные фигуры Заполненные фигуры Практическое задание Контрольные вопросы

№ слайда 3 Графический режим Uses Graph; - подключение графического режимаInitGraph (Gd, Gm
Описание слайда:

Графический режим Uses Graph; - подключение графического режимаInitGraph (Gd, Gm, 'way'); - переход из текстового режима к графическому где Gd - имя графического драйвера (параметр-переменная), Gm - номер графического режима монитора (параметр-переменная); 'way' - дорожка DOS к файлам с графическими драйверами.Для подключения драйверов в режиме автоопределения задается Gd:=Detect; или Gd:=0;GetMaxMode; - функция, которая возвращает номер наибольшего режима.GetMaxX; - по оси Х, GetMaxY; - по оси Y.CloseGraph; - полное прекращение работы графической системы. RestoreCrtMode; - переключение в текстовый режим с возможностью возврата к текущим установкам графического режима.

№ слайда 4 Цвета и заполнения SetBkColor (N); - установить цвет N для пикселей фона. По умо
Описание слайда:

Цвета и заполнения SetBkColor (N); - установить цвет N для пикселей фона. По умолчанию установлен черный цвет фона.Setcolor (N); - установить цвет N для выводимых линий. По умолчанию установлен белый цвет линий.PutPixel (X, Y, N); - высветить цветом N пиксель с координатами X, YFloodFill (X, Y, N) - заполнение замкнутой области с границей цвета N.GetPixel (X, Y); - функция возвращает цвет пикселя с координатами X, Y.Пример: Программа которая выводит на экран «Звездное небо».uses Graph; var i, Gd, Gm: Integer; BEGIN Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi'); If GraphResult=grOk then begin For i:=0 to 1000 do PutPixel (random(640),random(480),random(15)+1); ReadLn end END.

№ слайда 5 Незаполненные фигуры Circle (X, Y, R); - построить окружность с центром X, Y и р
Описание слайда:

Незаполненные фигуры Circle (X, Y, R); - построить окружность с центром X, Y и радиусом R. Line (x1, y1, x2, y2); - построить отрезок прямой линии от точки с координатами x1, y1 к точке с координатами x2, y2.Rectangle (x1, y1, x2, y2); - построить прямоугольник с левым верхним углом в точке с координатами x1, y1 и правым нижним углом в точке с координатами x2, y2 (стороны параллельны краям экрана)Пример:Программа которая выводит различные незаполненные фигуры.uses Graph; const CenterX=320; CenterY=240; var i, Gd, Gm: Integer;BEGIN Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi'); If GraphResult=grOk then For i:=0 to 23 do Circle (CenterX,CenterY,i*10);END.

№ слайда 6 Заполненные фигуры SetFillStyle(P, N); - процедура установки орнамента Р=0,1, ..
Описание слайда:

Заполненные фигуры SetFillStyle(P, N); - процедура установки орнамента Р=0,1, .., 12 и цвета с номером N для заполняемых фигур .Bar (x1, y1, x2, y2); - построить заполненный прямоугольник Bar3d (x1, y1, x2, y2, d, t); - построить параллелепипедFillEllipse (X, Y, Rx, Ry); - построить заполненный эллипсSector(x,y,a1,a2,Rx,Ry); - построить заполненный сектор эллипса.PieSlice(x, y, a1,a2,R); - построить заполненный сектор кругаFillPoly (N, M); - заполнить произвольную плоскую фигуру с границей, описанной массивом точек, N - число точек границы.

№ слайда 7 Практическое задание Нарисовать паровоз
Описание слайда:

Практическое задание Нарисовать паровоз

№ слайда 8 «ПАРОВОЗ» procedure paravoz;beginsetfillstyle(1,4);bar3d(100,280,280,380,25,true
Описание слайда:

«ПАРОВОЗ» procedure paravoz;beginsetfillstyle(1,4);bar3d(100,280,280,380,25,true);setfillstyle(1,5);bar3d(280,180,400,380,25,true);setcolor(1);setfillstyle(1,yellow);bar3d(300,200,380,260,0,false);setfillstyle(1,12);bar3d(120,300,260,360,0,false);rectangle(300,285,380,370);end;procedure koleso;beginx:=160;for i:=1 to 3 dobeginsetfillstyle(1,1);fillellipse(x,380,40,40);setfillstyle(1,3);fillellipse(x,380,30,30);x:=x+100;end;end;Program paravozzz;uses crt, graph;var gd,gm,i,x,y:integer;begingd:=detect;initgraph(gd,gm,'');if graphresult<>grok then halt(1);paravoz;koleso; readln; end.

№ слайда 9 Контрольные вопросы и задания. 1. Как называется модуль, который подключает граф
Описание слайда:

Контрольные вопросы и задания. 1. Как называется модуль, который подключает графический редактор? 2. Номер наибольшего режима для текущего драйвера возвращает функция… .3.Что делает процедура: Line (x1, y1, x2, y2)?4. Какая процедура строит параллелепипед с заполненной передней гранью?5. Используя какой прием можно нарисовать «полумесяц»?6. Нарисовать на экране треугольники при помощи цикла всеми возможными способами.Домашнее задание.1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции.

№ слайда 10 Спасибо за урок!
Описание слайда:

Спасибо за урок!

Скачать эту презентацию

Презентации по предмету
Презентации из категории
Лучшее на fresher.ru