Ajiniyoz nomidagi nukus davlat pedagogika

 
19-MAVZU. PASKAL TILIDA SODDA SHAKLLAR CHIZISH 
REJA:  
1.
 
Sodda shakllarni chizuvchi protseduralar va ulardan foydalanish 
2.
 
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: 
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: 
 
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.