klavyeden girilen sayını asal olup olmadığını bulma

[aeous]

klavyeden girilen bir sayının asal olup olmadığını bulan program yazınız ?
sınav için lazım lütfen yardım edin

 

[ÖmerBey]

1. Konu başlığınızı konunuzu özetleyecek şekilde düzenleyiniz. Mesela; "Bir sayının asal olup olmadığını bulmak" olabilir. Çünkü; kimse arama motorunda sınava yardım diye aramaz herhalde...

2. Bu tarz sorular daha önce de sorulduğu için ister istemez merak ediyorum: Bunu sizden isteyenler bunu nasıl yapacağınızı öğretmeden mi soruyorlar bu soruları, yoksa ufaktan bir şeyler öğretip ne yapabileceğinizi mi görmek istiyorlar?

3. Sanırım sorunuzun cevabı bu olabilir. Belki daha kolay bir yöntemi de vardır ama benim aklıma bu geldi:

Sub Kod()
sayı = Application.InputBox("Bir sayı giriniz.", , , , , , , 1)
If sayı <= 1 Then
    MsgBox "Girdiğiniz sayı geçersiz. Lütfen 1'den büyük bir sayı giriniz."
    Exit Sub
End If
For a = 2 To sayı - 1
    If sayı Mod a = 0 Then
        MsgBox sayı & " sayısı asal değil." & vbLf & "Böleni: " & a
        Exit Sub
    End If
Next
MsgBox sayı & " sayısı asal bir sayıdır."
End Sub

 

[aeous]

Öncelikle teşekkür ederim.
Konu başlığını da dikkat çeksin diye yaptım
Sorunuza gelince bunu öğretenler örnek veriyorum IF koduyla ilgili bilgisayarında kayıtlı kodları kopyalayıp yapıştırarak bize örnek vermiş bizden bu tarz sorular sorarak birleştirmemizi istiyor

 

[ÖmerBey]

Nedenini yukarıda belirtmiştim. Başlığı düzeltirseniz sizinle aynı problemi olan birisi de arama yaptığında sizin konunuzu bulur ve açtığınız konu başka bir kişinin daha derdine derman olabilir. Konuyla ilgili aşağıdaki linkleri inceleyebilirsiniz.
Forum Kurallarına Uymayan Başlıklar Hakkında
Açılan Konu Başlığını Düzeltmek

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/asal-carpanlara-ayirma-ve-asal-sayilar/

.