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

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

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

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

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

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

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

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

Презентация по информатике на тему "Графические возможности языка программирования TPascal"

библиотека
материалов
 Модуль GRAPH
Каждый из нас любит рисовать. Кто, конечно, рисует лучше, кто чуть-чуть поху...
Для того чтобы рисовать в среде программирования нам необходимы две вещи: Зна...
2. Для работы Вам потребуются две рабочие целочисленные переменные, которые н...
3. После начала тела программы, когда Вы решили, что пора уже и подключиться...
4)Очистим экран, подготовив его к работе, процедурой: ClearDevice; не путайте...
ПРОЦЕДУРЫ И ФУНКЦИИ. 1.Система координат. Начнем с системы координат. Графич...
2. Цвета. Можно использовать 16 цветов, что применимо и в модуле CRT, только...
Желательно выбрать цвет фона, на котором будет Ваш рисунок и цвет линий, кото...
3. Точка на экране. Чтобы вывести точку на экран, Вы должны знать ее координ...
4. Вывод линий на экран. Что бы вывести линию на экран нужно знать, где она...
Можно использовать процедуры работы с линиями: LineTo(x, y) проводит линию т...
5. Вывод прямоугольника. Если взять цветную проволоку и изогнуть ее в виде п...
Процедура BAR рисует заполненный прямоугольник без контура. Перед выполнением...
6. Окружность, эллипс, дуги. Много не нарисуешь только из линий и прямоуголь...
Если же Вы хотите нарисовать воздушный шарик, то его форма будет больше напо...
Осталось разобраться c рисованием дуг, ведь большинство рисунков состоят име...
дуга от эллипса: ELLIPSE(x,y, нач_дуги, кон_дуги, Rx, Ry) Rx (x,y) Ry 275 ко...
7. Заполнение контура. Мы заговорили о заполнении, но как это делается? Для...
2) а затем “залить” данный контур процедурой FloodFill(x, y, цвет_контура) г...
Из трехмерных фигур Турбо Паскаль предлагает рисунок параллелепипеда в двух в...
8. Вывод текста на экран. Выполняя всевозможные рисунки, Вам также понадобит...
Выводить текст обычным шрифтом не интересно! Очень хочется чего-нибудь необы...
положение текста: 0 - горизонтальный обычный вывод “текст”; 1 -вертикальный...
24 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


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

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

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

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

№ слайда 1  Модуль GRAPH
Описание слайда:

Модуль GRAPH

№ слайда 2 Каждый из нас любит рисовать. Кто, конечно, рисует лучше, кто чуть-чуть поху
Описание слайда:

Каждый из нас любит рисовать. Кто, конечно, рисует лучше, кто чуть-чуть похуже, но абсолютно все рисуют. Как только карандаш или ручка попадают в ваши руки Вы, не желая того, начинаете на листе бумаги, в тетради (например, по ин- форматике), еще хуже на парте ( надеюсь, что это не так) сразу чертить незатейливые узоры, чертика или рожицу, или просто, что рука пожелает. Изучив язык программирования, перед Вами открывается новая перспектива - творить с помощью компьютера, заставлять компьютер рисовать, управляя им как ручкой или карандашом. Такую возможность вам предоставляет модуль Graph.

№ слайда 3 Для того чтобы рисовать в среде программирования нам необходимы две вещи: Зна
Описание слайда:

Для того чтобы рисовать в среде программирования нам необходимы две вещи: Знать с помощью чего и как мы будем рисовать, т.е. знать процедуры и функции работы с графикой. Все они содержаться в файле Graph.tpu. 2. Все мы выводим на экран монитора, поэтому нам нужно разрешение экрана, цветовая палитра вывода изображений, т.е. знать какой адаптер мы используем. Так как наш класс обеспечен современными мониторами, то нам необходим файл EGAVGA.BGI в рабочем каталоге. Разберем алгоритм работы с графическим модулем.

№ слайда 4 2. Для работы Вам потребуются две рабочие целочисленные переменные, которые н
Описание слайда:

2. Для работы Вам потребуются две рабочие целочисленные переменные, которые необходимо описать: Var Grmode, Grdriver : integer; можно просто любые имена этим переменным, например, Var А, В : integer; Эти переменные задают драйвер( Grdriver) и режим (Grmode) в соответствии со значениями соответствующими данному драйверу. 1. Если Вы решили включить графические фрагменты в программу, то Вы обязаны после названия программы об этом заявить, используя слово USES: Program My_program; Uses Graph; ... Алгоритм работы.

