Программалау тілінде модельдер құру. Сабақтың мақсаты: Білімділік



бет3/6
Дата12.03.2018
өлшемі0,57 Mb.
#39135
түріПрограмма
1   2   3   4   5   6

program Grafica;

uses GraphABC; {графикалыќ режимге кґшу}

begin

SetWindowHeight(500); {терезенің биіктігі}

SetWindowWidth(1000); {терезенің ені}

SetFontName('kz poster');{шрифт аты}

SetFontColor(clred); {шрифт түсі}

SetFontSize(20); {шрифттің өлшемі}

SetFontStyle(fsBoldUnderline); {шрифт стилі}

TextOut(20,30,'камаз'); {мјтін жазу}

SetBrushColor(clgreen); {тўйыќ аймаќты бояу}

SetPenColor(clblue) ; {ќаламныѕ тїсі}

SetBrushColor(clgreen); {ќаламыныѕ ќалыѕдыєы {нїкте }

SetPenColor(clblack);

SetBrushColor(clred);

rectangle(100,200,250,350) ; {тіктґрбўрыш}

rectangle(250,80,340,350) ;

SetPenWidth(3);

Line(180,80,340,80);

Line(180,80,100,200);

Line(130,200,160,180);

Line(150,170,170,190);

SetBrushColor(clyellow);

rectangle(100,250,120,270) ;

rectangle(100,300,120,320) ;

SetBrushColor(clblack);

rectangle(90,350,300,380) ;

rectangle(300,330,850,370) ;

SetPenWidth(15);

line(750,300,750,330) ;

line(380,360,430,300) ;

line(470,300,420,360) ;

SetPenWidth(2);

SetBrushColor(clgreen);

SetPenColor(clblack);

rectangle(380,300,900,160) ; {кузов}

rectangle(400,280,880,180);

SetPenWidth(2);

SetPenColor(clblack);

line(380,50,900,160) ;

line(380,70,380,200) ;

line(380,70,330,70) ;

line(330,50,330,70) ;

line(330,50,380,50) ;

FloodFill(600,150,clgreen);

SetPenWidth(2);

SetPenColor(clblack);

arc(600,180,180,15,142);

FloodFill(600,20,clMaroon);

SetPenColor(clblack);

SetBrushColor(clgray);

SetPenWidth(35);

circle(300,380,55); {дөңгелегі шеѕбер салу}

circle(700,380,55);



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 –графикалық режимнің терезесі бұғауланған кезде Шығару терезесін қайталап суреттерін салады.


Смайликтердің суретін салу.


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. Сұрақ

  2. Бұрыннан білетінім

  3. Бүгінгі үйренгенім

(Сабақ басында беріп тастаймын)


Үйге тапсырма:

1. Программалау тілінде модельдер құру тақырыбын қайталау.

2. Есептер:

Үшбұрыш тобы:

1. Тік бағытта қозғалған шарды бейнелейтін программа құру керек.

2. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келеді де соқтығысқаннан кейін, жасыл шар тоқтайды да қызыл шар тіке төмен құлайтынын бейнелейтін программаны құру керек.

Төртбұрыш тобы:

3. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келіп, соқтығысады да жасыл шар кері бағытқа, ал қызыл шар төмен қарай қозғалатынын бейнелейтін программа құру керек.

4. Тіктөртбұрыштың периметрі бойынша қозғалатын шарды бейнелейтін программа құру керек.

Шеңбер тобы:

5. Шардың радиустары өзгеріп отыратын программаны құру керек.



6. Тік бағытта қозғалған шар, қабырғаға соқтығысып, көлденең қозғалатын шарды бейнелейтін программа құру керек.
Сабақ аяқталды сау болыңыздар. Сабаққа белсене араласқандарыңызға көп рахмет.

Тапсырма2. Төмендегі суретті салу программасын құрыңыз.






Тапсырма3. Төмендегі суретті салу програмаасын құрыңыз.






Достарыңызбен бөлісу:
1   2   3   4   5   6




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет