Mavzu: 1 ­­– dars. Masalalarni kompyuterda yechish bosqichlari Darsning maqsadi

Ellipse(X,Y,BB,OB,XR,YR) operatori markazi (X,Y) nuqtada, x va y o‘qlari bo‘yicha radiuslari mos ravishda XR va YR ga teng ellipsning BB burchagidan OB burchagigacha bo’lgan yoyini chizadi. Burchak gradus o‘lchov birligida beriladi. XR=YR bo‘lsa, aylana yoyi chizi

Rectangle(X1,Y1,X2,Y2) operatori ekranda yuqori chap burchagi (X1,Y1) koordinatali va quyi o‘ng burchagi (X2,Y2) koordinatali nuqtada bo‘lgan to‘g‘ri to‘rtburchak chizadi.

3–misol. Ichi turli rang va usulda bo’yalgan to‘g‘ri to‘rtburchak hosil qilish dasturi:

Program Turtburchak;

Uses Graph;

Var gd, gm : Integer; rang, usul : Integer;

Begin Gd:=Detect; InitGraph(gd,gm,’’);

SetFillStyle(2, 4); Bar(10,10,400,300);

Repeat

Write(‘rang=’); ReadLn(rang); Write(‘usul=’); ReadLn(usul);

SetFillStyle(usul,rang); Bar(10,10,400,300);

Until rang=0; CloseGraph;

End.

Avval ekranda rasmda ko’rsatilgan shakl hosil bo’ladi. So’ngra turli rang va usul kodlarini kiritib, berilgan to’g’ri to’rtburchakni turli rang va usulda bo’yalishini kuzatish mumkin. Dastur ishini yakunlashi uchun rang kodi sifatida 0 kiritilad.

4–misol. Ichi turli rang va usulda bo’yalgan parallelepiped hosil qilish dasturi:

Program Parallelepiped;

U ses Graph;

Var gd, gm : Integer; rang, usul : Integer;

Begin

Gd:=Detect; InitGraph(gd,gm,’’);

SetFillStyle(1,9); Bar3D(100,100,200,300,50,True);

Write(‘rang=’); ReadLn(rang);

Write(‘usul=’); ReadLn(usul);

SetFillStyle(usul,rang); Bar3D(100,100,200,300,50,True);

Until rang=0; CloseGraph;

End.

Avval ekranda rasmda ko’rsatilgan shakl hosil bo’ladi. So’ngra turli rang va usul kodlarini kiritib, berilgan parallelepipedni turli rang va usulda bo‘yalishini kuzatish mumkin. Dastur ishini yakunlashi uchun rang kodi sifatida 0 kiritiladi.