ГБОУ СОШ № 34
Татурина Елена Владимировна
Urok-informatiki.ru
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Знакомство с графическим режим в Паскаль
Содержание
- 1. Знакомство с графическим режим в Паскаль
- 2. МЕНЮ Графический режим Цвета и заполнения Незаполненные фигуры Заполненные фигуры Практическое задание Контрольные вопросыUrok-informatiki.ru
- 3. Графический режимUses Graph; -
- 4. Цвета и заполненияSetBkColor (N); - установить цвет
- 5. Незаполненные фигурыCircle (X, Y, R); - построить
- 6. Заполненные фигурыSetFillStyle(P, N); - процедура установки орнамента
- 7. НАРИСОВАТЬ ПАРОВОЗПрактическое заданиеРЕШЕНИЕUrok-informatiki.ru
- 8. «ПАРОВОЗ»Program paravozzz;uses crt, graph;var gd,gm,i,x,y:integer;begingd:=detect;initgraph(gd,gm,'');if graphresultgrok then halt(1);paravoz;koleso; readln; end.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;МЕНЮUrok-informatiki.ru
- 9. Контрольные вопросы и задания.1. Как называется модуль,
- 10. Спасибо за урок!МЕНЮUrok-informatiki.ru
МЕНЮ Графический режим Цвета и заполнения Незаполненные фигуры Заполненные фигуры Практическое задание Контрольные вопросыUrok-informatiki.ru
Слайд 1Урок по теме:
«Введение в графику в языке программирования Turbo Pascal»
***
Разработала
учитель информатики
ГБОУ СОШ № 34
Татурина Елена Владимировна
ГБОУ СОШ № 34
Татурина Елена Владимировна
Слайд 2МЕНЮ
Графический режим
Цвета и заполнения
Незаполненные фигуры
Заполненные фигуры
Практическое
задание
Контрольные вопросы
Контрольные вопросы
Urok-informatiki.ru
Слайд 3Графический режим
Uses Graph; - подключение графического режима
InitGraph (Gd,
Gm, 'way'); - переход из текстового режима к графическому
где Gd - имя графического драйвера (параметр-переменная),
Gm - номер графического режима монитора (параметр-переменная);
'way' - дорожка DOS к файлам с графическими драйверами.
Для подключения драйверов в режиме автоопределения задается Gd:=Detect; или Gd:=0;
GetMaxMode; - функция, которая возвращает номер наибольшего режима.
GetMaxX; - по оси Х,
GetMaxY; - по оси Y.
CloseGraph; - полное прекращение работы графической системы.
RestoreCrtMode; - переключение в текстовый режим с возможностью
возврата к текущим установкам графического режима.
где Gd - имя графического драйвера (параметр-переменная),
Gm - номер графического режима монитора (параметр-переменная);
'way' - дорожка DOS к файлам с графическими драйверами.
Для подключения драйверов в режиме автоопределения задается Gd:=Detect; или Gd:=0;
GetMaxMode; - функция, которая возвращает номер наибольшего режима.
GetMaxX; - по оси Х,
GetMaxY; - по оси Y.
CloseGraph; - полное прекращение работы графической системы.
RestoreCrtMode; - переключение в текстовый режим с возможностью
возврата к текущим установкам графического режима.
МЕНЮ
Urok-informatiki.ru
Слайд 4Цвета и заполнения
SetBkColor (N); - установить цвет N для пикселей фона.
По умолчанию установлен черный цвет фона.
Setcolor (N); - установить цвет N для выводимых линий. По умолчанию установлен белый цвет линий.
PutPixel (X, Y, N); - высветить цветом N пиксель с координатами X, Y
FloodFill (X, Y, N) - заполнение замкнутой области с границей цвета N.
GetPixel (X, Y); - функция возвращает цвет пикселя с координатами X, Y.
Setcolor (N); - установить цвет N для выводимых линий. По умолчанию установлен белый цвет линий.
PutPixel (X, Y, N); - высветить цветом N пиксель с координатами X, Y
FloodFill (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.
1
7
6
5
4
3
2
8
9
0
МЕНЮ
Urok-informatiki.ru
Слайд 5Незаполненные фигуры
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 (стороны параллельны краям экрана)
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.
МЕНЮ
Urok-informatiki.ru
Слайд 6Заполненные фигуры
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 - число точек границы.
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 - число точек границы.
МЕНЮ
Urok-informatiki.ru
Слайд 8«ПАРОВОЗ»
Program paravozzz;
uses crt, graph;
var gd,gm,i,x,y:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
if graphresultgrok 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;
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;
МЕНЮ
Urok-informatiki.ru
Слайд 9Контрольные вопросы и задания.
1. Как называется модуль, который подключает графический редактор?
2. Номер наибольшего режима для текущего драйвера возвращает функция… .
3.Что делает процедура: Line (x1, y1, x2, y2)?
4. Какая процедура строит параллелепипед с заполненной передней гранью?
5. Используя какой прием можно нарисовать «полумесяц»?
6. Нарисовать на экране треугольники при помощи цикла всеми возможными способами.
МЕНЮ
Домашнее задание.
1. Написать программу, чтобы на экране выводился фрагмент тетради в клетку, используя циклические операции.
Urok-informatiki.ru
