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

Содержание

Слайд 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(color); -

Очистка графического окна

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

графическое окно указанным цветом.

program clear;
uses GraphABC;
begin
ClearWindow;
ClearWindow(clMoneyGreen);
end.

Введение

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

Цвет--стиль

Текст

Литература

Слайд 6

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

Графические примитивы

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

Введение

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

Цвет--стиль

Текст

Литература

Слайд 7

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

Точка

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

program tochka;
uses

GraphABC;
begin
SetPixel(300,200,clred);
end.

Введение

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

Цвет--стиль

Текст

Литература

(300, 200)

Слайд 8

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

Линии

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

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

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

Введение

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

Цвет--стиль

Текст

Литература

Слайд 9

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

Линии

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

в точке (x2,y2).

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

Введение

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

Цвет--стиль

Текст

Литература

Слайд 10

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

Используемые цвета

Random(16777215) – случайный цвет из всей палитры цветов Паскаля

Введение

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

Цвет--стиль

Текст

Литература

Слайд 11

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

Цвет линии

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

Program liniay;
uses GraphABC;
begin

setpencolor(clred);
line(30,30,400,350);
end.

Введение

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

Цвет--стиль

Текст

Литература

Слайд 12

Толщина линии SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program

Толщина линии

SetPenWidth(n) - устанавливает ширину (толщину) пера, равную 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); setpencolor(clred);

Треугольник

Рисуется процедурами
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.

Введение

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

Цвет--стиль

Текст

Литература

Слайд 14

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

Прямоугольник

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

Program

pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.

Введение

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

Цвет--стиль

Текст

Литература

Слайд 15

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

Заливка цветом

FloodFill(x,y,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 GraphABC;

Цвет и толщина контура

Задаются процедурами
SetPenWidth(w);
SetPenColor(color);

Program pryamougolnik;
uses GraphABC;
begin
SetPenColor(clred);
SetPenWidth(20);

Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.

Введение

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

Цвет--стиль

Текст

Литература

Слайд 17

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

Окружность

Circle(x,y,r) - рисует окружность с центром в точке (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) - рисует дугу окружности с центром в точке (x,y)

Дуга окружности

Arc(x,y,r,a1,a2) - рисует дугу окружности с центром в точке (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)

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

Введение

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

Цвет--стиль

Текст

Литература

Слайд 23

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

Название шрифта

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

распространенные шрифты – это Times, Arial и Courier New.
Наименование шрифта можно набирать без учета регистра.
Пример:
SetFontName(‘Times’);

Введение

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

Цвет--стиль

Операторы

Практика

Слайд 24

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

Стиль шрифта

Задается именованными константами:

fsNormal – обычный;
fsBold – жирный;
fsItalic –

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

Введение

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

Цвет--стиль

Текст

Литература

Слайд 25

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

Стиль шрифта

Program text;
uses GraphABC;
Begin
SetFontName('Arial');
SetFontSize(20);
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

Упражнения

Упражнения