X
Код презентации скопируйте его
Модуль GraphABC
Скачать эту презентацию
Презентация на тему Модуль GraphABC
Скачать эту презентациюCлайд 1
Введение Граф. примитивы Цвет--стиль Текст Литература Графика в PascalABC Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 2
Графический режим Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали. Начало отсчета – левый верхний угол экрана 400 точек 640 точек Введение Граф. примитивы Цвет--стиль Текст Литература (0;0) х у Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 3
Графические примитивы Точка Линия Прямоугольник Окружность Эллипс Сектор Дуга Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 4
Очистка графического окна ClearWindow; - очищает графическое окно белым цветом. ClearWindow(color); - очищает графическое окно указанным цветом. program clear; uses GraphABC; begin ClearWindow; ClearWindow(clMoneyGreen); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 5
Точка SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color program tochka; uses GraphABC; begin SetPixel(300,200,clred); end. Введение Граф. примитивы Цвет--стиль Текст Литература (300, 200) Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 6
Упражнения
Cлайд 7
Линии Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). Program liniay; uses GraphABC; begin line(100,50,500,250); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана x1,y1 x2,y2
Cлайд 8
Цвет линии SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color. Program liniay; uses GraphABC; begin setpencolor(clred); line(30,30,400,350); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 9
Толщина линии SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(30,30,400,350); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 10
Треугольник Рисуется процедурами 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 11
Прямоугольник Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана x1,y1 x2,y2
Cлайд 12
Заливка цветом FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y). Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана x1,y1 x2,y2
Cлайд 13
Цвет и толщина контура Задаются процедурами SetPenWidth(w); SetPenColor(color); Program pryamougolnik; uses GraphABC; begin SetPenColor(clred); SetPenWidth(20); Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 14
Окружность Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. Program circle; uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end. x1,y1 r Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 15
Эллипс 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 16
Дуга окружности 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 17
Сектор Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc). Program sector; uses GraphABC; begin Pie(300,200,100,0,90); FloodFill(310,190,clpink); end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 18
Вывод текста в графическое окно 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 19
Действия со шрифтом SetFontName(‘name’) – устанавливает наименование шрифта. SetFontColor(color) - устанавливает цвет шрифта. SetFontSize(sz) – устанавливает размер шрифта в пунктах. SetFontStyle(fs) - устанавливает стиль шрифта. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 20
Название шрифта По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial и Courier New. Наименование шрифта можно набирать без учета регистра. Пример: SetFontName(‘Times’); Введение Граф. примитивы Цвет--стиль Операторы Практика Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 21
Стиль шрифта Задается именованными константами: fsNormal – обычный; fsBold – жирный; fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline – подчеркнутый; fsBoldUnderline – жирный подчеркнутый; fsItalicUnderline – наклонный подчеркнутый; fsBoldItalicUnderline – жирный наклонный подчеркнутый. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 22
Стиль шрифта 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 23
Пример 1 Пример Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана
Cлайд 24
Программа
Cлайд 25
Cлайд 26
Cлайд 27
Cлайд 28
Cлайд 29
