ПВнкт ение а у в ед п л

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

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

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

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

Clear. Window(color); - графическое окно указанным цветом. Пункт плура Л и те р а т а н а program clear; uses Graph. ABC; begin Clear. Window; Clear. Window (cl. Money. Green); end. Пун. Те кстана кт пл Цвет зеленых денег очищает Цвет--стиль Пункт плана белым цветом. Г раф. Пункт плана п р и м и ти в ы Clear. Window; - очищает графическое окно ПВнкт ение а у в ед п л ан Очистка графического окна

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

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

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

x 1, y 1 Пун. Те кстана кт пл x 2, y 2 Program liniay; uses Graph. ABC; begin line(100, 500, 250); end. Цвет--стиль Пункт плана - рисует отрезок с началом в точке (x 1, y 1) и концом в точке (x 2, y 2). Г раф. Пункт плана п р и м и ти в ы Line(x 1, y 1, x 2, y 2) ПВнкт ение а у в ед п л ан Линии Пункт плура Л и те р а т а н а

Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Random(16777215) – случайный цвет из всей палитры цветов Паскаля Цвет--стиль Пункт плана cl. Aqua – бирюзовый cl. Olive – оливковый cl. Fuchsia – сиреневый cl. Teal – сине-зеленый cl. Gray – темно-серый cl. Lime – ярко-зеленый cl. Money. Green – цвет зеленых денег cl. Lt. Gray – светлосерый cl. Dk. Gray – темносерый cl. Med. Gray – серый cl. Silver – серебряный Г раф. Пункт плана п р и м и ти в ы cl. Black – черный cl. Purple – фиолетовый cl. White – белый cl. Maroon – темнокрасный cl. Red – красный cl. Navy – темно-синий cl. Green – зеленый cl. Brown – коричневый cl. Blue – синий cl. Sky. Blue – голубой cl. Yellow – желтый cl. Cream – кремовый ПВнкт ение а у в ед п л ан Используемые цвета

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

Пун. Те кстана кт пл Пункт плура Л и те р а т а н а program prim; uses Graph. ABC; begin Setpencolor(clred); Set. Pen. Style(1); {1 - длинный штрих} Line(10, 100, 350, 100); Set. Pen. Style(2); {2 - короткий штрих} Line(10, 125, 350, 125); Set. Pen. Style(3); {3 - штрихпунктир} Line(10, 150, 350, 150); end. Цвет--стиль Пункт плана устанавливает стиль пера, задаваемый номером. Г раф. Пункт плана п р и м и ти в ы Set. Pen. Style(<номер от 1 до 6>); - ПВнкт ение а у в ед п л ан Пунктирная линия

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

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

x 1, y 1 Пун. Те кстана кт пл x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); end. Цвет--стиль Пункт плана прямоугольник, заданный координатами противоположных вершин (x 1, y 1) и (x 2, y 2). Г раф. Пункт плана п р и м и ти в ы Rectangle(x 1, y 1, x 2, y 2) - рисует ПВнкт ение а у в ед п л ан Прямоугольник Пункт плура Л и те р а т а н а

Заливка цветом ПВнкт ение а у в ед п л ан Flood. Fill(x, y, color) - заливает область Г раф. Пункт плана п р и м и ти в ы x 1, y 1 Пун. Те кстана кт пл x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. Цвет--стиль Пункт плана одного цвета цветом color, начиная с точки (x, y). Пункт плура Л и те р а т а н а

Заливка кистью ПВнкт ение а у в ед п л ан Set. Brush. Color(color) – Г раф. Пункт плана п р и м и ти в ы Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program zalivka_kist; uses Graph. ABC; Begin Set. Brush. Color(cl. Green); Rectangle(50, 300, 300); end. Цвет--стиль Пункт плана устанавливает цвет кисти. Заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.

Цвет--стиль Пункт плана Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program p 12_zalivka; uses Graph. ABC; Begin Set. Brush. Color(cl. Aqua); Set. Brush. Style(1); Rectangle(10, 100, 100); Set. Brush. Color(cl. Red); Set. Brush. Style(2); Rectangle(110, 200, 100); Set. Brush. Color(cl. Blue); Set. Brush. Style(3); Rectangle(210, 300, 100); Set. Brush. Color(cl. Green); Set. Brush. Style(4); Rectangle(10, 100, 210); Set. Brush. Color(cl. Yellow); end. Г раф. Пункт плана п р и м и ти в ы Set. Brush. Style(номер от 0 до 7 или название) - устанавливает стиль кисти, задаваемый номером или символической константой. ПВнкт ение а у в ед п л ан Заливка кистью

