Сабақтың тақырыбы: Pascalabc программалау тілінің графикалық мүмкіндіктері. Сабақтың мақсаты
end. Pascal ABC –дағы анимация Шардың суретін салу
жүктеу/скачать 347,95 Kb.
|
- Бұл бет үшін навигация:
- Жыпылықтағын шардың қозғалысы
- Смайликтердің суретін салу. Әр қайсысын әр түрлі оқушылар салады: Сонда 6 түрлі смайликтер салынады. Program
- Үйге тапсырма
- Сабақ аяқталды сау болыңыздар. Сабаққа белсене араласқандарыңызға көп рахмет.
- Қосымша тапсырмаларды жеке орындап келу немесе факультатив сабақтарында шығартуға болады.
end. Pascal ABC –дағы анимация Шардың суретін салу. uses GraphABC; var I,X,Y,D: integer; begin
X:=20; Y:=30; D:=100; ClearWindow; SetBrushColor(clGreen); Ellipse(X+I,Y,X+I+D,Y+D); end.
Жыпылықтағын шардың қозғалысы uses GraphABC; var I,X,Y,D: integer; begin
X:=20; Y:=30; D:=100; for i:=1 to 500 do begin ClearWindow; SetBrushColor(clGreen); Ellipse(X+I,Y,X+I+D,Y+D); Sleep(1); end;
end. LockDrawing – графикалық экранға шығаруды бұғаулайды да тек қана экраннан тыс жерге суретті салуды іске асырады. Redraw –графикалық режимнің терезесі бұғауланған кезде Шығару терезесін қайталап суреттерін салады. 
Смайликтердің суретін салу. Әр қайсысын әр түрлі оқушылар салады: Сонда 6 түрлі смайликтер салынады. Program smailikter; uses GraphABC; var x,y: integer; // координаталар begin SetWindowSize(300,200); // терезе өлшемі // 1 смайлик x:=50;y:=50; TextOut(x-30,y-50,'жымыңдайды'); Circle(x,y,30); FloodFill(x,y,clYellow); Circle(x+10,y-10,7); Circle(x-10,y-10,7); Arc(x,y,20,180,360); x:=150;y:=50; TextOut(x-30,y-50,'көңілсіз'); Circle(x,y,30); FloodFill(x,y,clYellow); Circle(x+10,y-10,7); Circle(x-10,y-10,7); Arc(x,y+20,20,0,180); x:=250;y:=50; TextOut(x-30,y-50,'бейтарап'); Circle(x,y,30); FloodFill(x,y,clYellow); Circle(x+10,y-10,7); Circle(x-10,y-10,7); Line(x-15,y+10,x+15,y+10); x:=50;y:=150; TextOut(x-30,y-50,'күледі'); Circle(x,y,30); FloodFill(x,y,clYellow); Circle(x+10,y-10,7); Circle(x-10,y-10,7); Arc(x,y,20,180,360); Line(x-20,y,x+20,y); FloodFill(x+1,y+1,clWhite); Line(x-10,y,x-10,y+17); Line(x,y,x,y+20); Line(x+10,y,x+10,y+17); x:=150;y:=150; TextOut(x-30,y-50,'ашулы'); Circle(x,y,30); FloodFill(x,y,clYellow); Circle(x+10,y-10,7); Circle(x-10,y-10,7); Arc(x,y+20,20,0,180); Line(x-20,y+19,x+20,y+19); FloodFill(x+1,y+1,clWhite); Line(x-10,y+3,x-10,y+20); Line(x,y,x,y+20); Line(x+10,y+3,x+10,y+20); Line(x+10,y+10,x-10,y+10); FloodFill(x+2,y+8,clBlack); FloodFill(x-2,y+11,clBlack); x:=250;y:=150; TextOut(x-30,y-50,'ұйқыда'); Circle(x,y,30); FloodFill(x,y,clYellow); Line(x+20,y-10,x+5,y-10); Line(x-20,y-10,x-5,y-10); Line(x-15,y+10,x+15,y+10); end. Бағалау: Компьютердегі жұмыстарын тексеру. Барлық компьютерді көру. Тексеру. Нәтижені талдау. Сергіту сәті: Орындарынан тұрып шеңбер бойынша орналасу, сұрақтарға сай топ болып сұрақтарға жауап: Дұрыс болса: Қол шапалақтау Қате болса: Аяқтарын қозғау Ереже: SetWindowSize - терезенің өлшемін тағайындайтын оператор. (Дұрыс) ClearWindow(түс) экранға координаларына сәйкес нүктенің суретін салады. (Қате) LineTo(x,y) мен Line(x1,y1,x2,y2) кесінді салу опреаторы (Дұрыс) SetPixel(x,y,c) –экранда нүктені белгілеу. (Қате) SetPenColor(түс) SetPenWidth(n) қаламның түсін береді. (Қате) MoveTo(x,y) нүкте салу (Қате) Эллипс немесе тіктөртбұрыш салу үшін x1,y1,x2,y2 тіктөртбұрыштың диагналдарының шеткі нүктелерінің координаталары білу керек. (Дұрыс) FloodFill(x,y,түс) мен SetBrushColor(түс) тұйық ауданның ішін бояу (Дұрыс) SetFontName(‘name’) мен (Дұрыс) SetFontColor(color), SetFontSize(sz), SetFontStyle(fs) мәтінді жазып шығаратын операторлар (Қате) Circle(x,y,r) мен Ellipse(x1,y1,x2,y2)-тіктөртбұрыш пен эллипстің суретін салады. (Қате) Ellipse(x1,y1,x2,y2)-графикалық экранға эллипс суретін салады (Дұрыс) Кері байланыс: 
Сұрақ Бұрыннан білетінім Бүгінгі үйренгенім (Сабақ басында беріп тастаймын) Үйге тапсырма: 1. PascalABC-тағы графикалық операторлар тақырыбын оқу. 2. Есептер: Үшбұрыш тобы: 1. Тік бағытта қозғалған шарды бейнелейтін программа құру керек. 2. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келеді де соқтығысқаннан кейін, жасыл шар тоқтайды да қызыл шар тіке төмен құлайтынын бейнелейтін программаны құру керек.
3. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келіп, соқтығысады да жасыл шар кері бағытқа, ал қызыл шар төмен қарай қозғалатынын бейнелейтін программа құру керек. 4. Тіктөртбұрыштың периметрі бойынша қозғалатын шарды бейнелейтін программа құру керек.
5. Шардың радиустары өзгеріп отыратын программаны құру керек. 6. Тік бағытта қозғалған шар, қабырғаға соқтығысып, көлденең қозғалатын шарды бейнелейтін программа құру керек. Сабақ аяқталды сау болыңыздар. Сабаққа белсене араласқандарыңызға көп рахмет. P.S. Мұғалімдерге көмек ретінде кейбір программаларды құрып көрсетіп отырмын. Қосымша тапсырмаларды жеке орындап келу немесе факультатив сабақтарында шығартуға болады. Тапсырма2. Төмендегі суретті салу программасын құрыңыз.   
Каталог: uploads -> doc -> 06f0 doc -> Сабақтың тақырыбы Бала Мәншүк ( Мәриям Хакімжанова) Сілтеме doc -> Ана тілі №2. Тақырыбы: Кел, балалар, оқылық Мақсаты doc -> Сабақ жоспары «Сәулет және дизайн» кафедрасының арнаулы пән оқытушысы, ҚР «Еуразиялық Дизайнерлер Одағының» мүшесі: Досжанова Галия Есенгелдиевна Пәні: Сурет және сұңғат өнері doc -> Сабақ Сабақтың тақырыбы : Кіріспе Сабақтың мақсаты : «Алаштану» курсының мектеп бағдарламасында алатын орны, Алаш қозғалысы мен Алашорда үкіметі тарихының тарихнамасы мен дерекнамасына қысқаша шолу doc -> Тәрбие сағаттың тақырыбы: Желтоқсан жаңғырығы doc -> Сабақтың тақырыбы : Әбунасыр Әл- фараби Сабақтың мақсаты doc -> Сабақ жоспары Тақырыбы: Үкілі Ыбырай Мектеп:№21ом мерзімі 06f0 -> Сабақтың тақырыбы: «Адамның нашар мінезі» 06f0 -> Литературно – музыкальный творческий вечер Тақырыбы: «Созвучие муз — Абай, Пушкин и Шекспир» жүктеу/скачать 347,95 Kb. Достарыңызбен бөлісу:
|