Контрол на прозореца
SetWindowSize(w, h);
задава размера на графичния прозорец
SetWindowWidth(w);
задава ширината на графичния прозорец
SetWindowHeight(h);
задава височината на графичния прозорец
SetWindowTitle('Заглавие');
промяна на заглавието на прозореца
прозорец
ClearWindow;
изчиства графичния прозорец с бяло
ClearWindow(цвят);
изчиства графичния прозорец с посочения цвят.
използва GraphABC;
започвам
ClearWindow;
ClearWindow(clMoneyGreen);
край.
зелен цвят на парите Графичен
примитиви
Точка
Линия
Правоъгълник
кръг
Елипса
Сектор
Дъга Точка
SetPixel(x,y,цвят);
рисува един пиксел с координати (x,y)
цвят
използва GraphABC;
започвам
SetPixel(300,200,clred);
край. линии
LineTo(x,y);
чертае линия от текущата позиция на писалката до точка
(x,y)
стават и координатите на писалката
равно на (x,y)
x,y
използва GraphABC;
Започнете
LineTo(300 200);
край. линии
Преместване на(x,y);
задава текущата позиция на чертеж
точка (x,y)
x1,y1
x2,y2
използва GraphABC;
Започнете
Преместване към (150,50);
LineTo(500,250);
край. линии
Линия (x1,y1,x2,y2);
чертае линеен сегмент, започващ от (x1,y1) и завършващ
в точката (x2,y2)
x1,y1
x2,y2
използва GraphABC;
започвам
линия (100,50,500,250);
край. цветове
clАквамарин
clBisque
cl Синьо
clBurlyWood
clШоколад
clCornsilk
clТъмносиньо
cl Тъмносив
clТъмномагента
clDarkOrchid
clDarkSeaGreen
clТъмновиолетово
clDeepSkyBlue
clAzure
clЧерен
clBlueViolet
clCadetBlue
clКорал
cl Crimson
clТъмноциан
cl Тъмнозелено
cl Тъмномаслиненозелено
clТъмночервено
clDarkSlateBlue
clDeepPink
clDimGray
clБежово
clБланширани бадеми
clBrown
clШартрьоз
clCarnflowerBlue
clCyan
clDarkGoldenrod
clТъмнокаки
clТъмнооранжево
cl Тъмнотюркоаз
clDarkSlateGray
clТъмна сьомга
clDodgerBlue цветове
clFuchsia
clGold
clЗелено
clHotPink
слонова кост
clLavenderBlush
clLightBlue
clGainsboro
cl Goldenrod
clЗеленоЖълто
clIndianRed
clKhaki
clLawnGreen
clLightCoral
clGhostWhite
clGray
cl Медена роса
clIndigo
clЛавандула
clLemonChiffon
clСветлоциан
clLightGoldenrodYe
clСветлосив
clСветлозелено
llow
clСветлорозово
clLightSalmon
clLightSeaGreen
clLightSkyBlue
clLightSlateGray
clLightSteelBlue
clСветложълто
clLime
clLimeGreen
clLinen
clMagenta
clMaroon
clMediumAquamari
clСредноСиньо
clСредна орхидея
не
clСреднолилаво
clMediumSeaGreen clMediumSlateBlue
clMoneyGreen
clPlum
clMistyRose
clRandom - случаен
цвят от цялата палитра
Паскал цветове Цвят на линията
SetPenColor(цвят);
задава цвета на писалката, определен от параметъра
цвят
използва GraphABC;
започвам
SetPenColor(clred);
линия (30,30,400,350);
край. Пунктирана линия
SetPenStyle(<…>);
задава стил на писалка
използва GraphABC;
започвам
setpencolor(clred);
SetPenWidth(4);
SetPenStyle(psSolid);(Solid)
Линия (10,75,350,75);
SetPenStyle(psDash);(Щрих)
Линия (10,100,350,100);
SetPenStyle(psDot); (точка)
Линия (10,125,350,125);
SetPenStyle(psDashDot); (тире-точка)
Линия (10,150,350,150);
SetPenStyle(psDashDotDot);
(Алтернативна пунктирана линия)
Линия (10,175,350,175);
край. Дебелина на линията
SetPenWidth(n);
задава ширината (дебелината) на писалката на n
пиксели
използва GraphABC;
започвам
setpenwidth(20);
setpencolor(clred);
линия (30,30,400,350);
край. Триъгълник
Линия (x1,y1,x2,y2);
LineTo(x,y);
използва GraphABC;
започвам
setpenwidth(20);
setpencolor(clred);
линия (300,100,500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
край. Правоъгълник
Правоъгълник (x1,y1,x2,y2);
чертае правоъгълник, зададен с координати
противоположни върхове (x1,y1) и (x2,y2)
x1,y1
x2,y2
използва GraphABC;
започвам
правоъгълник (50,50,200,200);
край. Цветно запълване
FloodFill(x,y,цвят);
запълва област от същия цвят с цвят, започвайки от точка
(x,y)
x1,y1
x2,y2
използва GraphABC;
започвам
правоъгълник (50,50,200,200);
FloodFill(100,100,clBlue);
край. запълване с четка
SetBrushColor(цвят);
задава цвят на четката, разширява се до затворено
верига, чието описание следва процедурата за инсталиране
цветове на четката
използва GraphABC;
Започнете
SetBrushColor(clGreen);
правоъгълник (50,50,300,300);
край. запълване с четка
SetBrushStyle(<…>);
задава типа стил на четката
bsSolid
Плътна четка (според
по подразбиране)
bsClear
Прозрачна четка
bshatch
четка за линии
bsГрадиент
градиентна четка запълване с четка
Стиловете на мазка на четката се определят от изброения тип
SetBrushHatch(<…>);
Константите са дефинирани за стилове на щрихи на четка:
използва GraphABC;
Започнете
SetBrushStyle(bsHatch);
от
по подразбиране
стилът е зададен на 0 -
твърдо
наливане
цвят.
SetBrushHatch(bhHorizont
al);
правоъгълник (10,10,100,100);
…
край. запълване с четка
За четка за инсулт можете допълнително да зададете
Имот:
SetHatchBrushBackgroundColor(clGold) ;
използва GraphABC;
Започнете
SetBrushStyle(bsHatch);
от
по подразбиране
стилът е зададен на 0 -
SetHatchBrushBackgroundColor(cl
твърдо
наливане
злато);
цвят.
SetBrushColor(clCoral);
SetBrushHatch(bhHorizontal); Цвят и дебелина на контура
SetPenWidth(w);
SetPenColor(цвят);
използва GraphABC;
започвам
SetPenColor(clred);
SetPenWidth(20);
правоъгълник (50,50,200,200);
FloodFill(100,100,clBlue);
край. кръг
кръг (x,y,r);
чертае кръг с център (x,y) и
радиус r
r
x1,y1
използва GraphABC;
започвам
кръг (500,200,100);
FloodFill(500,200,clred);
край. Елипса
Елипса(x1,y1,x2,y2);
чертае елипса според описаното
правоъгълник с координати на противоположната
върхове (x1,y1) и (x2,y2).
x1,y
1
x1,y
1
използва GraphABC;
започвам
Елипса (50,50,200,350);
FloodFill(50+100,50+100,clred);
Елипса (250,150,550,300);
FloodFill(250+100,150+100,clBlue);
край.
x2,y
2
x2,y
2дъга от окръжност
Arc(x,y,r,a1,a2);
чертае кръгова дъга с център (x,y) и радиус r,
затворен между два лъча, образуващи ъгли a1 и a2
с оста OX (a1 и a2 са реални, посочени в градуси и
броено обратно на часовниковата стрелка)
r
x,y
използва GraphABC;
Започнете
SetPenWidth(10);
*
Дъга (300,250,150,45,135)
;
край. Сектор
Пай (x,y,r,a1,a2);
чертае сектор от кръг, ограничен от дъга (параметри
процедурите имат същото значение като в процедура Arc)
използва GraphABC;
започвам
Пай (300,200,100,0,90);
FloodFill(300+10,200-10,
clАквамарин);
край. Текстов изход
TextOut(x,y,'низ');
извежда ред текст на позиция (x,y) (точка (x,y) указва
горния ляв ъгъл на правоъгълника, който ще съдържа
текст)
използва GraphABC;
започвам
TextOut(100,30,"Квадрат");
правоъгълник (50,50,200,200);
FloodFill(55,55,clBlue);
край. Действия с шрифтове
SetFontName('име');
задава името на шрифта
SetFontColor(цвят);
задава цвета на шрифта
SetFontSize(sz);
задава размера на шрифта в точки
SetFontStyle(fs);
задава стила на шрифта Име на шрифта
Шрифтът по подразбиране е зададен на
Име MS Sans Serif
Най-често срещаните шрифтове са
Times New Roman, Arial и Courier New
Името на шрифта може да бъде въведено без да се взема предвид
регистрирам
Например:
SetFontName('Times New Roman'); Стил на шрифта
fsNormal - нормално
Определени от наименувани константи:
fsBold - получер
fsItalic - курсив
fsBoldItalic - удебелен курсив
fsUnderline - подчертано
fsBoldUnderline - удебелено подчертаване
fsItalicUnderline - подчертаване с курсив
fsBoldItalicUnderline - подчертаване с удебелен курсив Например:
използва GraphABC;
Започнете
SetFontName('Arial');
SetFontSize(20);
SetFontColor(clRed);
TextOut(10,10,'обикновен");
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,'Italic');
SetFontStyle(fsBold);
SetFontColor(clRandom);
TextOut(10,90,'bold");
SetFontStyle(fsUnderline);
SetFontColor(clRandom);
TextOut(10,130,'подчертано');
SetFontStyle(fsBoldItalicUnderline);
SetFontColor(clRandom);
TextOut(10,170,'удебелен, курсив, подчертан");
край. Използвани
цветове
Цветът може да се зададе и чрез функцията
RGB(r,g,b), където r, g и b са цели числа
диапазон от 0 до 255.
Функцията връща целочислена стойност, която е
цветен код, който съдържа червено, зелено и
сини компоненти с интензитет r, g и b
съответно (0 съответства на минимума
интензитет, 255 - максимум).
RGB(255,255,255) - съвпадения
бял цвят.
RGB(0,0,0) - съответства на черен цвят. Например:
използва GraphABC;
започвам
clearwindow(rgb(200,150,250));
TextOut(93,30, "Квадрат");
правоъгълник (50,50,200,200);
FloodFill(55,55,clRed);
TextOut(275,30," Елипса");
Елипса (250,50,350,200);
FloodFill(250+50,50+50,clYellow);
Серогодская Н.И. GBOU училище №118 SWAO
Графичен режим
Учител по информатика GBOU училище №118 SWAO
Серогодская Н.И.
град Москва
Урок 1
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
цели
Уроци:
да запознае студентите със софтуерната среда Pascal ABC, със структурата на програмата на Pascal;
да формира първичните знания на учениците за прилагането на изучения материал.
Разработване:
да научи да анализира, обобщава и систематизира;
обогатява речника на учениците.
Образователни:
развиват се информационна култураученици, способност за самостоятелна и колективна дейност, рефлексия.
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
- Студентите трябва да знаят:
- основни команди и функции в среда GraphPascal ABC;
- правила за проектиране и работа на програмата;
- Студентите трябва да могат да:
- разработват програми за рисуване на графични примитиви;
- извършване на необходимите действия с програмата;
- разработване на процедури с и без параметри за чертане на обекти;
- разработват програми, базирани на типични алгоритъмни конструкции;
- Допълнително:решаване на по-сложни графични проблеми
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
За да работите в графичен режим, трябва да свържете модула Графика ABC :
Графичният екран PascalABC съдържа 640 точки от хоризонтално и 400точки вертикално.
Моля, имайте предвид, че началото е горният ляв ъгъл на екрана, за разлика от координатните оси в математиката
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
УПРАВЛЕНИЕ НА ЕКРАНА
SetWindowWidth(w) - задава ширината на графичния прозорец;
SetWindowHeight(h) - задава височината на графичния прозорец;
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
ClearWindow; - изчиства графичния прозорец с бял цвят.
ClearWindow (климе на цвят ); - Изчиства графичния прозорец с посочения цвят.
ClearWindow(clMoneyGreen);
зелен цвят на парите
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Графични примитиви
- Точка
- Линия
- Правоъгълник
- кръг
- Елипса
- Сектор
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
SetPixel(x,y,clиме на цвят ) - рисува един пиксел в координати (x,y,) с цвят
SetPixel(300,200,clred);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
LineTo(x,y) - чертае сегмент от текущата позиция на писалката до точката (x,y); координатите на писалката също стават равни на (x,y).
beginLineTo(300,200);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
линии
Линия (x1,y1,x2,y2) - чертае отсечка с начало в точка (x1,y1) и край в точка (x2,y2).
линия (100,50,500,250);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Използвани цветове
clЧерен - черно clPurple - виолетово clWhite - бяло clMaroon - Тъмно червено clRed - червен clNavy - тъмно синьо clЗелено - зелено clBrown - кафяво cl Синьо - син clSkyBlue - син clЖълто - жълто clCream – крем
clAqua - тюркоаз clOlive – маслина clFuchsia - люляк clTeal - синьозелено clGray - тъмно сив clLime - ярко зелено clMoneyGreen - цветът на зелените пари clLtGray - светло сиво clDkGray - тъмно сив clMedGray - сиво clСребро – сребро
Random(16777215) - произволен цвят от цялата цветова палитра на Pascal
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Цвят на линията
SetPenColor(цвят) - задава цвета на писалката, зададен от параметъра цвят .
setpencolor(clred);
линия (30,30,400,350);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Пунктирана линия
SetPenStyle(); -
задава стила на писалката, определен от числото.
setpencolor(clred);
SetPenStyle(1); (1 - дълъг ход)
Линия (10,100,350,100);
SetPenStyle(2); (2 - къс ход)
Линия (10,125,350,125);
SetPenStyle(3); (3 - тире-пунктирана линия)
Линия (10,150,350,150);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Дебелина на линията
SetPenWidth(n) - задава ширината (дебелината) на писалката на n пиксела.
setpenwidth(20);
setpencolor(clred);
линия (30,30,400,350);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Триъгълник
Начертан от процедури
Линия (x1,y1,x2,y2); LineTo(x,y);
Програма treugolnik;
setpenwidth(20);
setpencolor(clPurple);
линия (300,100,500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200, clSkyBlue) ;
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Правоъгълник
Правоъгълник (x1,y1,x2,y2) - чертае правоъгълник, даден от координатите на противоположни върхове (x1,y1) и (x2,y2).
Програма pryamougolnik;
правоъгълник (50,50,200,200);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Цветно запълване
FloodFill(x,y,цвят) - запълва област от същия цвят с цвят, започвайки от (x,y).
Програма pryamougolnik;
правоъгълник (50,50,200,200);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
запълване с четка
SetBrushColor(цвят) - задава цвета на четката.
Запълването на четката се простира до затворен контур , чието описание следва процедурата за настройка на цвета на четката.
Програма zalivka_kist;
SetBrushColor( clMoneyGreen);
правоъгълник (50,50,300,300);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
запълване с четка
SetBrushStyle (число от 0 до 7 или заглавие) - задава стила на четката, зададен от число или символна константа.
Програма p12_filling;
използва GraphABC;
SetBrushColor(clAqua);
SetBrushStyle(1);
правоъгълник (10,10,100,100);
SetBrushColor(clRed);
SetBrushStyle(2);
правоъгълник (110,10,200,100);
SetBrushColor(clBlue);
SetBrushStyle(3);
правоъгълник (210,10,300,100);
SetBrushColor(clGreen);
SetBrushStyle(4);
правоъгълник (10,110,100,210);
SetBrushColor(clYellow);
SetBrushStyle(5);
Правоъгълник (110,110,200,210);
SetBrushColor(clBlack);
SetBrushStyle(6);
правоъгълник (210,110,300,210);
Стилът по подразбиране е 0 - запълване с плътен цвят.
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
запълване с четка
SetBrushPicture('fname') -
задава модела, съхранен във файл fname, като шаблон на четката,докато текущият цвят на четката се игнорира при рисуване.
започнете SetBrushPicture("brush4.bmp"); Елипса (0,0,640,400);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Цвят и дебелина на контура
определени от процедурите SetPenWidth(w); SetPenColor(цвят);
Програма pryamougolnik;
SetPenColor(clred);
SetPenWidth(20);
правоъгълник (50,50,200,200);
FloodFill(100,100, clSkyBlue);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
кръг
Окръжност (x,y,r) - чертае окръжност с център (x,y) с радиус r .
кръг (500,200,100);
FloodFill(500 200, clЗелено);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Елипса
Елипса(x1,y1,x2,y2) - чертае елипса, зададена от описания правоъгълник с координати на противоположни върхове (x1,y1) и (x2,y2).
Елипса (50,50,200,350);
FloodFill(50+100,50+100,clred);
Елипса (250,150,550,300);
FloodFill(250+100,150+100,clBlue);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
дъга от окръжност
Arc(x,y,r,a1,a2)- Чертае дъга от окръжност с център в точката (x,y) и с радиус r, затворен между два лъча, образуващи ъгли a1 и a2 с оста OX (a1 и a2 са реални, посочени в градуси и преброени обратно на часовниковата стрелка).
SetPenWidth(10);
Arc(300,250,150,45,135);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Сектор
Пай (x,y,r,a1,a2) - чертае кръгов сектор, ограничен от дъга (параметрите на процедурата имат същото значение като в процедурата Arc).
Пай (300,200,100,0,90);
FloodFill(300+10,200-10,clAqua);
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Библиография
- Федоренко Ю. Алгоритми и програми в Turbo Pascal .
- Фаронов В.В. Турбо Паскал 7.0. Начален курс. - Знание, 1998. -620 с.
- Гризлов В.И., Гризлова Т.П. Турбо Паскал 7.0. - М.: "DMK", 2000. - 416 с.
- Зуев Е.А. Език за програмиране Turbo Pascal 6.0. - М .: Unitech, 1992. - 298s., ил.
- Зуев Е.А. TurboPascal. Практическо програмиране .
Серогодская Н.И. ГБОУ средно училище №1 корпус 2
Благодаря за вниманието!
Графика в програмната среда
TurboPascal
Учител по EADC: Неверова И.Ю.
План на урока:
- Характеристики на свързване на графичния режим в средата за програмиране Turbo Pascal
- Изготвяне на структурата на програмата
- Изчисляване на координати за процедури
- Характеристики на рисуване с контур и запълване с цвят
- Преглед на примерни програми
И.Г. Семакин, А.П. Шестаков. Основи на програмирането, стр.88-98, 398-409.
Графични характеристики на езика Turbo Pascal - библиотека Graph
- Свързването на графичната библиотека е предписано в програмата по процедурата:
- За да зададете графичния режим на екрана, използвайте процедурата:
InitGraph(Var Driver, Mode: Integer, Path: String);
Път до графична библиотека
Режим на водача
Код на водача
Режими на работа на графичната програма
- Текстов режим. Използва се за писане на програма. Преходът от текстовия режим на програмата към графичния режим на изпълнение на програмата се извършва чрез процедурата RUN или чрез натискане на Ctrl+F9.
- Графичен режим. Изображението се изгражда от отделни точки (пиксели). Режимът на работа на графичния драйвер VGAHi съответства на графична мрежа от 640x480 пиксела, с палитра от 16 цвята, автоматично разпознаване на типа драйвер и настройка на графичния режим. Излезте от програмата в програмен текстов режим с клавиша Enter.
Структура на програмата
Програма ricunok ; (заглавие на програмата)
Използвайте графика; (връзка с графична библиотека)
Var Dr, Md: цяло число; (описание на променливите на драйвера)
Начало (начало на тялото на програмата)
Dr:= Откриване ; (тип драйвер)
InitGraph(Dr , Md ,‘ C:\ TP 70\ BGI ’); (активиране на графики с
библиотека с графики)
Readln ; (програмно забавяне)
край. (край на програмата)
Изчисляване на координати за процедури за извеждане на геометрични форми
Бар (50,100,150,150)
Filellipse (250,125,25,25)
Монитор тип VGA
Използване на графични процедури
Програма, която показва японското знаме в бяло с червен кръг в центъра
на тюркоазен фон на екрана.
VarDr, Md: Цяло число;
InitGraph(Dr, Md, 'C:\TP70\BGI');
ClearView порт; (Почистване на екрана, за настройка на фона на екрана)
SetBkColor(циан); (Задайте цвета на фона на екрана на циан)
SetFillStyle(1, 15); (Цвят на запълване на правоъгълник по модел и цвят)
Бар (10, 10, 410, 210); (Рисуване на запълнен правоъгълник по координати)
setcolor(4); (Задаване на цвета на кръговите линии)
кръг (210, 110, 30); (Чертане на кръг с централна координата и радиус)
SetFillStyle(1, 4); (Цвят за запълване на кръг по модел и цвят)
FloodFill(200, 100, 4); (Попълване на цвета на затворена фигура около координатата до границите)
Readln ; (програмно забавяне)
Затваряне на графиката; (излезте от графичния режим)
край. (край на тялото на програмата)
Програма, която показва блок-схема
vardr,md:цяло число;
начало др:=откриване;
setlinestyle(0,1,3);
елипса (320,40,0,360,50,10);
линия (320,50,320,70);
линия (270,70,390,70); линия (390,70,370,100); линия (370,100,250,100); линия (250,100,270,70); линия (320,100,320,120);
правоъгълник (260,120,380,150);
линия (320,150,320,170); линия (320,170,400,190); линия (400,190,320,210); линия (320,210,240,190); линия (240,190,320,170);
линия (240,190,200,190); линия (200,190,200,210);
правоъгълник (140,210,260,240);
линия (200,240,200,260);
правоъгълник (140,260,260,290);
линия (200,290,200,310);
Линия (140,310,260,310); Линия (260,310,240,340); Линия (240,340,120,340); Линия (120,340,140,310); линия (200,340,200,360);
линия (200,360,100,360); линия (100,360,100,170); линия (100,170,320,170); линия (400,190,440,190);
линия (440,190,440,380); линия (440,380,320,380); линия (320,380,320,400);
елипса (320,410,0,360,50,10);
settextstyle(7,0,2);
outtextXY(300,75,'F"); outtextXY(300,125,"N:=0"); outtextXY(292,178,'N
Резултатът от изпълнението на програмата
Напишете програма, която показва следната фигура
Програма паравоз;
vardr,md:цяло число;
начало др:=откриване;
initgraph(dr,md,"C:\tp70\bgi");
SetFillStyle(1, 2);
Бар (150,30,250,225);
SetFillStyle(1, 1);
лента (180,55,220,115);
SetFillStyle(1, 2);
Бар (250,120,450,225);
Линия (350,65,390,65);
Линия (350,65,360,120);
Линия (390,65,380,120);
Линия (380,120,360,120);
SetFillStyle(1,1);
Сектор(420,245,0,360,20,20);
Сектор(300,245,0,360,20,20);
Сектор(185,245,0,360,20,20);
SetFillStyle(1,7);
Сектор (400,50,0,360,30,10);
Сектор(425,25,0,360,20,10);
Сектор(445,5,0,360,10,5);
Домашна работа
В учебните тетрадки Тема № 4 изпълнете задачи 1 и 2 за използване на графични процедури.
Таблица на основните графични процедури в Приложение 4.
слайд 2
Всеки пиксел (точка) има две координати: x и y.Геометричните размери на пиксела се определят от резолюцията на монитора.
слайд 3
Пример 1. Демонстрация на свързване на модула tochka на програмата GraphAbc; използва graphabc; (свързване на модула GraphAbc) begin setwindowsize(640,480);(задава размера на графичния прозорец) setpixel(100,120,clBlack); (задава цвета на писалката на черен и рисува точка при координати (100,120)) край. AT този примервидяхме използването на командата setpixel в конкретен случай. AT общ изгледтази команда изглежда така: setpixel (x: integer, y: integer, c: color) - чертае точка с координати (x, y) с цвят c. clЧерно - черно clПурпурно - лилаво clБяло - бяло clЧервено - червено clЗелено - зелено clКафяво - кафяво clСиньо - синьо clНебесно синьо - синьо clЖълто - жълто
слайд 4
Програмата за чертане на линия, свързваща две точки с координати (120,150) и (150,80) с червен цвят на химикала може да изглежда така: Пример 2. Демонстрация на чертане на линия програма Linii; използва graphabc; beginsetwindowsize(640,480); setpencolor(clred); (задава цвета на писалката на червено) line(120,150,300,100); (чертае сегмент от (120,150) до (300,100)) край.
слайд 5
Пример 3. Демонстрация на чертане на линии с различни цветове на писалката програма treugolnik; използва graphabc; beginsetwindowsize(640,480); setpenwidth(5); (задава ширината на текущата писалка. Броят на пикселите, които съставляват ширината на линията, е посочен в скоби) setpencolor(clred); (задава цвета на писалката на червено) line(100,200,170,70); (чертае сегмент от точката с координати (100,200) до точката с координати с координати (170,70)) setpencolor(clGreen); (задава цвета на писалката на зелен) line(170,70,250,200); (чертае линия от point(170,70) до point(250,200)) setpencolor(clBlue); (задава цвета на писалката на син) line(250,200,100,200);(чертае линия от point(250,200) до point(100,200)) (резултира в триъгълник със страни в различни цветове) end.
слайд 6
Важно е да запомните: 1. Когато чертаете линия, можете да зададете нейния размер (координати на краищата), цвят, ширина (дебелина) и стил. 2. За да зададете стила на линията в модула GraphAbc, има процедура SetPenStyle (Style), където Style са константи на стила на писалката (вижте Приложението към Глава 3). 3. Линията може да бъде плътна, пунктирана, тире-пунктирана, прекъсната. Затворените фигури могат да бъдат боядисани.
Слайд 7
Пример 4. Демонстрация на рисуване на затворени форми с помощта на линии и тяхното рисуване Програма treug_zakrash; използва graphabc; beginsetwindowsize(640,480); clearwindow(clWhite);(изчиства графичния прозорец бял) setpenwidth(3); (задава ширината на текущата писалка) setpenstyle(pssolid); (задава стила на линията на плътна линия) setpencolor(clgreen);(задава цвета на писалката на зелено) line(100,200,170,70); (чертае линии в зелено) line(170,70,250,200); линия (250,200,100,200); floodfill(440,120,clred); (Оцветява триъгълник в червено) край.
Слайд 8
В резултат на изпълнението на програмата на екрана на монитора в графичния прозорец ще се появи триъгълник, начертан в зелено и запълнен в червено. 2. В процедурата floodfill(x,y,c) посочете координатата на точката (x,y), която задължително трябва да попадне във вътрешната област на фигурата, която се запълва.
Слайд 9
Правоъгълници и кръгове могат да бъдат начертани с помощта на командите съответно rectangle(x1,y1,x2,y2) и circle(x,y,r). Как да направите това, разгледайте примера на програма, която рисува правоъгълник и кръг. Пример 5. Демонстрация на чертане на геометрия на програма за правоъгълник и кръг; използва graphabc; beginsetwindowsize(640,480); setpencolor(clBlue); (задава син цвят на писалката за изчертаване на очертанията на правоъгълника) setpenwidth(6); (задава ширина на писалката) rectangle(50,50,250,150);(чертае правоъгълник, даден от противоположните координати на върха) setpencolor(clred); (задава цвета на писалката за изчертаване на контура на кръга в червено) circle(350,100,60); (чертае кръг с център (350,100) с радиус 60) край.
Слайд 10
Демонстрация на запълване на правоъгълник и кръг и техните надписи програма geometry3; използва graphabc; beginsetwindowsize(640,480); clearwindow(clYellow);(задава цвета на фона на жълт) setpencolor(clteal); (задава синьо-зелен цвят на писалката) setpenwidth(5); (задава ширината на линията) setbrushcolor(clolive);(задава маслинения цвят на четката) rectangle(100,100,300,200); (начертава правоъгълник с цвят на маслина) setbrushcolor(clblue);(задава цвета на четката на син) кръг(400,150,50); (начертава кръг със син цвят) setfontstyle(fsbold);(задава стила на шрифта) setfontsize(15);(задава размера на шрифта) setbrushcolor(clwhite);(задава цвета на четката на бяло) setfontcolor(clolive);(задава цветът на шрифта до маслинено) textout (100,220,"Правоъгълник"); (прави надпис) setfontcolor(clblue); (задава цвета на шрифта на син) textout(380,220,"Circle"); (прави надпис) край.
слайд 11
Графични процедури ABC Pascal: 1. SetPixel(x,y,color: integer); - рисува един пиксел с координати (x,y) с цветен цвят. 2. Линия (x1,y1,x2,y2: цяло число); - чертае отсечка от точка (x1,y1) до точка (x2,y2). 3. Окръжност (x,y,r: цяло число); - чертае окръжност с център (x,y) с радиус r. 4. Правоъгълник (x1,y1,x2,y2: цяло число); -чертае правоъгълник, даден от координатите на противоположните върхове (x1,y1) и (x2,y2). 5. TextOut(x,y: цяло число; s: низ); - отпечатва низ s на позиция (x,y) (точка (x,y) определя горния ляв ъгъл на правоъгълника, който ще съдържа текста от низ s). 6. FloodFill(x,y,цвят: цяло число); - запълва област от същия цвят с цвета на цвета, като се започне от точката (x, y). 7. FillRect(x1,y1,x2,y2: цяло число); - запълва правоъгълника, определен от координатите на срещуположните върхове (x1,y1) и (x2,y2) с цвета на текущата четка.
слайд 12
Какво ще се покаже на екрана на монитора в резултат на изпълнението на тези програми? програмна графика1; използва graphabc; beginsetpenwidth(10); setpencolor(clred); Линия (100,100,270,90); край. Програма graphica2; използва graphabc; beginsetpenwidth(8); setpencolor(clblue); кръг (200,150,50); край.
слайд 13
Препишете в тетрадка: Предмет: Графични особености на езика за програмиране. 1. Линия(x1,y1,x2,y2; - сегмент от (x1,y1) до (x2,y2). 2. Окръжност(x, y, r); - окръжност с център в (x,y) и радиус r. 3. Rectangle(x1,y1,x2,y2) - правоъгълник, определен от координатите на противоположните върхове (x1,y1) и (x2,y2) 4. FloodFill(x, y, цвят) - запълва област от същият цвят цвят цвят, като се започне от точката (x,y).
Вижте всички слайдове