Mavzu: Paskal dasturlash tili r e j a: Kirish 1

Parametrli sikl operatori. Parametrli sikl operatorining umumiy ko’rinishi quyidagicha: 
for v:=n1 to n2 do S 
bunda for (uchun), to (gacha), do (bajar) – xizmatchi so’zlar, v – sikl parametric, n1 va n2 – 
mos ravishda sikl parametrining boshlang’ich va oxirgi qiymatlari, S – sikl tanasini tashkil 
qiluvchi operatorlar ketma-ketligi bo’lib, agar ular bir nechta bo’lsa, albatta begin va end 
so’zlarining ichiga olib yoziladi. Agar S bitta operatordan iborat bo’lsa, begin va end yozilishi 
shart emas. 
Parametrli sikl operatori quyidagicha bajariladi: dastlab n1 va n2 ning qiymatlari hisoblanadi. 
V – sikl parametri boshlang’ich qiymati n1 ni qabul qiladi va oxirgi qiymati n2 bilan 
taqqoslanadi. Agar sikl parametrining qiymati oxirgi qiymatidan ortib ketmasa, u holda sikl 
tanasini tashkil qiluvchi operatorlar ketma-ketligi bajariladi. So’ngra sikl parametrik o’zining 
qiymatini bir birlik orttiradi va yuqoridagi jarayon takrorlanadi. Agar sikl parametrik o’zining 
oxirgi qiymatidan ortib ketsa, siklik jarayon tugaydi. Sikl parametrik sikl ichida o’zgarishi 
mumkin emas.
Masalan: 
1) for i:=1 to 6 do x:=sqr(5*i); 
2) for n:=1 to 5 do begin s:=s+sqr(n); q:=q*n end. 
Paskal tilida parametrli sikl operatorini kamayib boruvchi shaklda ham ifodalash mumkin. 
Uning ko’rinishi quyidagicha bo’ladi: 
for v:=n2 downto n1 do s; bunda downto (gacha kamayadigan) xizmatchi so’z. bu operatorda 
parametr v oxirgi qiymat n2 dan n1 gacha bo’lgan qiymatlarni -1 qadam bilan qabul qiladi. 
Masalan: 
1) 
for i:=6 downto 1 do x:=sqr(5*i); 
2) 
for n:=5 to 1 do begin s:=s+sqr(n); q:=q*n end. 
Misol: 





12
1
3
5
1
2
i
n
i
n
ifodaning qiymatini hisoblash dasturini tuzing. 

---

22 
1) Program summa (input, output); 
 
 
Var i, n:integer; S, S1:real; 
 
 
Begin S:=0; S1:=0; 
 
 
For n:=1 to 5 do S:=S+Sqr(n); 
 
 
For i:=1 to 12 do S!:=S1+i*i*i; 
 
 
S:=S+S1; 
 
 
Writeln (‘summa=’, S); 
 
 
End. 
2) Program summa (input, output); 
Var i, n:integer; S, S1:real; 
 
 
Begin S:=0; S1:=0; 
 
 
For n:=5 downto 1 do S:=S+Sqr(n); 
 
 
For i:=12 downto 1 do S!:=S1+i*i*i; 
 
 
S:=S+S1; 
 
 
Writeln (‘summa=’, S); 
 
 
End. 
Bulаrdаn tаshqаri, lоtin аlifbоsi tаrtiblаngаn bo’lgаni uchun bu mа`lumоtlаrni tаkrоrlаnish 
pаrаmеtri qiymаtlаri sifаtidа ishlаtish mumkin, mаsаlаn: 
for t:='a' to "d" do y:=c+t 
yoki 
fort:='d' downto "a" do y:=c+t 
buеrdа, t — tаkrоrlаnish pаrаmеtri; LI — tаkrоrlаnish pаrаmеtrining bоshlаng’ich qiymаti, а gа tеnt; L2 — 
tаkrоrlаnish pаrаmеtrining охirgi qiymаti, d gа tеng; M urnidа esа y:=c+t ifоdа to’g’ri kеlаdi. 
3 - M i s о l .
Program prch(input,output); 
var 
t,y :char ; 
begin 
for t:='a' to "z" do 
begin 
writeln(t,ord(t)); 
end; 
readln; 
end. 
4- Misоl. 

---

23 
Program prch2(input,output); 
var 
i :integer; 
begin 
for i:=97 to 122 do writeln(i,'=',chr(i»; end.