Ызбекистон республикаси олий ва ырта

 
 
Misol: 
FOR I:=1 TO 50 DO 
BEGIN 
S:=S+1/I; 
K:=I 
END; 
L:=I; 
 
Bu lavhada K 1,...,50 gacha qiymatlar ketma-ketligini qabul qiladi. Sikl 
tugagandan keyin L:=I; operatori bajariladi. Bu holda L:=50 bo’lib qoladi, 
ya’ni Sikl tugagandan keyin I buziladi (ya’ni xatolik yuz beradi). Agar I 
o’zgaruvchining oxirgi qiymatini eslab qolish kerak bo’lsa, u holda L:=I; 
operatorini bajarish kerak bo’ladi. 
Kiritish protsedurasi. 
Operatorning umumiy ko’rinishi: 
READ(V1, V2,..., VN); 
Bu erda, V1, V2,..., VN - o’zgaruvchi identifikatorlari (nomlari). 
Paskal identifikatori - harflardan boshlanuvchi sonlar va harflar ketma-
ketligi (qiymat birinchi 8 ta belgilar hisobalanadi). O’zgaruvchilar qiymati 
o’zgaruvchi tiplari bilan mos tushishi kerak. V1, V2,..., VN o’zgaruvchilari 
quyidagi uchta tipdan biri bo’lishi mumkin:
INTEGER, CHAR, REAL. 
 
Misol: 

---

49 
 
PROGRAM N3(INPUT, OUTPUT); 
VAR A, B, C :REAL; I: INTEGER; 
BEGIN 
READ(A, B, C, I); 
WRITELN (' A=', A, ' B=', B, ' C=', C, ' I=',I); 
END. 
 
1.5, 2.15, -1.1, 25 sonlarni quyidagicha 1.5 2.15 -1.1 25 ko’rinishda yozib 
kiritish mumkin.
 
 
 
Agar belgilar ketma-ketligi kiritilayotgan bo’lsa, u holda bo’sh joy 
(probel) belgi deb qabul qilinadi. 
 
Misol: 
R:REAL; I:INTEGER; C1, C2, C3:CHAR; bo’lsin, 
R, C1, C2, C3, I o’zgaruvchilar mos ravishda quyidagi qiymatlarni qabul 
qilsin: 1.5, 'A', 'V', 'S', 25. Bu qiymatlarni quyidagi ko’rinishlardan birida 
joylashtirish mumkin: 
a) 1.5ABC25 
b) +1.5E+0AVS 
25