2. type qa to r = file o f 0..999;
B o ‘sh b o ‘lm agan
m
qa tor elcmentlarini o ‘sish
tartibida
joyla sh g a n lig in i tckshiradigan
tartib(m)
m antiqiy funksiyasi
tuzilsin.
3. type m a in =
file o f char;
Berilgan
t\
va /2 m a tn la m in g tengligini tckshiradigan
m antiqiy
teng(t\, tl)
funksiyasi tuzilsin.
4. type vaqt = record soat: 0..23; min, sek: 0..59 end;
Fv
=
file o f vaqt;
F v
tipli / va g fayl lam in g tengligini tckshiradigan m antiqiy
teng_vaqt{f, g)
funksiyasi. tuzilsin.
5. type FB =
file o f boolean;
FB tipidagi
g
fayl kom ponentalarini
f
faylga o 4 k a z ad ig a n
nusxa(f,
g ) protsedurasi tuzilsin.
6. type be/g/ = file o f ‘a \ . ’z ’;
be/gi tipli / faylga avval g
fayldagi barcha elem cntlam i,
s o ‘ngra
h
fayl elcm entlarini yozadigan
birlashtirish(f, g, h)
protsedurasi tuzilsin.
7. D astur tuzilsin. / m atn fayli berilgan. Undagi eng
qisqa s atrlam ing birinchisi chop qilinsin.
8. type sana =
record
kun: I ..31; oy: 1 ..1 2 ;y il: 1900..2010 end;
v a r s: sana;
Berilgan
s
sana
quyidagi
k o ‘rinishda
c hop
qilinsin:
15.10.1991, 22.6.2000, 1.9.1992 va hk.
9. /2 m atn fayli da b o ‘sh b o ‘lm a ga n va probel bilan
ajratilgan butun sonlar ketm a-ketligi yozilgan. Bu sonlar
ichida m usbatlarini /1 faylga o ‘tkazadigan
m usbat(l
1, /2)
protsedurasi tuzilsin.
10. / m atn faylida b o ‘sh
boMmagan va probel bilan
ajratilgan haqiqiy sonlar ketm a-ketligi yozilgan. Bu sonlar
ichida eng kattasini topadigan
max(t)
funksiyasi tuzilsin.
11. / m atn faylini
satrlab c hop qiluvchi
printlines(t)
protsedurasi tuzilsin.
59
12. Tashqi xotiradagi (diskdagi) f l z i k / v a g fayllam ing
tiplari
n o m a ’lum
boT gan
holda
f
faylga g fayldagi
berilganlarni o T ka z adiga n dastur tuzilsin.
13. type m atn = file o f char;
v a r t: matn; c: char;
t
m atn
boshiga
с
belgisini q o ‘shadigan
a d d \{t,
c) protsedurasi
tuzilsin.
14. type m atn = file o f char;
var
t\
m atn; c: char;
t