Пун. Те кстана кт пл uses Graph. ABC; begin Set. Brush. Picture('brush 4. b mp'); Ellipse(0, 0, 640, 400); end. Цвет--стиль Пункт плана устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется. Г раф. Пункт плана п р и м и ти в ы Set. Brush. Picture(‘fname’) - ПВнкт ение а у в ед п л ан Заливка кистью Пункт плура Л и те р а т а н а

Цвет--стиль Пункт плана Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program pryamougolnik; uses Graph. ABC; begin Set. Pen. Color(clred); Set. Pen. Width(20); Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. Г раф. Пункт плана п р и м и ти в ы Задаются процедурами Set. Pen. Width(w); Set. Pen. Color(color); ПВнкт ение а у в ед п л ан Цвет и толщина контура

Окружность ПВнкт ение а у в ед п л ан Circle(x, y, r) - рисует окружность с Г раф. Пункт плана п р и м и ти в ы x 1, y 1 Пун. Те кстана кт пл r Program circle; uses Graph. ABC; begin Circle(500, 200, 100); Flood. Fill(500, 200, clred); end. Цвет--стиль Пункт плана центром в точке (x, y) и радиусом r. Пункт плура Л и те р а т а н а

Цвет--стиль Пункт плана Пун. Те кстана кт пл Program oval; uses Graph. ABC; begin Ellipse(50, 200, 350); Flood. Fill(50+100, clred); Ellipse(250, 150, 550, 300); Flood. Fill(250+100, 150+100, cl. Blue ); end. Г раф. Пункт плана п р и м и ти в ы Ellipse(x 1, y 1, x 2, y 2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин. ПВнкт ение а у в ед п л ан Эллипс Пункт плура Л и те р а т а н а

Дуга окружности ПВнкт ение а у в ед п л ан Arc(x, y, r, a 1, a 2) - Рисует дугу окружности с Г раф. Пункт плана п р и м и ти в ы Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program duga; uses Graph. ABC; Begin Set. Pen. Width(10); Arc(300, 250, 150, 45, 135); end. Цвет--стиль Пункт плана центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a 1 и a 2 с осью OX (a 1 и a 2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Пун. Те кстана кт пл Program sector; uses Graph. ABC; begin Pie(300, 200, 100, 0, 90); Flood. Fill(300+10, 200 -10, cl. Aqua); end. Цвет--стиль Пункт плана - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc). Г раф. Пункт плана п р и м и ти в ы Pie(x, y, r, a 1, a 2) ПВнкт ение а у в ед п л ан Сектор Пункт плура Л и те р а т а н а

Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program text; uses Graph. ABC; begin Text. Out(100, 30, 'Квадрат'); Rectangle(50, 200, 200); Flood. Fill(55, cl. Blue); end. Цвет--стиль Пункт плана текста в позицию (x, y) (точка (x, y) задает верхний левый угол прямоугольника, который будет содержать текст). Г раф. Пункт плана п р и м и ти в ы Text. Out(x, y, ’строка’); - выводит строку ПВнкт ение а у в ед п л ан Вывод текста в графическое окно

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

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

Цвет--стиль Пункт плана Пун. Те кстана кт пл fs. Normal – обычный; fs. Bold – жирный; fs. Italic – наклонный; fs. Bold. Italic – жирный наклонный; fs. Underline – подчеркнутый; fs. Bold. Underline – жирный подчеркнутый; fs. Italic. Underline – наклонный подчеркнутый; fs. Bold. Italic. Underline – жирный наклонный подчеркнутый. Г раф. Пункт плана п р и м и ти в ы Задается именованными константами: ПВнкт ение а у в ед п л ан Стиль шрифта Пункт плура Л и те р а т а н а

Г раф. Пункт плана п р и м и ти в ы Цвет--стиль Пункт плана Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program text; uses Graph. ABC; Begin Set. Font. Name(‘Arial’); Set. Font. Size(20); Set. Font. Color(cl. Red); Text. Out(10, ‘обычный'); Set. Font. Style(fs. Italic); Set. Font. Color(cl. Blue); Text. Out(10, 50, ‘наклонный'); Set. Font. Style(fs. Bold); Set. Font. Color(Random(16777215)); Text. Out(10, 90, ‘жирный'); Set. Font. Style(fs. Underline); Set. Font. Color(Random(16777215)); Text. Out(10, 130, ‘подчеркнутый'); Set. Font. Style(fs. Bold. Italic. Underline); Set. Font. Color(Random(16777215)); Text. Out(10, 170, ’жирный, наклонный, подчеркнутый'); end. ПВнкт ение а у в ед п л ан Стиль шрифта

ПВнкт ение а у в ед п л ан Используемые цвета Г раф. Пункт плана п р и м и ти в ы Пун. Те кстана кт пл можно задавать и с помощью функции RGB(r, g, b) где r, g и b – целые числа в диапазоне от 0 до 255. Функция возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю составляющие с интенсивностями r, g и b соответственно (0 соответствует минимальной интенсивности, 255 – максимальной). RGB(255, 255) – соответствует белому цвету. RGB(0, 0, 0) – соответствует черному цвету. Цвет--стиль Пункт плана Цвет Пункт плура Л и те р а т а н а

ПВнкт ение а у в ед п л ан Используемые цвета Г раф. Пункт плана п р и м и ти в ы Цвет--стиль Пункт плана Пун. Те кстана кт пл Program color; uses Graph. ABC; begin Clearwindow(rgb(200, 150, 250)); Text. Out(93, 30, ' Квадрат '); Rectangle(50, 200, 200); Flood. Fill(55, cl. Red); Text. Out(275, 30, ' Эллипс'); Ellipse(250, 350, 200); Flood. Fill(250+50, cl. Yellow); end. Пункт плура Л и те р а т а н а

Цвет--стиль Пункт плана Пун. Те кстана кт пл Пункт плура Л и те р а т а н а Program text 2; uses Crt, Graph. ABC; begin clrscr; hidecursor; {скрывает текстовый курсор} goto. XY(12, 3); write(‘Квадрат'); Rectangle(50, 200, 200); Flood. Fill(55, cl. Yellow); end. Г раф. Пункт плана п р и м и ти в ы Текст можно вывести с помощью операторов Gotoxy(x, y) и Write(‘текст’), подключив дополнительно модуль Crt. ПВнкт ение а у в ед п л ан Вывод текста в графическое окно

ПВнкт ение а у в ед п л ан Загрузка готового рисунка Г раф. Пункт плана п р и м и ти в ы Пун. Те кстана кт пл загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n; если файл не найден, то возникает ошибка времени выполнения. Загружать можно рисунки в формате. bmp, . jpg или . gif. Цвет--стиль Пункт плана Load. Picture(fname) n: =Load. Picture(fname) – Пункт плура Л и те р а т а н а

ПВнкт ение а у в ед п л ан Вывод рисунка в графическое окно Г раф. Пункт плана п р и м и ти в ы Draw. Picture(n, x, y); Пун. Те кстана кт пл uses Graph. ABC; var pic: integer; begin pic: =Load. Picture('demo. bmp'); Draw. Picture(pic, 10); Destroy. Picture(pic); end. Цвет--стиль Пункт плана Выводит рисунок с описателем n в позицию (x, y) графического окна. Пункт плура Л и те р а т а н а

ПВнкт ение а у в ед п л ан Сохранение созданного рисунка Г раф. Пункт плана п р и м и ти в ы Пун. Те кстана кт пл Сохраняет рисунок с описателем n в файл с именем fname. Рисунки можно сохранять в формате. bmp, . jpg или. gif. Цвет--стиль Пункт плана Save. Picture(n, ‘fname’) - Пункт плура Л и те р а т а н а

Г раф. Пункт плана п р и м и ти в ы Цвет--стиль Пункт плана Пун. Те кстана кт пл Пункт плура Л и те р а т а н а 1. Окулов, С. М. Основы программирования / С. М. Окулов. – 3 -е изд. – М. : БИНОМ. Лаборатория знаний, 2006. – 440 с. 2. Окулов, С. М. Задачи по программированию / С. М. Окулов, Т. В. Ашихмина, Н. А. Бушмелева и др; Под ред. С. М. Окулова. – М. : БИНОМ. Лаборатория знаний, 2006. – 820 с. 3. Семакин, И. Г. Основы программирования: Учебник / И. Г. Семакин, А. П. Шестаков. – М. : Матерство; НМЦ СПО; Высшая школа, 2002. – 432 с. 4. Семакин, И. Г. Основы алгоритмизации и программирования: учебник для студ. учреждений сред. проф. образования / И. Г. Семакин, А. П. Шестаков. — 3 -е изд. , стер. — М. : Издательский центр «Академия» , 2012. — 400 с. 5. Фаронов, В. В. Turbo Pascal: Учебное пособие / В. В. Фаронов. – СПб. : Питер, 2007. – 367 с. ПВнкт ение а у в ед п л ан Список литературы