Сабақтың тақырыбы: Pascalabc программалау тілінің графикалық мүмкіндіктері. Сабақтың мақсаты

end. Pascal ABC –дағы анимация Шардың суретін салу

жүктеу/скачать 347,95 Kb.

бет	3/4
Дата	12.03.2018
өлшемі	347,95 Kb.
	#39136

1 2 3 4

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. Төмендегі суретті салу программасын құрыңыз.

жүктеу/скачать 347,95 Kb.

Достарыңызбен бөлісу:

1 2 3 4