Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


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

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

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

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

Презентация на тему Графика в Pascal

Содержание

Задание графического режимаЛинияПрямоугольникОкружность Эллипс Дуга
Графика в Pascal Для вывода графических изображений на экран монитора в языке Графический режим   Размер экрана 640х480 (0,0) (640,0) (0,480) y х Program pr;Uses crt, graph;  {использование графического режима}Var driver, 0 – черный1 – синий2 – зеленый3 – голубой4 – красный5 – ЛинияОператор  LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с координатами Установка цветаSetColor(Color:integer);Устанавливает основной цвет рисованияSetBkColor(Color:integer);Устанавливает текущий фоновый цветНапример: нарисовать на экране синего Прямоугольник  Процедура Bar(x1,y1,x2,y2) выводит на экран закрашенный прямоугольник с координатами левого Процедура ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от начального угла L1 до Процедура Arc(x,y,L1,L2,r) рисует дугу с центром в точке (х,у) от Примеры решения задач:Нарисовать квадраты, стороны которых увеличиваются от 20 до 400 ppi, Текст программы Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус и цвет окружностей задаётся случайным числом.Воздушные пузыри Текст программы ЗвездаНарисовать звезду прямыми линиями.началоРисуем отрезокsetcolor(15);line(200,40,300,180);Рисуем отрезокsetcolor(15);line(180,80,200,140);Рисуем отрезокsetcolor(15);line(300,80,320,140);…конец Текст программы ЦветокНарисовать цветок используя оператор Ellipse.началоЗадаем цвет лепесткамsetcolor(14);конецРисуем лепесткиEllipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20);Задаем цвет цветкуsetcolor(14);Рисуем середину цветка circle(100,50,15); Тест программы РоботНарисовать робота из разноцветных прямоугольников.началоРисуем туловище:setfillStyle(1,11);Bar(200,40,300,180);Рисуем головуsetfillStyle(1,15);Bar(180,80,200,140);Рисуем глазsetfillStyle(1,14);Bar(300,80,320,140);…конец Текст программы СнеговикНарисовать снеговик одними разноцветными окружностями. Текст программы КолобокНарисовать колобка одними разноцветными эллипсами.началоРисуем овал колобкаРисуем ротконецРисуем правый глазРисуем носРисуем левый глаз Текст программы 1.Задание графического режима……………………...32.Линия…………………………………………………...83.Прямоугольник……………………………………....104.Окружность………………………………………….11  5.Эллипс…………………………………………...…….126. Дуга……………………………...…………………….137.Примеры решения задач……………………………14Забавные квадраты…………………… - Воздушные пузыри……………………...16Звезда……………………………………...18Цветок………...……………………….....20Робот……………………………………..22Снеговик…………………………………..24Колобок.......................................................26
Слайды презентации

Слайд 2


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

Графические операторы в Pascal'e

выход

Тест №2

Тест №1

содержание


Слайд 3 Для вывода графических изображений на

Для вывода графических изображений на экран монитора в языке

экран монитора в языке Pascal существует стандартная библиотека Graph,

подключение которой осуществляется стандартным способом
uses Graph;
В графическом режиме работы любое изображение на экране дисплея состоит из множества мельчайших светящихся точек – пикселей. Экран дисплея представляет собой прямоугольную сетку координат.

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




Слайд 4 Графический режим



Размер экрана 640х480
(0,0)

Графический режим  Размер экрана 640х480 (0,0) (640,0) (0,480) y х


(640,0)
(0,480)
y
х

(0,0)
(640,0)
(0,480)
y
х





Слайд 5 Program pr;
Uses crt, graph; {использование графического режима}
Var

Program pr;Uses crt, graph; {использование графического режима}Var driver,

driver, {графический драйвер}
mode:integer;

{графический режим}
Begin
Driver:=detect; {автораспознавание драйвера}
Initgraph(driver, mode,’путь к файлу egavga.bgi’);
{операторы и процедуры графических построений}
Readkey;
Closegraph;
End.

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




Слайд 6
0 – черный
1 – синий
2 – зеленый
3 –

0 – черный1 – синий2 – зеленый3 – голубой4 – красный5

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

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

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




Слайд 8 Линия
Оператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой

ЛинияОператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с координатами

из точки с координатами (x1,y1) до точки с координатами

(x2,y2).




Слайд 9 Установка цвета
SetColor(Color:integer);
Устанавливает основной цвет рисования
SetBkColor(Color:integer);
Устанавливает текущий фоновый цвет
Например:

Установка цветаSetColor(Color:integer);Устанавливает основной цвет рисованияSetBkColor(Color:integer);Устанавливает текущий фоновый цветНапример: нарисовать на экране