№ слайда 5 3. После начала тела программы, когда Вы решили, что пора уже и подключиться
Описание слайда:

3. После начала тела программы, когда Вы решили, что пора уже и подключиться к графическому модулю, необходимо: а) Выбрать режим автоматической идентификации аппаратуры, т.е. предоставить компилятору самому определить значение переменной Grdriver, фразой: Grdriver:= Detect; или А:=Detect; б) инициализировать графический пакет: InitGraph( Grdriver, Grmode,’’); или InitGraph(a,b,’’);

№ слайда 6 4)Очистим экран, подготовив его к работе, процедурой: ClearDevice; не путайте
Описание слайда:

4)Очистим экран, подготовив его к работе, процедурой: ClearDevice; не путайте с ClrScr -это в модуле CRT! 5) Пишем саму программу со всеми графическими фокусами. 6) Задержка в конце программы, чтобы увидеть что Вы навояли . a) READLN; b) repeat until keypressed; (если подключен модуль CRT);

№ слайда 7 ПРОЦЕДУРЫ И ФУНКЦИИ. 1.Система координат. Начнем с системы координат. Графич
Описание слайда:

ПРОЦЕДУРЫ И ФУНКЦИИ. 1.Система координат. Начнем с системы координат. Графический экран состоит из множества точек, чем больше точек (выше разрешение экрана), тем лучше изображение. Каждую такую точку называют пиксель. Система координат расположена так: 0 это ось Х - от 0 до 640 пикселей Х Y до 480

№ слайда 8 2. Цвета. Можно использовать 16 цветов, что применимо и в модуле CRT, только
Описание слайда:

2. Цвета. Можно использовать 16 цветов, что применимо и в модуле CRT, только без мерцания символа. 0 Black черный 1 Blue синий 2 Green зеленый 3 Cyan голубой 4 Red красный 5 Magenta фиолетовый 6 Brown коричневый 7 LightGray светло-серый 8 DarkGray темно-серый 9 LightBlue светло-синий 10 LightGreen светло-зеленый 11 LightCyan светло-голубой 12 LightRed светло-красный(розовый) 13 LightMagenta светло-фиолетовый 14 Yellow желтый 15 White белый

№ слайда 9 Желательно выбрать цвет фона, на котором будет Ваш рисунок и цвет линий, кото
Описание слайда:

Желательно выбрать цвет фона, на котором будет Ваш рисунок и цвет линий, которыми Вы рисуете. Это все равно, что выбрать цветной лист бумаги и цвет карандаша. Если вы этого не сделаете, компьютер будет выполнять ваши команды, НО только белым цветом Процедура SetColor(N) - помогает выбрать цвет линии, карандаша или цвет контура фигуры. N -натуральное число от 0 до 15. Процедура SetBKColor(N) - устанавливает цвет фона (выбирает цвет бумаги, на которой будем рисовать).

№ слайда 10 3. Точка на экране. Чтобы вывести точку на экран, Вы должны знать ее координ
Описание слайда:

3. Точка на экране. Чтобы вывести точку на экран, Вы должны знать ее координаты, т.е. сколько пикселей вправо по оси Х от начала отсчета и вниз по оси Y, а также цвет Вашей точки. Процедура PutPixel (x, y, цвет) закрашивает пиксель с координа- тами (х,у) в заданный цвет. Если же Вы хотите узнать, а какого цвета пиксель с координатами (х,у), то Вам поможет процедура GetPixel(x,y).

№ слайда 11 4. Вывод линий на экран. Что бы вывести линию на экран нужно знать, где она
Описание слайда:

4. Вывод линий на экран. Что бы вывести линию на экран нужно знать, где она начинается на экране и где заканчивается, т.е. координаты начала (x,y) и конца (x1,y1) будущей линии. Процедура Line(x, y, x1,y1) отлично справится с этим заданием. Но, желательно, перед этим указать цвет Вашей линии и можно даже стиль линии. Как указать цвет Вы уже в курсе, а вот стиль поможет выбрать процедура SetLineStyle. SetLineStyle(N, 0,K); где N стиль линии 0 сплошная 1 .............. пунктирная 2 штрих-пунктирная 3 _ _ _ _ _ _ штриховая К - толщина линии 1 или 3

№ слайда 12 Можно использовать процедуры работы с линиями: LineTo(x, y) проводит линию т
Описание слайда:

