İki sayı arasındaki asal sayılar
Buda çok eskiden yazdığım bir kod, o zamanlar visual basic kullanmışım ondan sonra bir daha visual basic kullandığımı sanmıyorum :). Kodlar çok saçma veya gereksiz olabilir ama hatıra olsun diye aynı şekilde yayınlayacağım.
Programın yaptığı, yazdığınız iki sayı arasındaki asal sayıları bulmak. Çalışmasını denemek için 2 Listbox, 2 Textbox, 1 Command Box eklemelisiniz.
-
Dim a, b, i, c As Long
-
Private Sub Command1_Click()
-
List1.Clear ‘list1 i temizliyelim ki 2. kez araninca üst üste binmesin’
-
k = Val(Text1.Text) - 1 ‘k yi ilk sayidan bir eksige ayarliyoruz cunku sonra ekliycez’
-
l = Val(Text2.Text) - 1 ‘2. sayiyi dahil etmemek icin ondan da 1 cikariyoruz’
-
1: ‘eger sayi asal degilse burdan baslasin’
-
k = k + 1 ‘iste k ye 1 ekliyoruz "soz verdigimiz gibi"’
-
For a = k To l ‘k ile l arasindaki sayilar’
-
c = a \ 2 + 1 ‘iste program fazla yorulmasin diye yarisina kadar aratiyorz’
-
For i = 2 To c ‘yarisina kadar aratmamin sebebi yarisindan büyük’
-
‘bir sayiya zaten bölünemiyecegi’
-
b = a Mod (i) ‘daha basit bir kod olsun diye modu kullandim’
-
If b = 0 Then GoTo 1 ‘eger sayimiz asal degilse yeni sayi denemek icin basa dönsün’
-
Next i ‘…’
-
List1.AddItem (a) ‘eger sayi for döngüsünden kurtuldu ise asal demektir ve’
-
‘list e eklenmeye hak kazanmıstir’
-
Next a ‘…’
-
End Sub ’sizce analamsiz kodlar olabilir ama bu benim ilk projem’
-
‘ve sanirim ÖSS sinavina hazirlanmamdan dolayi 2. si’
-
‘uzun bir zaman sonra olacak’
Yorumlar
Yorum yaz