«Паскаль АВС ба?дарламасында графиктік обьектілерді программалау»
СабаKтыS таKырыбы: ПаскальАВС баCдарламасында графиктік объектілерді программалау
СабаKтыS маKсаты:
Білімділік - ОKушыларды ПаскальАВС программалау тілінде Kолданылатын графиктік объектілер aCымымен таныстыру, ондаCы т_рлі операторларды оKушы санасында Kалыптастыру, олармен жaмыс жасауCа баулу.
ДамытушылыK – ОKушылардыS белсенділігі мен біліктілігін, ізденімпаздыK даCдыларын Kалыптастыру, графиктік операторларды пайдаланып компьютер экранында кескіндерді шыCаратын программаларды Kaрып жaмыс істеуін дамыту.
Т‰рбиелік – ОKушыларды аKпараттыK м‰дениеттілікке, ™зін - ™зі басKаруCа ж‰не баCалауCа т‰рбиелеу.
СабаKтыS т_рі: Білімді меSгерту
СабаKтыS ‰дісі: Баяндау, сaраK жауап , практикалыK жaмыс орындау
СабаKтыS к™рнекілігі: Таратпа кеспелер, компьютер, графопроектор
СабаKтыS барысы
`йымдастырылу кезеSі
оKушылармен с‰лемдесу
келмеген оKушыларды белгілеу
сабаKKа дайындыCын, Kaралдарын тексеру
^йге берілген тапсырманы сaрау
Jандай алгоритм циклдік алгоритм деп аталады?
Циклдік программа Kaру _шін Kандай операторларды KолдануCа болады?
ЦиклдіS Kандай т_рлері бар?
ДЕЙІН циклі деп Kандай циклді айтамыз?
ЖаSа сабаKты т_сіндіру
Pascal ABC программасындаCы графика
Pascal ABC баCдарламасында графиктік процедураларды енгізу _шін GraphABC модулі Kолданылады, арнайы процедуралар мен функцияларды пайдаланып н_кте, т_зу, шеSбер, тікбaрыш ж‰не басKа фигураларды салуCа болады.
uses GraphABC баCдарламаныS бірінші т_сінігі, графиктік режімді орнатады. SetPixel(x,y,color) - (x,y) координатасы бойынша color т_спен н_кте салады. Line(x1,y1,x2,y2) - (x1,y1) н_ктесінен (x2,y2) н_ктесіне дейін т_зу кесіндісін салады. SetPenColor(color) - color т_сі бойынша KаламныS т_сін орнатады..SetPenWidth(n) - n н_ктеге теS KаламныS KалыSдыCын орнатады. Rectangle(x1,y1,x2,y2) - (x1,y1) ,(x2,y2) коорд. бойынша тікбaрыштар салады. FloodFill(x,y,color) -(x,y) н_ктесінен бастап color т_спен ауданды бояйды. SetBrushColor(color) – тaйыK ауданды бояйды.Ellipse(x1,y1,x2,y2) -(x1,y1) ж‰не (x2,y2) т™белері бойынша эллипс салады.Circle(x,y,r) - (x,y) центрі r радиусы болатын шеSбер сызады. Паскаль тілінде пайдаланылатын т_стер:
0 50 100 150 Х
50
100
Y
Н_кте салу
0 50 100 150 Х
50
100
У
Т_зу кесінді салу
0 50 100 150 Х
50
100
Тікт™ртбaрыш салу
0 50 100 150 200 Х
50
100
150
Y
ШеSбер салу
0 50 100 150 Х
50
100
· Y
13 EMBED PowerPoint.Slide.12 1415
13 EMBED PowerPoint.Slide.12 1415
СабаKты Kорытындылау:
ГрафикалыK операторлар Kандай Kызмет атKарады?
Графиктік режімді Kалай орнатамыз ?
CIRCLE операторы Kандай Kызмет атKарады?
LINE операторы экранда Kандай кескіндер салады?
RECTANGLE операторы экранда Kандай кескін салады?
^йге тапсырма: Паскаль АВС программасында графиктік объектілерді программалау
ГрафикалыK режім теріс декарттыK ж_йесін пайдаланады.
Х осі солдан оSCа Kарай (640) ,
У осі жоCарыдан т™мен Kарай (480)
™згеріп отырады.
Есептеу (0,0) – ден басталады
Мысалы, экранда Kызыл ж‰не жасыл н_ктелер шыCарудыS программасы
Program nukteler;
Uses GraphABC;
Begin
SetPixel(25,50,clRed) ;
SetPixel(100,100,clGreen) ;
End.
Мысалы экранда сары т_спен кесінді салу керек
Program kesindi;
Uses GraphABC;
Begin
SetpenWidth(3);
SetpenColor(clYellow);
Line(50,100,125,25);
End.
Y
Мысалы экранда кок контурлы, іші Kою Kызыл т_ске боялCан тікт™ртбaрыш салу
Program tortburush;
Uses GraphABC;
Begin
SetpenWidth(3);
SetpenColor(clGreen);
SetbrushColor(clMaroon);
Rectangle(50,50,150,100);
End.
Мысалы экранда шеSберлер салу
Program tortburush;
Uses GraphABC;
Begin
SetpenWidth(3);
SetpenColor(clRed);
SetbrushColor(clYellow);
Circle(100,125,75);
SetbrushColor(clAqua);
Circle(100,125,50);
SetbrushColor(clBrown);
Circle(100,125,25);
End.
clAqua – ашыK к™к clOlive – з‰йт_н т_стесclFuchsia – сирен т_стесclTeal – жасыл к™кclGray – к_Sгірт, Kою сaрclLime – ашыK жасылclMoneyGreen – жасыл аKша т_сі clLtGray – ашыK сaрclDkGray – Kою сaрclMedGray – сaрclSilver – к_міс т_стес
clBlack – KараclPurple – фиолетовый clWhite – аKclMaroon – Kою Kызыл clRed – Kызыл clNavy – Kою к™кclGreen – жасылclBrown – KоSырclBlue – к™к clSkyBlue – ашыK к™кclYellow – сары
clCream – ашыK KоSыр
Root Entry