A. Muxtorov

M isol_4. Ekranga aylana va to’rtburchakning nomini ustiga yozib chiqarish dasturini tuzing.
Uses GraphABC;
begin
setwindowsize(250,300);
setfontcolor(clblue); setfontsize(10);
rectangle(10,10,150,100);
textout(39,45,'To`rtburchak');
Circle(100,200,80); textout(80,200,'Aylana');
end.
Misol_5. Shaxmat taxtasini hosil qilish dasturini tuzing.
uses graphABC;
var x, y, c,n, k: integer;
begin
SetWindowSize (500, 500);
Rectangle (49, 49, 451, 451);
y:= 50;
for k:= 1 to 8 do begin
x:= 50; for n:= 1 to 8 do begin
TextOut(x,y,matn) — http://pascalabc.net/stati-po-pascalabc-net/obuchenie-programmirovaniyu/16-grafika-grafika-grafika-chast-1-vvedenie
if (n + k) mod 2 = 0 then c:= clwhite
else c:= clblack;
setPenColor (c);
setBrushColor (c);
rectangle (x, y, x+50, y+50); x:= x + 50;
end;
y:= y + 50;
end;
end.
Misol_6. Svetofor chizish dasturini tuzing
program svetofor;
uses graphabc;
begin
setwindowsize(640,480);
setpencolor(clblack);
setpenwidth(5);
setbrushcolor(clSilver);
line(0,40,150,40);
line(150,40,150,70);
setpenwidth(2);
rectangle(100,70,200,290);
setbrushcolor(clred);
circle(150,115,25);
setbrushcolor(clyellow);
circle(150,175,25);
setbrushcolor(clgreen);
circle(150,235,25);
setfontcolor(clred);
setfontstyle(fsbold);
setfontsize(15);
setbrushcolor(clwhite);
textout(10,10,'Svetofor');
end.


Mustaqil bajarish uchun topshiriqlar

1. 
   Ekran markazida qizil rangli halqa hosil qilish dasturini tuzing.
   
2. 
   P ascalABC dasturi yordamida ushbu rasmni chizish dasturini tuzing
   
   
   
3. 
   Televizor rasmini chizish dasturini tuzing
   
4. 
   7 ta ichma-ich joylashgan kvadrat chizish dasturini tuzing
   
5. 
   Ekranning turli joylarida har xil rangli va har xil usulda bo’yalgan 5 ta doiralar hosil qilish dasturini tuzing