Можно использовать процедуры работы с линиями: LineTo(x, y) проводит линию текущего цвета из текущей позиции в точку с координатами (х,у) LineRel(dx,dy) проводит линию выбранного цвета из текущей позиции в точку, сдвинутую относительно исходной позиции по осям на величину dx и dy. MoveTo(x,y) перемещает указатель координат в точку с координатами (x,y). Не рисуя! MoveRel(x,y) перемещает указатель координат по осям на dx и dy. Не рисуя!

№ слайда 13 5. Вывод прямоугольника. Если взять цветную проволоку и изогнуть ее в виде п
Описание слайда:

5. Вывод прямоугольника. Если взять цветную проволоку и изогнуть ее в виде прямоугольника, то получится контур прямоугольника. Можно взять и цветной карандаш и нарисовать контур прямоугольника, цвет контура соответствует цвету взятого карандаша. Но можно взять и цветной лист бумаги и вырезать из него цветной прямоугольник или кисточкой, мокнув в краску, нарисовать, например, желтенький прямоугольник, у этих прямоугольников контура нет! Получили два вида прямоугольников: с контуром и без контура. Процедура Rectangle рисует контур прямоугольника. (x,y) Для восстановления прямоугольника достаточно знать координаты любой диагонали. (x1,y1) Rectangle(x,y,x1,y1)

№ слайда 14 Процедура BAR рисует заполненный прямоугольник без контура. Перед выполнением
Описание слайда:

Процедура BAR рисует заполненный прямоугольник без контура. Перед выполнением данной процедуры желательно выбрать цвет и стиль контура. Bar(x,y,x1,y1) Стиль и цвет заполнения задаются заранее процедурами SetFillStyle, SetFillPattern.

№ слайда 15 6. Окружность, эллипс, дуги. Много не нарисуешь только из линий и прямоуголь
Описание слайда:

6. Окружность, эллипс, дуги. Много не нарисуешь только из линий и прямоугольников, хочется закруглить некоторые штрихи. Будем учиться рисовать более сложные фигуры из кругов, эллипсов и дуг. Начнем с окружностей. Например, Вы хотите нарисовать солнце. Нужно взять “инструмент” для рисования окружностей - циркуль, выбрать место на экране где солнце будет, т.е. координаты центра окружности или куда Вы бы поставили иглу циркуля, и конечно, подобрать размеры Вашего солнышка - радиус окружности или расстояние между ножками циркуля. Ясно, что циркулем на экране рисовать глупо, поэтому роль “инструмента” будет выполнять процедура CIRCLE (почти -что циркуль). Circle(x, y, R) где (х,у) - координаты центра окружности; R - радиус.

№ слайда 16 Если же Вы хотите нарисовать воздушный шарик, то его форма будет больше напо
Описание слайда:

Если же Вы хотите нарисовать воздушный шарик, то его форма будет больше напоминать овал, эллипс. Вы, конечно, согласны с тем, что опять Вам необходимо знать координаты центра шарика и еще его размеры от центра в двух направлениях - по ширине и по длине. “Инструментом” послужит уже другая процедура ELLIPSE и кроме тех данных, о которых мы говорили, добавятся новые - применение которых более ясно станет чуть позже. Ellipse (x, y, 0, 360, Rx, Ry) где (х,у) - координаты цента; Rx - расстояние от центра до контура по оси Х, Ry- расстояние от центра до контура по оси Y; после координат центра будут стоять два числа, соответствующие началу и концу дуги контура, т.к. у нас эллипс не имеет ни того ни другого, то поставим числа 0 и 360.

№ слайда 17 Осталось разобраться c рисованием дуг, ведь большинство рисунков состоят име
Описание слайда:

Осталось разобраться c рисованием дуг, ведь большинство рисунков состоят именно из дуг. Дуги могут быть частью окружности и частью эллипса. “Инструментом” выполняющим рисование дуги от окружности является процедура ARC и от эллипса процедура уже знакомая Ellipse. В Турбо Паскале рисование окружностей, эллипсов и дуг происходит против часовой стрелки - это необходимо твердо помнить для определения начала и конца дуги! Дуга от окружности: ARC(x,y, начало_дуги, конец_дуги, радиус_окруж) R 360 конец 270 начало дуги 85 начало дуги 180 конец дуги 182 начало дуги 263 конец дуги

