Образец материалов для подготовки преподавателей к лекции

19-Mavzu

CHAPTER 2

 

 

LEARNING OBJECTIVES

Глава 2
Paskal tilida sodda shakllar chizish
Цели изучения

Reja:

• Reja:
• Sodda shakllarni chizuvchi protseduralar va ulardan foydalanish
• Shakllarni bo’yash va shablon bilan to’ldirish

Grafikali muhitda ob’ektlarni chizish uchun sodda shakllarni chizuvchi protseduralar va ulardan foydalanish uchun funksiyalardan foydalanish zarur. Quyida ularni keltirib o‘tamiz:

• Grafikali muhitda ob’ektlarni chizish uchun sodda shakllarni chizuvchi protseduralar va ulardan foydalanish uchun funksiyalardan foydalanish zarur. Quyida ularni keltirib o‘tamiz:
• PutPixel(x.y:integer;color:word) –protsedurasi ko‘rsatilgan color rangli (x.y) koordinatali nuqtani ekranda tasvirlaydi.
• Masalan: PutPixel(100,100,red)-protsedurasi ekarnda (100,100)-koordinatali nuqtada qizil rangli nuqta tasvirini yaratadi.
• Bu protseduradan dastur tarkibida foydalanib, samarali “effektlar” olishimiz mumkin.
• Masalan, quyidagi dastur yordamida ekranda
• Setviewport (20,20,200,200,true) protsedurasi bilan belgilangan oynada 32000 ta nuqtalarni
• putpixel(random(getmaxx),random(getmaxy),random(255));
• protsedurasi yorlamida turli ranglar bilan bo‘yab ajoyib tasvir yaratishimiz mumkin.

Dastur ko‘rinishi:

• Dastur ko‘rinishi:
•  
• uses Graph;
• var
• Driver, Mode,d,m:integer;
•  
• begin
• Driver:= Detect;
• InitGraph(Driver,Mode, 'c:\tp\bgi');
• setbkcolor(black);
• Setviewport(20,20,200,200,true);
• for d:=1 to 32000 do
• putpixel(random(getmaxx),random(getmaxy),random(255));
• readln;
• CloseGraph ;
• end.

GetPixel(x,y:integer):word funksiyasi (x,y) koordinatali nuqtaning rangini aniqlashda qo‘llaniladi. Bu funksiyadan foydalanishga misol keltiramiz:

• GetPixel(x,y:integer):word funksiyasi (x,y) koordinatali nuqtaning rangini aniqlashda qo‘llaniladi. Bu funksiyadan foydalanishga misol keltiramiz:
•  
• uses graph;
• var
• gd,gm:integer; a:word;
• begin
• gd:=detect; initgraph(gd,gm,''); a:=getpixel(25,25);writeln(a);readln;
• end.
•  
• Line(x1,y1,x2,y2:integer)-protsedurasi (x1,y1) va (x2,y2) koordinatali nuqtalarani tutashtiruvchi to‘g‘ri chiziq chizish uchun ishlatiladi.
• Misol:
• uses graph;
• var
• gd,gm, x1,x2,x3,y1,y2,y3:integer;
• begin
• gd:=detect; initgraph(gd,gm,'');
• x1:=45;y1:=45;x2:=160;y2:=120;x3:=100;y2:=80;
• line(x1,y1,x2,y2); line(x3,y3,x2,y2); line(x1,y1,x3,y3);readln;
• end.