Urganch davlat universiteti axborot texnologiyalari kafedrasi

 

function isPrime(n:

integer

):

boolean

; 

  

var k,t:

integer

; 

begin 

  if not odd(n) then begin 

    isPrime:=(n=

2

); 

exit 

   

end; 

   k:=

3

; 

   t:=round(sqrt(n)); 

   

while (k<=t) and (n mod k<>

0

) 

do inc(k,

2

); 

   isPrime:=k>t 

  

end;

 

 

Funksiyani  tekshirish  uchun  argumentlari  2  siklni  bir  yoki  bir  nechta  marta  bajarishga 

majbur  qiladigan  bir  necha  boshqa  oddiy  va  tarkibiy  son  bo‘lgan  bir  necha  chaqiruvchi 

funksiyali  dasturni  yozing.  Boshqa  butun  (oddiy  va  tarkibiy)  sonlarning  kvadratlari 

hisoblanuvchi  tarkibiy  sonlardagi  ishini  alohida  tekshiring.  0  (funksiya  argumenti  oddiy  emas) 

yoki 1 (oddiy) ko‘rinishdagi natijalarni, masalan, quyidagicha chiqarish mumkin: 

 

1.5-masala:  Ma’lumki,  har  bitta  n,  n>1,  soni  oddiy  ko‘paytuvchilarning  ko‘paytmasi 

ko‘rinishida  yozilishi  mumkin.  Masalan:  13=13,  105=3*5*7;  72=2*2*2*3*3.  Integer  tipidagi 

natural sonlarni oddiy ko‘paytuvchilarga yoying(uni faktorlang). 

Masala tahlili: Ixtiyoriy sonni yoyish uchun uning eng kichik bo‘luvchisini ( 1 dan katta, 

malumki  u oddiy) topamiz, uni  yozamiz  va sonni unga bo‘lamiz. Keyingi  ko‘paytuvchilar ham 

bo‘lish natijasida 1 qolgunga qadar shunday topiladi.  

Masalan:  

36=2*18 (2 ni yozamiz),  

18=2*9 (2),  

9=3*3 (3),  

---

3=3*1 (3) 

Ayonki,  bo‘linma  qismini  eng  kichik  bo‘luvchisi  bo‘linuvchining  eng  kichik 

bo‘luvchisidan  kichik  bo‘la  olmaydi.  Shuning  uchun  bo‘lishdan  keyin  eng  kichik  bo‘luvchini 

izlashni 2 dan boshlamasdan, oxirgi bo‘luvchidan davom qildirish zarur.