asal sayı bulma fonksiyon

emrebengul

Altın Üye
Katılım
5 Aralık 2015
Mesajlar
297
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2019 TR 32 Bit
Altın Üyelik Bitiş Tarihi
03-01-2028
merhaba

A1 sütununa 2,3,5,7,11 vs yani asal sayıları yazdığımda b1 sütununa asal sayı olduğunu, 2 4 6 8 9 gibi asal olmayan sayıları yazdığımda Asal sayı değildir. Yapmak istiyorum fakat bir türlü yapamadım yardımcı olur musunuz?
 

muratboz06

Destek Ekibi
Destek Ekibi
Katılım
23 Mart 2017
Mesajlar
552
Excel Vers. ve Dili
Office365 TR
Deneyiniz.
Kod:
Function AsalSayıMı(Numb As Single) As Boolean
'Updateby Extendoffice 20160614
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    AsalSayıMı= True
End Function
 
Katılım
25 Mayıs 2010
Mesajlar
218
Excel Vers. ve Dili
2016 Pro Plus TR
Dizi formülüdür.
B2 ye yapıştırın ve,
(Ctrl+Shift+Enter) ile formülü tamamlayıp, aşağı doğru çoğaltın.
Kod:
=EĞER(A1="";"";EĞER(A1>1;EĞER(YADA(A1=2;TOPLA(EĞER(TAMSAYI(A1/--SATIR(KAYDIR($A$2;;;A1-2)))=A1/--SATIR(KAYDIR($A$2;;;A1-2));1;0))=0);"ASAL";"ASAL DEĞİL");"ASAL DEĞİL"))
 
Son düzenleme:
Katılım
25 Mayıs 2010
Mesajlar
218
Excel Vers. ve Dili
2016 Pro Plus TR
Üstteki hatalı oldu;
Doğrusu altta.
Kod:
=EĞER(A1="";"";EĞER(A1=2;"ASAL";EĞER(YADA(A1<2;TOPLA(EĞER(TAMSAYI(A1/--SATIR(KAYDIR($A$2;;;A1-2)))=A1/--SATIR(KAYDIR($A$2;;;A1-2));1;0))>0);"ASAL DEĞİL";"ASAL")))
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
.

Buradaki formülü kullanın.

Kod:
=EĞER(YADA(A1=2;A1=3);"Asal Sayıdır.";EĞER(VE((MOD(A1;SATIR(DOLAYLI("2:"&A1-1)))<>0));"Asal Sayıdır.";"Asal Sayı Değildir."))
Aslında bu dosyada bu konuda daha çok formül örneği var. İnceleyin.


.
 
Son düzenleme:

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,500
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Buradaki formülü kullanın.
Kod:
=EĞER(YADA(A1=2;A1=3);"Asal Sayıdır.";EĞER(VE((MOD(A1;SATIR(DOLAYLI("2:"&A1-1)))<>0));"Asal Sayıdır.";"Asal Sayı Değildir."))
@idris Bey selâmlar, formülde 1'i de "Asal Sayıdır" olarak sonuç döndürüyor.
Bildiğim kadarıyla Asal Sayı; kendinden ve 1'den başka sayıya tam bölünemeyen 1'den büyük sayılara denir.
 
Moderatör tarafında düzenlendi:

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
.

Murat bey,

Tamamen haklısınız.

1 Asal sayı değildir. Formülü düzelttim.

Teşekkür ederim.
 
Üst