Презентация на тему Графика в Pascal Модуль Graph

Презентация на тему Графика в Pascal Модуль Graph, предмет презентации: Разное. Этот материал содержит 17 слайдов. Красочные слайды и илюстрации помогут Вам заинтересовать свою аудиторию. Для просмотра воспользуйтесь проигрывателем, если материал оказался полезным для Вас - поделитесь им с друзьями с помощью социальных кнопок и добавьте наш сайт презентаций ThePresentation.ru в закладки!

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

Слайд 1
Текст слайда:

Графика в Pascal Модуль Graph


Слайд 2
Текст слайда:

Подключение дополнительных библиотек

Для работы в графическом режиме необходимо подключение модуля Graph.
Первой инструкцией программы должна быть инструкция
uses Graph;


Слайд 3
Текст слайда:

Графический режим

Графический экран Pasсal (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали.

640 точек

400 точек

Начало отсчета – левый верхний угол экрана



Слайд 4
Текст слайда:

Program pr;
Uses graph; {использование графического режима}
Var gd, {графический драйвер}
gm:integer; {графический режим}
Begin
gd:=detect; {автораспознавание драйвера}
Initgraph(gd, gm,’путь к файлу egavga.bgi’);
{операторы и процедуры графических построений}
Readln;
Closegraph;
End.

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


Слайд 5
Текст слайда:

Номера цветов

0 – черный
1 – синий
2 – зеленый
3 – голубой
4 – красный
5 – фиолетовый
6 – коричневый
7 – светло-серый

8 – темно-серый
9 – ярко-синий
10 – ярко-зелёный
11 – ярко-голубой
12 – ярко-красный
13 – ярко-розовый
14 – жёлтый
15 – белый


Слайд 6
Текст слайда:

Графические примитивы


Линия
Прямоугольник
Окружность
Эллипс
Дуга





Слайд 7
Текст слайда:

Линия

Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

Program liniay;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
line(100,50,500,250);
Readln;
end.


Слайд 8
Текст слайда:

Цвет линии

SetColor(№ цвета) - устанавливает цвет пера, задаваемый параметром color.

Program liniay;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
setcolor(№ цвета);
line(30,30,400,350);
Readln;
end.


Слайд 9
Текст слайда:

Установка цвета

SetBkColor(№ цвета);
Устанавливает текущий фоновый цвет

program fon;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
SetBkColor(15);
Readln;
end.


Слайд 10
Текст слайда:

Установка цвета и стиля

SETFILLSTYLE(№ стиля, № цвета);-устанавливает цвет и стиль заливки


Слайд 11

Слайд 12
Текст слайда:

Прямоугольник

Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

Program pryamougolnik;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
Rectangle(50,50,200,200);
Readln;
end.


Слайд 13
Текст слайда:

Прямоугольник

Bar(x1,y1,x2,y2) выводит на экран закрашенный прямоугольник с координатами левого верхнего угла (х1,у1) и правого нижнего угла (х2,у2).



Чтобы начертить закрашенную фигуры нужно:

-Установить цвет фигуры:
SETCOLOR(№ цвета);
-Установить цвет и стиль закраски:
SETFILLSTYLE(№ стиля, № цвета);
-Нарисовать фигуру: {название фигуры} (данные нужные для закраски);
-Закрасить фигуру: FLOODFILL(x,y,№ цвета границы);
Где x,y – координаты точки в замкутой области.


Слайд 14
Текст слайда:

Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r.

Окружность

Program circle;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
Circle(500,200,100);
FloodFill(500,200,4);
Readln;
end.


x1,y1

r


Слайд 15
Текст слайда:

ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от начального угла L1 до конечногоL2, используя Х,У как координаты центра, как горизонтальный (Rx) и вертикальный(Ry) радиус.

Эллипс

Program oval;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
Ellipse(300,260,0,360,260,160);
Readln;
end.


Слайд 16
Текст слайда:

Дуга окружности

Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Program duga;
uses Graph;
Var gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,’c:\bp\bgi’);
Arc(300,250,150,45,135);
Readln;
end.


x,y

r



Слайд 17
Текст слайда:

Домашнее задание

Подготовиться к самостоятельной работе по Графике в Паскале.


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

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

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

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

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


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

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