нарисовать на экране синего цвета отрезок прямой из точки

с координатами(100,50) в точку с координатами(400,300) красного цвета:


SetBkColor(1);
SetColor(4);
LINE(100,50,400,300);







Слайд 10 Прямоугольник
Процедура Bar(x1,y1,x2,y2) выводит на экран закрашенный

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

прямоугольник с координатами левого верхнего угла (х1,у1) и правого

нижнего угла (х2,у2).



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

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




Слайд 11




Процедура CIRCLE(x,y,r) выводит на экран окружность с центром (х,у) и радиусом r.



ОКРУЖНОСТЬ




Слайд 12 Процедура ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от

Процедура ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от начального угла L1 до

начального угла L1 до конечногоL2, используя Х,У как координаты

центра, как горизонтальный (Rx) и вертикальный(Ry) радиус.

эллипс




Слайд 13 Процедура Arc(x,y,L1,L2,r) рисует дугу с центром

Процедура Arc(x,y,L1,L2,r) рисует дугу с центром в точке (х,у) от

в точке (х,у) от начального угла L1 до конечного

L2 радиусом r.

ДУГА




Слайд 14 Примеры решения задач:
Нарисовать квадраты, стороны которых увеличиваются от

Примеры решения задач:Нарисовать квадраты, стороны которых увеличиваются от 20 до 400

20 до 400 ppi, с шагом 20 ppi. Центр

экрана совпадает с центром квадрата. Цвет квадратов задаётся случайным числом. Для решения задачи используется цикл с постусловием.



Забавные квадраты


Слайд 15 Текст программы


Текст программы

Слайд 16 Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус

Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус и цвет окружностей задаётся случайным числом.Воздушные пузыри

и цвет окружностей задаётся случайным числом.
Воздушные пузыри



Слайд 17 Текст программы


Текст программы

Слайд 18 Звезда
Нарисовать звезду прямыми линиями.
начало
Рисуем отрезок
setcolor(15);
line(200,40,300,180);
Рисуем отрезок
setcolor(15);
line(180,80,200,140);
Рисуем отрезок
setcolor(15);
line(300,80,320,140);

конец


ЗвездаНарисовать звезду прямыми линиями.началоРисуем отрезокsetcolor(15);line(200,40,300,180);Рисуем отрезокsetcolor(15);line(180,80,200,140);Рисуем отрезокsetcolor(15);line(300,80,320,140);…конец

Слайд 19 Текст программы


Текст программы

Слайд 20 Цветок
Нарисовать цветок используя оператор Ellipse.
начало
Задаем цвет лепесткам
setcolor(14);
конец
Рисуем лепестки
Ellipse(100,300,0,180,25,20);

ЦветокНарисовать цветок используя оператор Ellipse.началоЗадаем цвет лепесткамsetcolor(14);конецРисуем лепесткиEllipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20);Задаем цвет цветкуsetcolor(14);Рисуем середину цветка circle(100,50,15);


Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20);

Задаем цвет цветку
setcolor(14);


Рисуем середину цветка circle(100,50,15);




Слайд 21 Тест программы


Тест программы

Слайд 22 Робот
Нарисовать робота из разноцветных прямоугольников.
начало
Рисуем туловище:
setfillStyle(1,11);
Bar(200,40,300,180);
Рисуем голову
setfillStyle(1,15);
Bar(180,80,200,140);
Рисуем глаз
setfillStyle(1,14);
Bar(300,80,320,140);

конец


РоботНарисовать робота из разноцветных прямоугольников.началоРисуем туловище:setfillStyle(1,11);Bar(200,40,300,180);Рисуем головуsetfillStyle(1,15);Bar(180,80,200,140);Рисуем глазsetfillStyle(1,14);Bar(300,80,320,140);…конец

Слайд 23 Текст программы


Текст программы

Слайд 24 Снеговик
Нарисовать снеговик одними разноцветными окружностями.


СнеговикНарисовать снеговик одними разноцветными окружностями.

Слайд 25 Текст программы


Текст программы

Слайд 26 Колобок
Нарисовать колобка одними разноцветными эллипсами.
начало

Рисуем овал колобка

Рисуем рот
конец

Рисуем

КолобокНарисовать колобка одними разноцветными эллипсами.началоРисуем овал колобкаРисуем ротконецРисуем правый глазРисуем носРисуем левый глаз

правый глаз


Рисуем нос


Рисуем левый глаз




Слайд 27 Текст программы


Текст программы

  • Имя файла: grafika-v-pascal.pptx
  • Количество просмотров: 143
  • Количество скачиваний: 0