06 Ağustos 2008

iki sayı arasındaki asal sayılar

bu da ç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 üzerinde hiç bir değişiklik yapmadan 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'

1 yorum:

mn3i4a73vr dedi ki...

You can find all of our guides to learn how to to|learn to} play and win at any casino game. Look for your most well-liked game and study all about it so you can begin playing in} like a professional. There are some variants that 우리카지노 can be be} played with as little as 10p per spin. If would possibly be} extra centered on inserting minimal stakes during a game, you may need to set your account with a restrict setting, so you don't go overspending on games.