889939
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

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

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов
 Модуль 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 -вертикальный...

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

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, все остальные необходимо подключать.

Общая информация

Номер материала: ДБ-136611



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс «Оператор персонального компьютера»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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