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

Пункт плана Подключение дополнительных библиотек Для работы в графическом режиме необходимо подключение модуля GraphABC. Первой инструкцией программы должна быть инструкция uses GraphABC; Введение Граф. примитивы Граф. примитивы Текст Литература

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

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

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

Пункт плана Графические примитивы 1. Точка 2. Линия 3. Прямоугольник 4. Окружность 5. Эллипс 6. Сектор 7. Дуга Введение Граф. примитивы Граф. примитивы Текст Литература

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

Пункт плана Линии LineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). Program liniay; uses GraphABC; begin LineTo(300,200); end. x,y Введение Граф. примитивы Граф. примитивы Текст Литература

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

Пункт плана Используемые цвета clBlack – черный clPurple – фиолетовый clWhite – белый clMaroon – темно- красный clRed – красный clNavy – темно-синий clGreen – зеленый clBrown – коричневый clBlue – синий clSkyBlue – голубой clYellow – желтый clCream – кремовый clAqua – бирюзовый clOlive – оливковый clFuchsia – сиреневый clTeal – сине-зеленый clGray – темно-серый clLime – ярко-зеленый clMoneyGreen – цвет зеленых денег clLtGray – светло-серый clDkGray – темно-серый clMedGray – серый clSilver – серебряный Random( ) – случайный цвет из всей палитры цветов Паскаля Введение Граф. примитивы Граф. примитивы Текст Литература

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

Программа 27

Упражнения 28