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

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

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

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

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

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

Презентация на тему Модуль GraphABC

Содержание

Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC. Первой инструкцией программы должна быть инструкция uses GraphABC;ВведениеГраф. примитивыЦвет--стильТекстЛитература
ВведениеГраф. примитивыЦвет--стильТекстЛитератураГрафика в PascalABC Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC. Первой Графический режимГрафический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и Управление экраномSetWindowWidth(w) – Устанавливает ширину графического окна; SetWindowHeight(h) - Устанавливает высоту графического окна; ВведениеГраф. примитивыЦвет--стильТекстЛитература Очистка графического окнаClearWindow; - очищает графическое окно белым цветом.ClearWindow(color); - очищает графическое Графические примитивыТочкаЛинияПрямоугольник ОкружностьЭллипсСекторДугаВведениеГраф. примитивыЦвет--стильТекстЛитература ТочкаSetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом colorprogram tochka;uses GraphABC;beginSetPixel(300,200,clred);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература(300, 200) ЛинииLineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y); координаты ЛинииLine(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в Используемые цветаRandom(16777215) – случайный цвет из всей палитры цветов ПаскаляВведениеГраф. примитивыЦвет--стильТекстЛитература Цвет линииSetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.Program liniay;uses GraphABC;begin setpencolor(clred); line(30,30,400,350);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература Толщина линииSetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay;uses GraphABC;beginsetpenwidth(20);setpencolor(clred);line(30,30,400,350);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература ТреугольникРисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y); Program treugolnik;uses GraphABC;begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).Program pryamougolnik;uses GraphABC;beginRectangle(50,50,200,200);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература Заливка цветомFloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки Цвет и толщина контураЗадаются процедурами SetPenWidth(w); SetPenColor(color);Program pryamougolnik;uses GraphABC;begin SetPenColor(clred); SetPenWidth(20); Rectangle(50,50,200,200); FloodFill(100,100,clBlue);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература ОкружностьCircle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. ЭллипсEllipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин.Program Дуга окружностиArc(x,y,r,a1,a2) - рисует дугу окружности с центром в точке (x,y) и СекторPie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же Вывод текста в графическое окноTextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) Действия со шрифтомSetFontName(‘name’) – устанавливает наименование шрифта.SetFontColor(color) - устанавливает цвет шрифта.SetFontSize(sz) – Название шрифтаПо умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные Стиль шрифтаЗадается именованными константами:fsNormal – обычный; fsBold – жирный; fsItalic – наклонный; Стиль шрифтаProgram text;uses GraphABC;Begin SetFontName('Arial'); SetFontSize(20); SetFontColor(clRed); TextOut(10,10,'обычный'); Пример 1ПримерВведениеГраф. примитивыЦвет--стильТекстЛитература Программа Упражнения
Слайды презентации

Слайд 2 Подключение дополнительных
библиотек
Для работы в графическом режиме необходимо

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

подключение модуля GraphABC.
Первой инструкцией программы должна быть инструкция


uses GraphABC;

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 3 Графический режим
Графический экран PasсalABC (по умолчанию) содержит 640

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

точек по горизонтали и 400 точек по вертикали.
Начало отсчета

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

400 точек

640 точек

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

(0;0)

х

у

Слайд 4 Управление экраном
SetWindowWidth(w) –
Устанавливает ширину графического окна;
SetWindowHeight(h)

Управление экраномSetWindowWidth(w) – Устанавливает ширину графического окна; SetWindowHeight(h) - Устанавливает высоту графического окна; ВведениеГраф. примитивыЦвет--стильТекстЛитература

-
Устанавливает высоту графического окна;
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Слайд 5 Очистка графического окна
ClearWindow; - очищает графическое окно белым

Очистка графического окнаClearWindow; - очищает графическое окно белым цветом.ClearWindow(color); - очищает

цветом.
ClearWindow(color); - очищает графическое окно указанным цветом.
program clear;
uses GraphABC;


begin
ClearWindow;
ClearWindow(clMoneyGreen);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 6 Графические примитивы
Точка
Линия
Прямоугольник
Окружность
Эллипс
Сектор
Дуга
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Графические примитивыТочкаЛинияПрямоугольник ОкружностьЭллипсСекторДугаВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 7 Точка
SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y)

ТочкаSetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом colorprogram tochka;uses GraphABC;beginSetPixel(300,200,clred);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература(300, 200)

цветом color
program tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература
(300, 200)

