Терезені басқару
SetWindowSize(w,h);
графикалық терезенің өлшемін орнатады
SetWindowWidth(w);
графикалық терезенің енін орнатады
SetWindowHeight(h);
графикалық терезенің биіктігін орнатады
SetWindowTitle('Тақырып');
терезе тақырыбын өзгерту
терезе
ClearWindow;
графикалық терезені ақ түспен тазартады
ClearWindow(түс);
графикалық терезені көрсетілген түспен тазартады.
GraphABC пайдаланады;
БАСТА
ClearWindow;
ClearWindow(clMoneyGreen);
Соңы.
жасыл ақша түсі Графика
примитивтер
Нүкте
Түзу
Тіктөртбұрыш
Шеңбер
Эллипс
сектор
Арк Нүкте
SetPixel(x,y,color);
координаталары бар бір пиксельді бояйды (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);
Соңы. түстер
клАквамарин
clBisque
cl Көк
clBurlyWood
clШоколад
clCornsilk
clDarkBlue
clDarkGray
clDarkMagenta
clDarkОрхидея
clDarkSeaGreen
clDarkFiolet
clDeepSkyBlue
clAzure
clBlack
clBlueFiolet
clCadetBlue
clCoral
cl Crimson
clDarkCyan
clDarkGreen
clDarkOliveGreen
clDarkRed
clDarkSlateBlue
clDeepPink
clDimGray
clБежевый
clАғартылған бадам
clBrown
clChartreuse
cl CornflowerBlue
clCyan
clDarkGoldenrod
clDarkKhaki
clDarkOrange
clҚара көгілдір
clDarkSlateGray
clҚара лосось
clDodgerBlue түстер
clФуксия
clGold
clGreen
clHotPink
clIvory
clLavenderBlush
clLightBlue
clGainsboro
clGoldenrod
clЖасыл сары
clIndianRed
clKhaki
clLawnGreen
clLightCoral
clGhostWhite
clGray
clHoneydew
clIndigo
clLavender
clLemonChiffon
clLightCyan
clLightGoldenrodIe
clАшықСұр
clLightGreen
төмен
clLightPink
clLight Лосось
clLightSeaGreen
clLightSkyBlue
clLightSlateGray
clLightSteelBlue
clLightYellow
clLime
clLimeGreen
clLinen
clMagenta
clMaroon
clMediumAquamari
clОрта көк
clMediumОрхидея
жоқ
clMediumPurple
clMediumSeaGreen clOrtaSlateBlue
clMoneyGreen
cl Өрік
clMistyRose
clRandom - кездейсоқ
бүкіл палитрадан түс
Паскаль түстері Сызық түсі
SetPenColor(түс);
параметрмен көрсетілген қалам түсін орнатады
түс
GraphABC пайдаланады;
БАСТА
SetPenColor(clred);
жол(30,30,400,350);
Соңы. Үзік сызық
SetPenStyle(<…>);
қалам стилін орнатады
GraphABC пайдаланады;
БАСТА
setpencolor(clred);
SetPenWidth(4);
SetPenStyle(psSolid);(Қатты)
Жол(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);
су тасқыны (300,200, cl жасыл);
Соңы. Тіктөртбұрыш
Төртбұрыш(x1,y1,x2,y2);
координаталары арқылы берілген тіктөртбұрышты салады
қарама-қарсы төбелер (x1,y1) және (x2,y2)
x1,y1
x2,y2
GraphABC пайдаланады;
БАСТА
Rectangle(50,50,200,200);
Соңы. Түсті толтыру
FloodFill(x,y,color);
нүктеден бастап бір түсті аймақты түспен толтырады
(x,y)
x1,y1
x2,y2
GraphABC пайдаланады;
БАСТА
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
Соңы. щеткамен толтыру
SetBrushColor(түс);
қылқалам түсін орнатады, жабық күйге дейін созылады
сипаттамасы орнату процедурасына сәйкес келетін схема
қылқалам түстері
GraphABC пайдаланады;
БАСТА
SetBrushColor(clGreen);
Rectangle(50,50,300,300);
Соңы. щеткамен толтыру
SetBrushStyle(<…>);
қылқалам стилінің түрін орнатады
bsSolid
Қатты щетка (сәйкес
әдепкі)
bClear
Мөлдір щетка
bshatch
сызық щеткасы
bsGradient
градиент щеткасы щеткамен толтыру
Қылқаламның штрих мәнерлері санамаланған түр арқылы көрсетіледі
SetBrushHatch(<…>);
Тұрақтылар қылшық штрих мәнерлері үшін анықталған:
GraphABC пайдаланады;
БАСТА
SetBrushStyle(bsHatch);
Авторы
әдепкі
стиль 0-ге орнатылған -
қатты
құю
түс.
SetBrushHatch(bhHorizont
al);
Rectangle(10,10,100,100);
…
Соңы. щеткамен толтыру
Инсульт щеткасы үшін қосымша орнатуға болады
мүлік:
SetHatchBrushBackgroundColor(clGold) ;
GraphABC пайдаланады;
БАСТА
SetBrushStyle(bsHatch);
Авторы
әдепкі
стиль 0-ге орнатылған -
SetHatchBrushBackgroundColor(cl
қатты
құю
Алтын);
түс.
SetBrushColor(clCoral);
SetBrushHatch(bhhorizontal); Контурдың түсі мен қалыңдығы
SetPenWidth(w);
SetPenColor(түс);
GraphABC пайдаланады;
БАСТА
SetPenColor(clred);
SetPenWidth(20);
Rectangle(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,клред);
Эллипс(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);
*
Arc(300,250,150,45,135)
;
Соңы. сектор
Pie(x,y,r,a1,a2);
доғамен шектелген шеңбер секторын салады (параметрлер
процедуралар Arc процедурасындағы сияқты мағынаға ие)
GraphABC пайдаланады;
БАСТА
Пирог(300,200,100,0,90);
Су тасқыны(300+10,200-10,
клАквамарин);
Соңы. Мәтінді шығару
TextOut(x,y,'string');
мәтін жолын (x,y) позициясында шығарады ((x,y) нүктесін көрсетеді
тіктөртбұрыштың жоғарғы сол жақ бұрышы
мәтін)
GraphABC пайдаланады;
БАСТА
TextOut(100,30,"Шаршы");
Rectangle(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,'курсив');
SetFontStyle(fsBold);
SetFontColor(clRandom);
TextOut(10,90,'қалың");
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, "Шаршы");
Rectangle(50,50,200,200);
FloodFill(55,55,clRed);
TextOut(275,30, "Эллипс");
Эллипс(250,50,350,200);
FloodFill(250+50,50+50,clYellow);
Серогодская Н.И. GBOU мектебі №118 SWAO
Графикалық режим
№118 ЖББОМ информатика мұғалімі СВАО
Серогодская Н.И.
Мәскеу қ
№1 сабақ
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Мақсаттар
Оқулықтар:
студенттерді Pascal ABC программалық ортасымен, Паскаль тіліндегі программаның құрылымымен таныстыру;
оқытылатын материалды қолдану бойынша оқушылардың алғашқы білімдерін қалыптастыру.
Әзірлеуші:
талдауға, жалпылауға және жүйелеуге үйрету;
оқушылардың сөздік қорын молайту.
Тәрбиелік:
дамыту ақпараттық мәдениетстуденттердің өз бетінше және ұжымдық әрекетке, рефлексияға қабілеттілігі.
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
- Оқушылар білуі керек:
- GraphPascal ABC ортасындағы негізгі командалар мен функцияларды;
- бағдарламаны құрастыру және пайдалану ережелері;
- Оқушылар білуі керек:
- графикалық примитивтерді салу бағдарламаларын жасау;
- бағдарламамен қажетті әрекеттерді орындау;
- объектілерді салу үшін параметрлері бар және жоқ процедураларды әзірлеу;
- типтік алгоритм конструкцияларына негізделген бағдарламаларды жасау;
- Қосымша:күрделі графикалық есептерді шешу
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Графикалық режимде жұмыс істеу үшін модульді қосу керек GraphABC :
PascalABC графикалық экраны мыналарды қамтиды 640 бойынша ұпай көлденең және 400ұпай тігінен.
Математикадағы координаталық осьтерден айырмашылығы, бастапқы нүкте экранның жоғарғы сол жақ бұрышы екенін ескеріңіз.
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
ЭКРАНДЫ БАСҚАРУ
SetWindowWidth(w) - графикалық терезенің енін орнатады;
SetWindowHeight(h) - графикалық терезенің биіктігін орнатады;
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
ClearWindow; - графикалық терезені ақ түспен тазартады.
ClearWindow(clтүс атауы ); - Көрсетілген түспен графикалық терезені тазартады.
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 ғимарат
Қолданылған түстер
clBlack - қара clКүлгін - күлгін clWhite - ақ clMaroon -Қара қызыл clRed - қызыл clNavy - қара көк clGreen - жасыл clBrown - қоңыр cl Көк - көк clSkyBlue – көк cl сары - сары clCream – крем
clAqua - көгілдір clOlive – зәйтүн clФуксия - сирень clTeal – көк-жасыл clGray - қара сұр clLime - ашық жасыл clMoneyGreen - жасыл ақшаның түсі clLtGray - ашық сұр clDkGray - қара сұр clMedGray - сұр clSilver – күміс
Random(16777215) – бүкіл Паскаль түс палитрасынан кездейсоқ түс
Серогодская Н.И. ГБОУ №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);
су тасқыны(300,200, clSkyBlue) ;
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Тіктөртбұрыш
Тіктөртбұрыш(x1,y1,x2,y2) - қарама-қарсы (x1,y1) және (x2,y2) төбелерінің координаталарымен берілген тіктөртбұрышты салады.).
Бағдарлама pryamougolnik;
Rectangle(50,50,200,200);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Түсті толтыру
FloodFill(x,y,түс) - (x,y) бастап бір түсті аймақты түспен толтырады.
Бағдарлама pryamougolnik;
Rectangle(50,50,200,200);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
щеткамен толтыру
SetBrushColor(түс) - щетканың түсін орнатады.
Щетканы толтыру дейін созылады жабық цикл , оның сипаттамасы қылқалам түсін орнату процедурасына сәйкес келеді.
zalivka_kist бағдарламасы;
SetBrushColor( clMoneyGreen);
Rectangle(50,50,300,300);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
щеткамен толтыру
SetBrushStyle(0-ден 7-ге дейінгі сан немесе тақырып) - сан немесе символдық константа арқылы берілген қылқалам стилін орнатады.
p12_filling бағдарламасы;
GraphABC пайдаланады;
SetBrushColor(clAqua);
SetBrushStyle(1);
Rectangle(10,10,100,100);
SetBrushColor(clRed);
SetBrushStyle(2);
Rectangle(110,10,200,100);
SetBrushColor(clBlue);
SetBrushStyle(3);
Rectangle(210,10,300,100);
SetBrushColor(clGreen);
SetBrushStyle(4);
Rectangle(10,110,100,210);
SetBrushColor(clYellow);
SetBrushStyle(5);
Rectangle(110,110,200,210);
SetBrushColor(clBlack);
SetBrushStyle(6);
Rectangle(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);
Rectangle(50,50,200,200);
FloodFill(100,100, clSkyBlue);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Шеңбер
Шеңбер(x,y,r) - радиусы r болатын (x,y) центрінде шеңбер сызады .
Шеңбер(500,200,100);
Су тасқыны(500,200, clGreen);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Эллипс
Эллипс(x1,y1,x2,y2) - қарама-қарсы (x1,y1) және (x2,y2) төбелерінің координаталары бар оның сызылған тіктөртбұрышымен берілген эллипсті салады.
Эллипс(50,50,200,350);
FloodFill(50+100,50+100,клред);
Эллипс(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
шеңбер доғасы
Доға(x,y,r,a1,a2)- Центрі (x,y) және радиусы r ОК осімен a1 және a2 бұрыштарын құрайтын екі сәуленің арасымен қоршалған шеңбер доғасын салады. (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 ғимарат
Әдебиеттер тізімі
- Федоренко Ю. Турбо Паскаль тіліндегі алгоритмдер мен программалар .
- Фаронов В.В. Турбо Паскаль 7.0. Бастау курсы. - Білім, 1998. -620 б.
- Грызлов В.И., Грызлова Т.П. Турбо Паскаль 7.0. – М.: «ДМК», 2000. – 416 б.
- Зуев Е.А. Turbo Pascal 6.0 программалау тілі. - М.: Юнитех, 1992. - 298 ж., сырқат.
- Зуев Е.А. ТурбоПаскаль. Практикалық бағдарламалау .
Серогодская Н.И. ГБОУ №1 орта мектеп 2 ғимарат
Назарларыңызға рахмет!
Бағдарламалау ортасындағы графика
ТурбоПаскаль
ОӘК оқытушысы: Неверова И.Ю.
Сабақ жоспары:
- Турбо Паскаль программалау ортасында графикалық режимді қосу ерекшеліктері
- Бағдарламаның құрылымын құрастыру
- Процедуралар координаталарын есептеу
- Контурмен сурет салу және бояумен толтыру ерекшеліктері
- Үлгі бағдарламаларға шолу
И.Г. Семакин, А.П. Шестаков. Бағдарламалау негіздері, 88-98, 398-409 б.
Турбо Паскаль тілінің графикалық мүмкіндіктері – Graph кітапханасы
- Графикалық кітапхананың қосылуы бағдарламада келесі процедурамен белгіленеді:
- Экранның графикалық режимін орнату үшін процедураны пайдаланыңыз:
InitGraph(Var драйвері, режим: бүтін сан, жол: жол);
Графикалық кітапханаға жол
Жүргізуші режимі
Драйвер коды
Графикалық бағдарламаның жұмыс режимдері
- Мәтіндік режим. Бағдарлама жазу үшін қолданылады. Бағдарламаның мәтіндік режимінен графикалық бағдарламаны орындау режиміне көшу RUN процедурасы арқылы немесе Ctrl+F9 пернелерін басу арқылы жүзеге асырылады.
- Графикалық режим. Кескін жеке нүктелерден (пикселдерден) құрастырылады. VGAHi графикалық драйверінің жұмыс режимі 640x480 пиксельдік графикалық торға сәйкес келеді, палитрасы 16 түсті, драйвер түрін автоматты түрде анықтау және графикалық режимді орнату. Enter пернесі арқылы бағдарламадан мәтіндік режимге шығыңыз.
Бағдарлама құрылымы
ricunok бағдарламасы; (бағдарлама атауы)
Graph пайдалану; (графикалық кітапханаға қосылу)
Var Dr , Md: бүтін ; (драйвер айнымалыларының сипаттамасы)
Begin (бағдарлама мәтінінің басы)
Dr:= Detect ; (жүргізуші түрі)
InitGraph(Dr , Md ,‘ C:\ TP 70\ BGI '); (сызбаны көмегімен белсендіру
графикалық кітапхана)
Readln; (бағдарламаның кешігуі)
Соңы. (Бағдарламаның Соңы)
Геометриялық фигураларды шығару процедуралары үшін координаталарды есептеу
Жолақ(50,100,150,150)
Filllipse(250,125,25,25)
VGA типті монитор
Графикалық процедураларды қолдану
Жапон туын ортасында қызыл шеңбермен ақ түспен көрсететін бағдарлама
көгілдір экран фонында.
VarDr, Md: бүтін сан;
InitGraph(Dr, Md, 'C:\TP70\BGI');
ClearView порты; (Экранды тазалау, экран фонын орнату үшін)
SetBkColor(Cyan); (Экранның фон түсін көгілдір етіп орнату)
SetFillStyle(1, 15); (Тіктөртбұрышты бояу және үлгі бойынша бояу)
Жолақ(10, 10, 410, 210); (Координаталары бойынша толтырылған тіктөртбұрыш салу)
setcolor(4); (Дөңгелек сызықтарының түсін орнату)
Шеңбер(210, 110, 30); (Ортасының координатасы мен радиусы бар шеңбер салу)
SetFillStyle(1, 4); (Дөңгелек түсі үлгі және түс бойынша толтыру)
FloodFill(200, 100, 4); (Тұйық фигураның түсін координаттың айналасында шекараларға дейін толтыру)
Readln; (бағдарламаның кешігуі)
Жабу диаграммасы ; (графикалық режимнен шығу)
Соңы. (бағдарламаның соңы)
Блок-схеманы көрсететін бағдарлама
vardr,md:бүтін;
start dr:=анықтау;
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"
Бағдарламаның орындалу нәтижесі
Келесі суретті көрсететін программаны жазыңыз
Paravoz бағдарламасы;
vardr,md:бүтін;
start dr:=анықтау;
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. GraphAbc бағдарламасының tochka модулін қосуды көрсету; 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Көк - көк clSkyBlue - көк clСары - сары
слайд 4
Координаталары (120,150) және (150,80) қызыл түсті қаламмен екі нүктені қосатын түзуді сызуға арналған бағдарлама келесідей болуы мүмкін: 2-мысал. Линии сызық сызу бағдарламасын көрсету; graphabc қолданады; startsetwindowsize(640,480); setpencolor(clred); (қаламның түсін қызылға орнатады) сызық(120,150,300,100); ((120,150) бастап (300,100) дейін кесіндіні сызады) соңы.
слайд 5
Мысал 3. Треуголник бағдарламасының әртүрлі қалам түстерімен сызу сызықтарын көрсету; graphabc қолданады; startsetwindowsize(640,480); setpenwidth(5); (ағымдағы қаламның енін орнатады. Жолдың енін құрайтын пикселдер саны жақшада көрсетілген) setpencolor(clred); (қаламның түсін қызылға орнатады) сызық(100,200,170,70); (координаталары (100,200) нүктеден координаталары (170,70) болатын нүктеге кесінді салады) setpencolor(clGreen); (қаламның түсін жасылға орнатады) жол(170,70,250,200); ((170,70) нүктесінен(250,200) нүктесіне дейін сызық сызады) setpencolor(clBlue); (қаламның түсін көк етіп орнатады) line(250,200,100,200);((250,200) нүктеден (100,200) нүктеге дейін сызық сызады) (нәтижесінде қабырғалары әртүрлі түсті үшбұрыш пайда болады) аяқталады.
слайд 6
Есте сақтау маңызды: 1. Сызық сызу кезінде оның өлшемін (ұштарының координаталарын), түсін, енін (қалыңдығын) және стилін орнатуға болады. 2. GraphAbc модулінде сызық стилін орнату үшін SetPenStyle (Стиль) процедурасы бар, мұнда Стиль қалам стилінің тұрақтылары болып табылады (3-тарауға қосымшаны қараңыз). 3. Сызық тұтас, нүктелі, штрих-нүкте, үзік болуы мүмкін. Жабық фигураларды бояуға болады.
Слайд 7
Мысал 4. Тұйық фигураларды сызықтар арқылы салуды көрсету және оларды бояу Treug_zakrash бағдарламасы; graphabc қолданады; startsetwindowsize(640,480); clearwindow(clWhite);(графикалық терезені ақ тазартады) setpenwidth(3); (ағымдағы қаламның енін белгілейді) setpenstyle(pssolid); (сызық мәнерін тұтас сызыққа орнатады) setpencolor(clgreen);(қаламның түсін жасылға орнатады) line(100,200,170,70); (жасыл түспен сызықтар сызады) сызық(170,70,250,200); жол(250,200,100,200); су тасқыны(440,120,клред); (Үшбұрышты қызылға бояйды) аяқталады.
Слайд 8
Бағдарламаның орындалу нәтижесінде графикалық терезеде монитор экранында жасыл түспен сызылған және қызыл түспен толтырылған үшбұрыш пайда болады. 2. Толтыру(x, y, c) процедурасында толтырылатын фигураның ішкі аймағына міндетті түрде түсуі керек нүктенің координатасын (x, y) көрсетіңіз.
Слайд 9
Тіктөртбұрыштар мен шеңберлерді сәйкесінше rectangle(x1,y1,x2,y2) және circle(x,y,r) командалары арқылы салуға болады. Мұны қалай жасауға болады, тіктөртбұрыш пен шеңбер сызатын бағдарламаның мысалын қарастырыңыз. Мысал 5. Тіктөртбұрыш пен шеңбер сызу бағдарламасының геометриясын көрсету; graphabc қолданады; startsetwindowsize(640,480); setpencolor(clBlue); (тіктөртбұрыштың контурын көк түске салу үшін қалам түсін орнатады) setpenwidth(6); (қаламның енін орнатады) rectangle(50,50,250,150);(қарсы төбенің координаталарымен берілген тіктөртбұрышты салады) setpencolor(clred); (шеңбер контурын қызылға салу үшін қалам түсін орнатады) шеңбер(350,100,60); (радиусы 60) центрінде (350,100) шеңбер сызады.
Слайд 10
Тіктөртбұрыш пен шеңберді және олардың жазуларын толтыруды көрсету геометрия3; graphabc қолданады; startsetwindowsize(640,480); clearwindow(clYellow);(фон түсін сарыға орнатады) setpencolor(clteal); (қаламның көк-жасыл түсін орнатады) setpenwidth(5); (сызық енін орнатады) setbrushcolor(cloive);(қылқалам зәйтүн түсін орнатады) тіктөртбұрыш(100,100,300,200); (зәйтүн түсті тіктөртбұрыш салады) setbrushcolor(clblue);(қылқалам түсін көк етіп орнатады) шеңбер(400,150,50); (көк түспен толтырылған шеңбер сызады) setfontstyle(fsbold);(қаріп мәнерін орнатады) setfontsize(15);(қаріп өлшемін орнатады) setbrushcolor(clwhite);(қылқалам түсін ақ етіп орнатады) setfontcolor(clolive);(орнатады) қаріп түсі олив) мәтіндік мәтін (100,220, "Тіктөртбұрыш"); (жазба жасайды) setfontcolor(clblue); (қаріп түсін көк етіп орнатады) textout(380,220,"Шеңбер"); (жазба жасайды) аяқталады.
слайд 11
ABC Pascal графикалық процедуралары: 1. SetPixel(x,y,color: integer); - координаталары (x,y) бар бір пиксельді түсті бояумен бояйды. 2. Жол(x1,y1,x2,y2: бүтін); - (x1,y1) нүктесінен (x2,y2) нүктесіне кесінді салады. 3. Шеңбер(x,y,r: бүтін сан); - радиусы r болатын (x,y) центрінде шеңбер сызады. 4. Төртбұрыш(x1,y1,x2,y2: бүтін сан); -қарсы (x1,y1) және (x2,y2) төбелерінің координаталарымен берілген тіктөртбұрышты салады. 5. TextOut(x,y: integer; s: string); - s жолын (x,y) позициясына басып шығарады (нүкте (x,y) s жолындағы мәтінді қамтитын тіктөртбұрыштың сол жақ жоғарғы бұрышын көрсетеді). 6. FloodFill(x,y,color: integer); - (x, y) нүктесінен бастап бір түсті аймақты түс түсімен толтырады. 7. FillRect(x1,y1,x2,y2: integer); - қарама-қарсы (x1,y1) және (x2,y2) төбелерінің координаталарымен көрсетілген тіктөртбұрышты ағымдағы щетканың түсімен толтырады.
слайд 12
Бұл программаларды орындау нәтижесінде монитор экранында не көрсетіледі? бағдарлама графикасы1; graphabc қолданады; startsetpenwidth(10); setpencolor(clred); Жол(100,100,270,90); Соңы. Program graphica2; graphabc қолданады; startsetpenwidth(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, color) – ауданын толтырады. (x,y) нүктесінен бастап бірдей түсті түсті түсі.
Барлық слайдтарды көру