Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Презентация "Графика в Pascal"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

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

библиотека
материалов
Для вывода графических изображений на экран монитора в языке Pascal существу...
После подключения модуля Graph нужно перевести среду в графический режим в ос...
Итак, фрагмент программы для организации работы в графическом режиме будет вы...
Графический режим
Процедура	Описание	Пример процедуры	Результат выполнения – выводит на экран P...
Линия Оператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с...
SETCOLOR(№)цвет линий 0 – черный 1 – синий 2 – зеленый 3 – голубой 4 – красны...
Установка цвета SetColor(Color:integer); Устанавливает основной цвет рисовани...
SETFILLSTYLE(№ стиля, № цвета); № стиля	Вид стиля заливки	№ стиля	Вид стиля з...
Процедура	Описание	Пример процедуры	Результат выполнения SetColor (color);  ...
Прямоугольник Процедура Rectangle (x1, y1, x2, y2); выводит прямоугольник с к...
Процедура CIRCLE(x,y,r) выводит на экран окружность с центром (х,у) и ради...
Нарисуйте рисунок домик и дерево подберите разные стили заливки для рисунка В...
Процедура ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от начального...
Снеговик Нарисовать снеговик одними разноцветными окружностями.
Текст программы
Колобок Нарисовать колобка одними разноцветными эллипсами. начало Рисуем овал...
Текст программы
Процедура Arc(x,y,L1,L2,r) рисует дугу с центром в точке (х,у) от начального...
Примеры решения задач: Нарисовать квадраты, стороны которых увеличиваются от...
Текст программы
Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус и...
Текст программы
Звезда Нарисовать звезду прямыми линиями. начало Рисуем отрезок setcolor(15);...
Текст программы
Цветок Нарисовать цветок используя оператор Ellipse. начало Задаем цвет лепес...
Тест программы
Робот Нарисовать робота из разноцветных прямоугольников. начало Рисуем тулови...
Текст программы
1.Задание графического режима……………………...3 2.Линия…………………………………………………...8 3.Пр...
33 1

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs

Описание презентации по отдельным слайдам:

№ слайда 1
Описание слайда:

№ слайда 2 Для вывода графических изображений на экран монитора в языке Pascal существу
Описание слайда:

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

№ слайда 3 После подключения модуля Graph нужно перевести среду в графический режим в ос
Описание слайда:

После подключения модуля Graph нужно перевести среду в графический режим в основной части программы. Делается это при помощи процедуры InitGraph(gd, gm, path); Параметры процедуры: gd – название графического драйвера; gm – номер режима, так как драйвер может поддерживать несколько режимов; path – путь к файлу драйвера, который для FreePascal можно не указывать. После того как вы закончили рисовать, графический режим нужно закрыть командой CloseGraph;

№ слайда 4 Итак, фрагмент программы для организации работы в графическом режиме будет вы
Описание слайда:

Итак, фрагмент программы для организации работы в графическом режиме будет выглядеть следующим образом: uses graph; Var gd, gm: integer; begin initGraph(gd, gm,’С:’); {здесь можно организовать вывод графических примитивов} readln; closegraph; end.

№ слайда 5 Графический режим
Описание слайда:

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

№ слайда 6 Процедура	Описание	Пример процедуры	Результат выполнения – выводит на экран P
Описание слайда:

Процедура Описание Пример процедуры Результат выполнения – выводит на экран PutPixel (x, y, color); Точка с координатами x, y цвета color PutPixel (20, 20, 1); Точку с координатами 20, 20 цвета номер 1 (синяя) Line (x1, y1, x2, y2); Отрезок прямой, ограниченный точками (x1, y1) и (x2, y2) Line (10, 10, 100, 10); Горизонтальный отрезок длиной 90 точек Rectangle (x1, y1, x2, y2); Четырехугольник, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя – (x2, y2) Rectangle (10, 10, 20, 20); Четырехугольник со стороной 10 точек Circle (x, y, r); Окружность с центром в точке (x, y) и радиусом r Circle (100, 100, 20); Окружность с центром в точке 100, 100 и радиусом 20

№ слайда 7
Описание слайда:

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

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

№ слайда 9 SETCOLOR(№)цвет линий 0 – черный 1 – синий 2 – зеленый 3 – голубой 4 – красны
Описание слайда:

SETCOLOR(№)цвет линий 0 – черный 1 – синий 2 – зеленый 3 – голубой 4 – красный 5 – фиолетовый 6 – коричневый 7 – светло-серый 8 – темно-серый 9 – ярко-синий 10 – ярко-зелёный 11 – ярко-голубой 12 – ярко-красный 13 – ярко-розовый 14 – жёлтый 15 – белый

№ слайда 10 Установка цвета SetColor(Color:integer); Устанавливает основной цвет рисовани
Описание слайда:

