Urganch davlat universiteti axborot texnologiyalari kafedrasi

4.2-listing. Uzun butun sonlarni qo‘shish prodsedurasi. 

procedure UL_add(const L1,L2:Ulong; var LS:ULong); 

  

var t:wide_val; 

---

      i:IDX_TYPE; 

begin 

  t:=

0

;i:=

1

; 

  

while (i<=L1.used) and (i<=L2.used) do begin 

    t:=t+L1.mass[i]+L2.mass[i]; 

    LS.mass[i]:=t 

mod BASE; 

    t:=t 

div BASE; 

    inc(i); 

   

end; 

  

if L1.used>=L2.used then begin 

    LS.used:=L1.used; 

    

while i<=L1.used do begin 

      t:=t+L1.mass[i]; 

      LS.mass[i]:=t 

mod BASE; 

      t:=t 

div BASE; 

      inc(i); 

     

end; 

    

end 

   else begin 

    LS.used:=L2.used; 

    

while i<=L2.used do begin 

      t:=t+L2.mass[i]; 

      LS.mass[i]:=t 

mod BASE; 

      t:=t 

div BASE; 

      inc(i); 

     

end; 

    

end; 

   

if t>

0 

then begin  

    inc(LS.used) 

    LS.mass[LS.used]:=t; 

   

end; 

  

End; 

Prosedurada natija massivda (LS.used MAXN+1 ga teng bo‘lib qoladi) sig‘maydigan to‘lib ketish 

holati ko‘zda tutilmagan noqulayliklar (avariyali tugallanish yoki boshqaning xotirasiga “kirish”) 

kelib  chiqmasligi  uchun  prosedurani  modifikatsiyalash  mumkin.  Uzun  butun  sonlarni  ayirishni 

amalga oshiring.  

Ko‘rsatma.  Esda  tutingki,  ayirishda  natijaning  raqamlar  miqdori  kamayuvchining  raqamlar 

miqdoridan  ko‘p  marta  kichik  bo‘lishi  mumkin  (masalan,  10002-9915=87).  Bundan  tashqari 

kamayuvchi ayiriluvchidan kichik bo‘lishi mumkin. Avvaliga bunday bo‘lishi mumkin emas deb 

hisoblash mumkin.  Keyin  esa  dasturni  ushbu  holatda  xato  to‘g‘risidagi  xabarni  beradigan  qilib 

yozish mumkin. Nihoyat “haqiqiy”siga manfiy  natijani hisoblash mumkin: ULong tipiga  ishora 

uchun  joy  qo‘yiladi  va  ayirishda  yoki  hisobga  olish  kerak,  bunda  arifmetik  amallarning  dastur 

ostilarini  qaytadan  yozib  chiqishga  to‘g‘ri  keladi  (bunda  taqqoslashlarni  va  qo‘shiluvchilarni 

e’tiborga olinadi), chunki “haqiqiy” son tipi nafaqat manfiy sonlarni taqdim eta bilishi, balki ular 

bilan operatsiyalarni ham bajarishi kerak.