Abituriyentlar uchun fanidan o`quv qo`llanma kanal

Repeat  

— takrorlash boshi,  

Until  

— takrorlash oxirini bildiradi;  

— oddiy

yoki murakkab mantiqiy ifoda. Takrorlanish tanasi  

shart rost  

qiymat qabul qilgungacha

bajarilaveradi.

Belgili va satrli miqdorlar bilan ishlash

23

---

Kompyuter ekranida turli rasm lar ham hosil qilish mumkin. Buning uchun Paskalning

Graph  

(graf)  modulida  nuqta,  to‘g‘ri  chiziq,   to'g'ri  to'rtburchak,  aylana  kabi   bir  qancha

shakllarni   chizishga   mo'ljaUangan   operatorlar   mavjud.   Shakl   chizish   operatorlaridan

foydalanish uchun dastur boshida 

Uses Graph; 

ko'rsatmasi beriladi.

Ekrandagi nuqtalar soni ко‘pi 

bilan 

640x480 

ta (0..639x0..479) 

bo‘ladi.

Paskal tilida 16 xil rangdan foydalanish mumkin bo'ladi. Bu ranglar 0 dan 15 gacha

butun sonlar bilan kodlangan.

PutPixel(X,Y,Rang)  

protsedurasi   ekranning   (X,Y)   koordinatali   nuqtasini   «Rang»

parametri bilan aniqlangan rangga bo'yaydi. Masalan, PutPixel(400,200,Red) protsedurasi

ekranning (400,200) koordinatasiga mos joyda qizil rangli nuqta joylashtiradi

GetPixel(X,Y) 

funksiyasi ekranning (X,Y) koordinatali nuqtasi qanday rangda ekanni

aniqlaydi.   Masalan,   Rang   —   butun   tipli   o'zgaruvchi   bo'lsa,   Rang:=   GetPixel(40,50);

operatori bajarilgach 

Rang o'zgaruvchi (40,50) koordinatali nuqta rangining qiymatiga teng boladi. Paskalda

chiziq   rangini   tanlash   uchun