Рабочие листы
к вашим урокам
Скачать
1 слайд
Урок по теме: «Введение в графику в языке программирования Turbo Pascal» Автор: Халимова Толкын Абдугалиевна
2 слайд
3 слайд
4 слайд
1 7 6 5 4 3 2 8 9 0
5 слайд
6 слайд
7 слайд
8 слайд
Program paravozzz; uses crt, graph; var gd,gm,i,x,y:integer; begin gd:=detect; initgraph(gd,gm,''); if graphresult<>grok then halt(1); paravoz; koleso; readln; end. procedure paravoz; begin setfillstyle(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; begin x:=160; for i:=1 to 3 do begin setfillstyle(1,1); fillellipse(x,380,40,40); setfillstyle(1,3); fillellipse(x,380,30,30); x:=x+100; end; end;
9 слайд
1. Как называется модуль, который подключает графический редактор? 2. Номер наибольшего режима для текущего драйвера возвращает функция… . 3.Что делает процедура: Line (x1, y1, x2, y2)? 4. Какая процедура строит параллелепипед с заполненной передней гранью? 5. Используя какой прием можно нарисовать «полумесяц»? 6. Нарисовать на экране треугольники при помощи цикла всеми возможными способами. Домашнее задание. 1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции.
10 слайд
Рабочие листы
к вашим урокам
Скачать
•Uses Graph; - подключение графического режима •InitGraph(Gd, Gm, 'way'); - переход из текстового режима к графическому
где Gd - имя графического драйвера (параметр-переменная),
Gm- номер графического режима монитора (параметр-переменная);
'way' - дорожка DOS к файлам с графическими драйверами.
•Для подключения драйверов в режиме автоопределениязадается Gd:=Detect; или Gd:=0; •GetMaxMode; - функция, которая возвращает номер наибольшего режима. •GetMaxX; - по оси Х, •GetMaxY; - по оси Y. •CloseGraph; - полное прекращение работы графической системы. •RestoreCrtMode; - переключение в текстовый режим с возможностьювозврата к текущим установкам графического режима.
•SetBkColor (N);- установить цвет N для пикселей фона. По умолчанию установлен черный цвет фона. •Setcolor(N); - установить цвет N для выводимых линий. По умолчанию установлен белый цвет линий. •PutPixel(X, Y, N); - высветить цветом N пиксель с координатами X, Y •FloodFill(X, Y, N) - заполнение замкнутой области с границей цвета N.•GetPixel(X, Y); - функция возвращает цвет пикселя с координатами X, Y.
6 665 181 материал в базе
Настоящий материал опубликован пользователем Халимова Салкын Абдугалиевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.