Презентация на тему Графика в PascalABC

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

Графический режим Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали. Начало отсчета – левый верхний угол экрана 400 точек 640 точек Введение Граф. примитивы Цвет--стиль Текст Литература (0,0) х у Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

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

Очистка графического окна ClearWindow, - очищает графическое окно белым цветом. ClearWindow(color), - очищает графическое окно указанным цветом. program clear, uses GraphABC, begin ClearWindow, ClearWindow(clMoneyGreen), end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

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

Упражнения

Линии Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). Program liniay, uses GraphABC, begin line(100,50,500,250), end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана x1,y1 x2,y2

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

Толщина линии SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay, uses GraphABC, begin setpenwidth(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, begin Rectangle(50,50,200,200), end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана x1,y1 x2,y2

Заливка цветом 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

Цвет и толщина контура Задаются процедурами 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. Program circle, uses GraphABC, begin Circle(500,200,100), FloodFill(500,200,clred), end. x1,y1 r Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Эллипс 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Дуга окружности 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Сектор Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc). Program sector, uses GraphABC, begin Pie(300,200,100,0,90), FloodFill(310,190,clpink), end. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Вывод текста в графическое окно 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Действия со шрифтом SetFontName(‘name’) – устанавливает наименование шрифта. SetFontColor(color) - устанавливает цвет шрифта. SetFontSize(sz) – устанавливает размер шрифта в пунктах. SetFontStyle(fs) - устанавливает  стиль шрифта. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Название шрифта По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial и Courier New. Наименование шрифта можно набирать без учета регистра. Пример: SetFontName(‘Times’), Введение Граф. примитивы Цвет--стиль Операторы Практика Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Стиль шрифта Задается именованными константами: fsNormal – обычный, fsBold – жирный, fsItalic – наклонный, fsBoldItalic – жирный наклонный, fsUnderline – подчеркнутый, fsBoldUnderline – жирный подчеркнутый, fsItalicUnderline – наклонный подчеркнутый, fsBoldItalicUnderline – жирный наклонный подчеркнутый. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

Стиль шрифта 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. Введение Граф. примитивы Цвет--стиль Текст Литература Пункт плана Пункт плана Пункт плана Пункт плана Пункт плана

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

Программа