Urganch davlat universiteti axborot texnologiyalari kafedrasi

function UL_cmp (const L1,L2:ULong):

integer

; 

var i:IDX_TYPE 

begin 

  if L1.used>L2.used then 

    UL_cmp:=BASE 

  

else if L1.used>L2.used then 

    UL_cmp:=-BASE 

   

else begin 

    i:=L1.used; 

    

while (i>=

1

) 

and (L1.mass[i]=L2.mass[i]) do 

      dec(i); 

     

if i=

0 

then  

      UL_cmp:=

0 

     

else  

     UL:=

integer

(L1.mass[i])-

integer

(L2.mass[i])); 

    

end; 

   

end;

 

Eslatma: UL_cmp funksiyaning sarlavhadagi const modifikatori norasmiy ravishda “havolalarni 

L1  va  L2  ga  o‘tkazilsin  (ularni  dasturiy  stekka  nusxalab  olmasdan),  biroq,  dasturosti  ularni 

o‘zgartirmasligini kuzatilsin” bildiradi. 

Qo‘shishga  o‘tamiz.  Yaxshi  ma’lum  bo‘lgan  ustun  bo‘yicha  qo‘shishni  amalga  oshiramiz- 

kichiklaridan boshlab alohida raqamlar qo‘shiladi; agar hisoblash sistemasining asosidan summa 

katta bo‘lsa, u holda navbatdagi razryadga o‘tish ro‘y beradi. Biroq, bitta savol bor. Qo‘shiluvchi 

argumentlar dastur ostiga ULong tipidagi L1 va L2 parametrlar o‘rniga qo‘yiladi, biroq summani 

qayerga  yozish  kerak?  Qo‘shimcha  muammo  o‘z  o‘zidan  hal  bo‘ladi,  masalan,  agar  masalada 

“haqiqiy  ”  emas  summa  kerak  bo‘lsa,  balki  faqat  S:=S+a

6

  ko‘rinishidagi  operatsiyalar  kerak. 

Shunga  natijani  L1  (uni  var  modifikator  bilan  e’lon  qilib)  parametrga  yozish  mumkin.  Biroq 

aynan  argumentlarni  “bilmaydigan”  qo‘shishlar  ham  kerak  bo‘ladi.  Summani  ULong  tipidagi 

lokal  o‘zgaruvchida  xotirlash  va  uning  qiymatini  qo‘shish  funksiyasining  natijasi  sifatida 

qaytarish mumkin bo‘lardi, masalan, quyidagicha sarlavha bilan: 

 

Shunday  tarzda  C,  C++,  Dephi,  Free  Paskal…  ga  qilish  mumkin.  Biroq  Turbo  (Borland) 

Paskalga funksiya faqat skalyar tiparni, qatorlarni va ko‘rsatkichlarni qytarishi mumkin. Shuning 

uchun  arifmetik  dastur  ostilarni  (shu  bilan  birga  qo‘shish  ham)  ULong  tipidagi  3  ta  parametr 

bilan  prodsedura  ko‘rinishida  amalga  oshiramiz:  Dastlabki  ikkitasi  qo‘shiluvchilarni,  3-  natija 

uchun joyni belgilaydi(4.2-listing).