O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi samarqand davlat universiteti

1) y:=1; k:=0; m=5; while y<=m do begin y:=y+3; 
k:=k+1; end; 
2) x:=3; y:=1; v:=1; eps:=0,0001; 
while abs(v)>=eps do begin V:=(x/y-y); y:=y+v; end;
3)
Sharti keyin qo‘yilgan sikl operatori
. Operatorning umumiy 
ko‘rinishi: 
repeat s
1
, s
2
 , …,s
n
 until B
, bu yerda repeat (takrorlanmoq), 
until (gacha) xizmatchi so‘zlar s
1
, s
2
 , …,s
n
 - operatorlar ketma-ketligi, 
B- mantiqiy ifoda. 
Operatorning bajarilishida repeat va until operatorlari orasida 
joylashgan operatorlar ketma-ketligi bir marta va undan ortiq bajarilishi 
mumkin. Bu jarayon qo‘yilgan mantiqiy ifoda B chin (true) qabul 
qilguncha davom etadi.
Masalan
: i:=1; s:=0; n:=10; repeat s:=s+i; i:=i+2 until i>n; 
 

---

166 
Massiv elementlari bilan ishlash. 
 
1) Bir o‘lchovli massivlar.
Bir o‘lchovli massivlar quyidagicha 
aniqlanadi:
array [indekslarning quyi va yuqori chegaralari] of 

; Indekslar turi real va integer dan tashqari boshqa 
oddiy turlar ham bo‘lishi mumkin. 
Masalan: a)
 
array [1..100] of real integer; 
array [-109..-1] of integer; 
Massivlarning turlar yoki to‘g‘ridan - to‘g‘ri o‘zgaruvchilar 
bo‘limida tavsiflash mumkin
.
 
Masalan:
a) type 
 
Massif = 1..100; 
 
 Vektor = array [massif] of real; 
 
 Vektor2 =array [-109..-1] of integer; 
 
 Var A, b, vektor; C, d: vektor2; 
b) var a, b: array [1..100] of real; 
c, d: array [-109..-1] of integer
; 
Massiv elementlarini kiritish va chiqarish, read va write 
operatorlari orqali amalga oshirilishi ham mumkin.