№ слайда 18 дуга от эллипса: ELLIPSE(x,y, нач_дуги, кон_дуги, Rx, Ry) Rx (x,y) Ry 275 ко
Описание слайда:

дуга от эллипса: ELLIPSE(x,y, нач_дуги, кон_дуги, Rx, Ry) Rx (x,y) Ry 275 конец 180 начало 90 начало 180 конец

№ слайда 19 7. Заполнение контура. Мы заговорили о заполнении, но как это делается? Для
Описание слайда:

7. Заполнение контура. Мы заговорили о заполнении, но как это делается? Для того, чтобы закрасить какой-нибудь контур необходимо: 1) выбрать стиль и цвет заливки контура, используя процедуру SetFillStyle(N,цвет) где N стиль заполнения 0 цветом фона 1 заданным цветом 2 в горизонтальную полоску 3 //////// тонкая 4 //////// жирная 5 \\\\\\\ жирная 6 \\\\\\\ тонкая 7 в клетку 8 в наклонную клетку 9 в густую наклонную клетку 10 редко расположенные точки 11 часто расположенные точки 12 пользовательский стиль

№ слайда 20 2) а затем “залить” данный контур процедурой FloodFill(x, y, цвет_контура) г
Описание слайда:

2) а затем “залить” данный контур процедурой FloodFill(x, y, цвет_контура) где (х,у) любая точка принадлежащая контуру, причем контур не должен иметь точек разрыва и обязан состоять из линий или дуг одного цвета. После задания стиля заполнения можно применять и такие оригинальные и нужные процедуры: 1) заполненный эллипс: FillEllipse(x, y, Rx, Ry); 2) закрашенный сектор круга: PieSlise (x,y,нач_дуги,кон_дуги, R); 3) заполненный сектор эллипса: Sector(x, y, нач, кон, Rx, Ry)

№ слайда 21 Из трехмерных фигур Турбо Паскаль предлагает рисунок параллелепипеда в двух в
Описание слайда:

Из трехмерных фигур Турбо Паскаль предлагает рисунок параллелепипеда в двух видах: а) х,у Bar3D(x, y, x1, y1, z, true) Z х1,у1 б) Bar3D(x, y, x1, y1, z, False) Z

№ слайда 22 8. Вывод текста на экран. Выполняя всевозможные рисунки, Вам также понадобит
Описание слайда:

8. Вывод текста на экран. Выполняя всевозможные рисунки, Вам также понадобится и выводить различные надписи под ними или просто сопровождающий к ним текст. Умничка Турбо Паскаль, и здесь он на высоте, обо всем подумал! Процедура OutText выводит текст в текущую позицию, а процедура OutTextXY в конкретное место графического экрана с точностью до точки! OutText(‘ Ваш_текст’) OutTextXY(x,y,’Ваш_текст’) Ваш текст Х,Y

№ слайда 23 Выводить текст обычным шрифтом не интересно! Очень хочется чего-нибудь необы
Описание слайда:

Выводить текст обычным шрифтом не интересно! Очень хочется чего-нибудь необычного! Эффектного! Пожалуйста, Вам предоставляет Паскаль право выбрать не только шрифт, но и размер букв. Процедура SetTextStyle предоставляет нам возможность выбрать шрифт, положение вывода текста на экране (горизонтально, вертикально или горизонтально с вертикальным поворотом каждой буквы) и размер. SetTextStyle(номер_шр,положение,увеличение_шрифта) номер шрифта может быть 0 - матричный шрифт 8х8( Binary); 1 - обычный полужирный шрифт (Triplex); 2 - тонкий шрифт (Small); 3- рубленый шрифт (SansSerif) 4-готический шрифт ( Gothic)

№ слайда 24 положение текста: 0 - горизонтальный обычный вывод “текст”; 1 -вертикальный
Описание слайда:

положение текста: 0 - горизонтальный обычный вывод “текст”; 1 -вертикальный вывод снизу вверх; 2 - горизонтальный вывод, но каждая буква повернута на 90 градусов увеличение шрифта: для 0 от 1 до 31; для 1 - не действует; для остальных аналогично 0. Без подключения шрифтов можно работать с номерами 0 и 1, все остальные необходимо подключать.


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


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

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

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

Автор
Дата добавления 30.06.2016
Раздел Информатика
Подраздел Презентации
Просмотров117
Номер материала ДБ-136611
Получить свидетельство о публикации
Похожие материалы

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