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

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);

Pascal ABC –дағы анимация

uses GraphABC;

var I,X,Y,D: integer;

begin

D:=100;

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

end.

uses GraphABC;

var I,X,Y,D: integer;

begin

for i:=1 to 500 do

begin

ClearWindow;

Ellipse(X+I,Y,X+I+D,Y+D);

Sleep(1);

end;

 LockDrawing – графикалық экранға шығаруды бұғаулайды да тек қана экраннан тыс жерге суретті салуды іске асырады.

• 
  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. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келеді де соқтығысқаннан кейін, жасыл шар тоқтайды да қызыл шар тіке төмен құлайтынын бейнелейтін программаны құру керек.

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

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

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

Шеңбер тобы:

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