Слайд 8 Линии
LineTo(x,y) - рисует отрезок от текущего положения пера

ЛинииLineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y);

до точки (x,y); координаты пера при этом также становятся

равными (x,y).

Program liniay;
uses GraphABC;
begin LineTo(300,200);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 9 Линии
Line(x1,y1,x2,y2) - рисует отрезок с началом в точке

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

(x1,y1) и концом в точке (x2,y2).
Program liniay;
uses

GraphABC;
begin
line(100,50,500,250);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 10 Используемые цвета
Random(16777215) – случайный цвет из всей палитры

Используемые цветаRandom(16777215) – случайный цвет из всей палитры цветов ПаскаляВведениеГраф. примитивыЦвет--стильТекстЛитература

цветов Паскаля
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Слайд 11 Цвет линии
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром

Цвет линииSetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.Program liniay;uses GraphABC;begin setpencolor(clred); line(30,30,400,350);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

color.
Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Слайд 12 Толщина линии
SetPenWidth(n) - устанавливает ширину (толщину) пера, равную

Толщина линииSetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay;uses GraphABC;beginsetpenwidth(20);setpencolor(clred);line(30,30,400,350);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

n пикселям.
Program liniay;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(30,30,400,350);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Слайд 13 Треугольник
Рисуется процедурами
Line(x1,y1,x2,y2); LineTo(x,y);
Program treugolnik;
uses GraphABC;
begin
setpenwidth(20);

ТреугольникРисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y); Program treugolnik;uses GraphABC;begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

setpencolor(clred);
line(300,100,500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

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

ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).Program pryamougolnik;uses GraphABC;beginRectangle(50,50,200,200);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

(x1,y1) и (x2,y2).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Слайд 15 Заливка цветом
FloodFill(x,y,color) - заливает область одного цвета цветом

Заливка цветомFloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с

color, начиная с точки (x,y).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Введение
Граф.

примитивы

Цвет--стиль

Текст

Литература

Слайд 16 Цвет и толщина контура
Задаются процедурами
SetPenWidth(w);
SetPenColor(color);
Program pryamougolnik;
uses

Цвет и толщина контураЗадаются процедурами SetPenWidth(w); SetPenColor(color);Program pryamougolnik;uses GraphABC;begin SetPenColor(clred); SetPenWidth(20); Rectangle(50,50,200,200); FloodFill(100,100,clBlue);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

GraphABC;
begin
SetPenColor(clred);
SetPenWidth(20);
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

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

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

(x,y) и радиусом r.
Program circle;
uses GraphABC;
begin
Circle(500,200,100);

FloodFill(500,200,clred);
end.

x1,y1

r

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 18 Эллипс
Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником

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

с координатами противоположных вершин.
Program oval;
uses GraphABC;
begin
Ellipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Ellipse(250,150,550,300);

FloodFill(250+100,150+100,clBlue);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 19 Дуга окружности
Arc(x,y,r,a1,a2) - рисует дугу окружности с центром

Дуга окружностиArc(x,y,r,a1,a2) - рисует дугу окружности с центром в точке (x,y)

в точке (x,y) и радиусом r, заключенной между двумя

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

Program duga;
uses GraphABC;
Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 20 Сектор
Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры

СекторPie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот

процедуры имеют тот же смысл, что и в процедуре

Arc).

Program sector;
uses GraphABC;
begin
Pie(300,200,100,0,90);
FloodFill(310,190,clpink);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 21 Вывод текста в графическое окно
TextOut(x,y,’строка’); - выводит строку

Вывод текста в графическое окноTextOut(x,y,’строка’); - выводит строку текста в позицию

текста в позицию (x,y) (точка (x,y) задает верхний левый

угол прямоугольника, который будет содержать текст).

Program text;
uses GraphABC;
begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clBlue);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 22 Действия со шрифтом
SetFontName(‘name’) – устанавливает наименование шрифта.
SetFontColor(color) -

Действия со шрифтомSetFontName(‘name’) – устанавливает наименование шрифта.SetFontColor(color) - устанавливает цвет шрифта.SetFontSize(sz)

устанавливает цвет шрифта.
SetFontSize(sz) – устанавливает размер шрифта в пунктах.
SetFontStyle(fs)

- устанавливает  стиль шрифта.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 23 Название шрифта
По умолчанию установлен шрифт, имеющий наименование MS

Название шрифтаПо умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее

Sans Serif.
Наиболее распространенные шрифты – это Times, Arial

и Courier New.
Наименование шрифта можно набирать без учета регистра.

Пример:
SetFontName(‘Times’);

Введение

Граф.
примитивы

Цвет--стиль

Операторы

Практика

Слайд 24 Стиль шрифта
Задается именованными константами:
fsNormal – обычный;
fsBold –

Стиль шрифтаЗадается именованными константами:fsNormal – обычный; fsBold – жирный; fsItalic –

жирный;
fsItalic – наклонный;
fsBoldItalic – жирный наклонный;
fsUnderline

– подчеркнутый;
fsBoldUnderline – жирный подчеркнутый;
fsItalicUnderline – наклонный подчеркнутый;
fsBoldItalicUnderline – жирный наклонный подчеркнутый.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 25 Стиль шрифта
Program text;
uses GraphABC;
Begin
SetFontName('Arial');
SetFontSize(20);

Стиль шрифтаProgram text;uses GraphABC;Begin SetFontName('Arial'); SetFontSize(20); SetFontColor(clRed); TextOut(10,10,'обычный'); SetFontStyle(fsItalic); SetFontColor(clBlue); TextOut(10,50,'наклонный');

SetFontColor(clRed);
TextOut(10,10,'обычный');
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,'наклонный');

SetFontStyle(fsBold);
SetFontColor(clpink);
TextOut(10,90,'жирный');
SetFontStyle(fsUnderline);
SetFontColor(clblue);
TextOut(10,130,'подчеркнутый');
SetFontStyle(fsBoldItalicUnderline);
SetFontColor(clred);
TextOut(10,170,'жирный, наклонный, подчеркнутый');
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Слайд 26 Пример 1
Пример
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Пример 1ПримерВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 27 Программа

Программа

Слайд 28 Упражнения

Упражнения
  • Имя файла: modul-graphabc.pptx
  • Количество просмотров: 125
  • Количество скачиваний: 0
- Предыдущая Первый признак равенства треугольников
Следующая - Рисуем котёнка

Похожие презентации

Презентация к уроку Метод статистических испытаний информатика 11 класс углубленный курс Презентация к уроку Метод статистических испытаний информатика 11 класс углубленный курс 180
Архивация данных Архивация данных 144
Сканография Сканография 121
Дослідження та проектування Mondex середовище Дослідження та проектування Mondex середовище 98
Базовые понятия искусственного интеллекта Базовые понятия искусственного интеллекта 126
Контрольная работа по информатике Контрольная работа по информатике 90
Создание и редактирование рисунка Создание и редактирование рисунка 109
Види та функції сучасних медіа Види та функції сучасних медіа 108
Структурные типы данных языка Паскаль Структурные типы данных языка Паскаль 126
Презентация по информатику на тему Қазақстаным менің (6 класс) Презентация по информатику на тему Қазақстаным менің (6 класс) 152
Развитие творческого мышления через проектную деятельность посредством программы Flash Развитие творческого мышления через проектную деятельность посредством программы Flash 120
Схожесть С# с другими языками программирования Схожесть С# с другими языками программирования 131
База данных База данных 135
Проценты вокруг нас! Проценты вокруг нас! 100
Интернет как глобальная информационная система Интернет как глобальная информационная система 104
Разработка системы управления уличным освещением Разработка системы управления уличным освещением 128
Урок информатики Устройства вывода информации Урок информатики Устройства вывода информации 39
Кусочно-заданная функция в Excel Кусочно-заданная функция в Excel 154
Информационные справочные системы Информационные справочные системы 221
Палитра в CorelDraw Палитра в CorelDraw 134
Элективный курс по информатике Исследование информационных моделей Элективный курс по информатике Исследование информационных моделей 143
Администрирование баз данных. Восстановление данных Администрирование баз данных. Восстановление данных 134
Преобразование информации по заданным правилам. ФГОС Преобразование информации по заданным правилам. ФГОС 207
Java Sound API Java Sound API 152
Презентация по теме Разветвляющися алгоритм Презентация по теме Разветвляющися алгоритм 163
Элементы алгебры логики. Математические основы информатики. (8 класс) Элементы алгебры логики. Математические основы информатики. (8 класс) 166
Компьютерный язык Паскаль Компьютерный язык Паскаль 104
Введение в информатику Введение в информатику 131
Презентация к уроку Как в компьютере реализуются вычисления Презентация к уроку Как в компьютере реализуются вычисления 148
Этика в Интернете Этика в Интернете 113