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



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

end.

Тапсырма: Графикалық экранда пайда болады:

Суреттегі сызбаны салу керек.



Программа төмендегідей:

Program Shar;
uses GraphABC;



Begin
Line (200,200,400,200); 


LineTO (300,140);

lineTO (200,200);
FloodFill (300,170,clblue);
Line (200,200,400,200); 


LineTo (300,260); 

LineTo (200,200);
FloodFill (300,230,cllime);
circle (160,200,40);
FloodFill (160,200,clred);
circle (440,200,40);
FloodFill (440,200,clyellow);
End.

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






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


Каталог: uploads -> doc -> 06f0
doc -> Сабақтың тақырыбы Бала Мәншүк ( Мәриям Хакімжанова) Сілтеме
doc -> Ана тілі №2. Тақырыбы: Кел, балалар, оқылық Мақсаты
doc -> Сабақ жоспары «Сәулет және дизайн» кафедрасының арнаулы пән оқытушысы, ҚР «Еуразиялық Дизайнерлер Одағының» мүшесі: Досжанова Галия Есенгелдиевна Пәні: Сурет және сұңғат өнері
doc -> Сабақ Сабақтың тақырыбы : Кіріспе Сабақтың мақсаты : «Алаштану» курсының мектеп бағдарламасында алатын орны, Алаш қозғалысы мен Алашорда үкіметі тарихының тарихнамасы мен дерекнамасына қысқаша шолу
doc -> Тәрбие сағаттың тақырыбы: Желтоқсан жаңғырығы
doc -> Сабақтың тақырыбы : Әбунасыр Әл- фараби Сабақтың мақсаты
doc -> Сабақ жоспары Тақырыбы: Үкілі Ыбырай Мектеп:№21ом мерзімі
06f0 -> Сабақтың тақырыбы: «Адамның нашар мінезі»
06f0 -> Литературно – музыкальный творческий вечер Тақырыбы: «Созвучие муз — Абай, Пушкин и Шекспир»


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




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

    Басты бет