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

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