Установка цвета SetColor(Color:integer); Устанавливает основной цвет рисования SetBkColor(Color:integer); Устанавливает текущий фоновый цвет Например: нарисовать на экране синего цвета отрезок прямой из точки с координатами(100,50) в точку с координатами(400,300) красного цвета: SetBkColor(1); SetColor(4); LINE(100,50,400,300);

№ слайда 11 SETFILLSTYLE(№ стиля, № цвета); № стиля	Вид стиля заливки	№ стиля	Вид стиля з
Описание слайда:

SETFILLSTYLE(№ стиля, № цвета); № стиля Вид стиля заливки № стиля Вид стиля заливки 0 Заполнение (закрашивает цветом фона) 6 1 Заполнение текущим цветом 7 2 8 3 9 4 10 5 11

№ слайда 12 Процедура	Описание	Пример процедуры	Результат выполнения SetColor (color);  
Описание слайда:

Процедура Описание Пример процедуры Результат выполнения SetColor (color);   Устанавливает цвет линий SetColor (yellow);   Все точки, линии и контуры фигур будут желтыми SetFillStyle (fill, color); Устанавливает стиль заполнения замкнутых контуров. fill – способ заполнения, color – цвет заливки SetFillStyle (1, green); Заполнение зеленым цветом будет сплошным FloodFill (x, y, color); Закрашивает в выбранном стиле замкнутый контур. x, y – координаты точки внутри контура, color – цвет границы SetColor (yellow); SetFillStyle (1, yellow);   Circle (100, 100, 20);   FloodFill (110, 110, 14); Закрашивает окружность желтым цветом. Обратите внимание, что цвет заливки и контура должен совпадать.

№ слайда 13 Прямоугольник Процедура Rectangle (x1, y1, x2, y2); выводит прямоугольник с к
Описание слайда:

Прямоугольник Процедура Rectangle (x1, y1, x2, y2); выводит прямоугольник с координатами левого верхнего угла (х1,у1) и правого нижнего угла (х2,у2).

№ слайда 14 Процедура CIRCLE(x,y,r) выводит на экран окружность с центром (х,у) и ради
Описание слайда:

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

№ слайда 15 Нарисуйте рисунок домик и дерево подберите разные стили заливки для рисунка В
Описание слайда:

Нарисуйте рисунок домик и дерево подберите разные стили заливки для рисунка Выполните задание Измените фон за рисунком на синий. Используйте для этого процедуру SetBkColor (Color).

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

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

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

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

№ слайда 18 Текст программы
Описание слайда:

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

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

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

№ слайда 20 Текст программы
Описание слайда:

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

№ слайда 21 Процедура Arc(x,y,L1,L2,r) рисует дугу с центром в точке (х,у) от начального
Описание слайда:

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

№ слайда 22
Описание слайда:

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

Примеры решения задач: Нарисовать квадраты, стороны которых увеличиваются от 20 до 400 ppi, с шагом 20 ppi. Центр экрана совпадает с центром квадрата. Цвет квадратов задаётся случайным числом. Для решения задачи используется цикл с постусловием. Забавные квадраты

№ слайда 24 Текст программы
Описание слайда:

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

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

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

№ слайда 26 Текст программы
Описание слайда:

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

№ слайда 27 Звезда Нарисовать звезду прямыми линиями. начало Рисуем отрезок setcolor(15);
Описание слайда:

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

№ слайда 28 Текст программы
Описание слайда:

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

№ слайда 29 Цветок Нарисовать цветок используя оператор Ellipse. начало Задаем цвет лепес
Описание слайда:

Цветок Нарисовать цветок используя оператор 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);

№ слайда 30 Тест программы
Описание слайда:

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

№ слайда 31 Робот Нарисовать робота из разноцветных прямоугольников. начало Рисуем тулови
Описание слайда:

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

№ слайда 32 Текст программы
Описание слайда:

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

№ слайда 33 1.Задание графического режима……………………...3 2.Линия…………………………………………………...8 3.Пр
Описание слайда:

1.Задание графического режима……………………...3 2.Линия…………………………………………………...8 3.Прямоугольник……………………………………....10 4.Окружность………………………………………….11 5.Эллипс…………………………………………...…….12 6. Дуга……………………………...…………………….13 7.Примеры решения задач……………………………14 Забавные квадраты…………………… - Воздушные пузыри……………………...16 Звезда……………………………………...18 Цветок………...……………………….....20 Робот……………………………………..22 Снеговик…………………………………..24 Колобок.......................................................26 Тест №2 Тест №1

Автор
Дата добавления 14.03.2016
Раздел Информатика
Подраздел Презентации
Просмотров235
Номер материала ДВ-525928
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

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