Informatika va at

15.7. type matn= file of char;

Berilgan t1 va t2 matnlarning tengligini tekshiradigan mantiqiy teng(t1,t2) funktsiyasi tuzilsin.

15.8. type vaqt = record soat: 0..23; min, sek: 0..59 end;

Fv = file of vaqt;

Fv turidagi f va g fayllarni tengligini tekshiradigan mantiqiy teng_vaqt(f,g) funktsiyasi tuzilsin.

9. 
   type suz = file of char;
   

var w1, w2 : suz;

w1 co'z w2 so'zdan leksikografik oldin kelishini tekshiruvchi mantiqiy lex_oldin(w1,w2) funktsiyasi tuzilsin.

15.10. type FR = file of real:

Kamida ikkita elementi bo'lgan FR turidagi f faylning oxiridan bitta oldingi element qiymatini qaytaradigan oxiridan_oldingisi(f) funktsiyasi tuzilsin.

15.11. var f: file of integer; i: integer;

Quyidagi operatorlar bajarilgandan keyin f faylida nima hosil bo'lishi aniqlansin:

a) rewrite (f);

if eof (f) then write (f,1) else write (f,2);

if eof (f) then write (f,3) else write (f,4);

b) rewrite (f); for I:=3 downto 1 do write (f,sqr(i))

15.12. type qator = array [1..100] of char;

matn = file of char;

var s: qator; t: matn;

Berilgan s satrda uchragan raqamlarni t matnga o'tkazadigan raqam(s,t) protsyedurasi tuzilsin.

13. 
    type qator = file of 1.. maxint;
    

var f : qator;

f fayliga berilgan musbat butun n sonidan oshmaydigan Fibonachchi sonlarini (1,1,2,3,5,...) yozadigan fib(f,n) protsyedurasi tuzilsin.