Başlangıç > Kodlar > Visual Basic 6 ile iki sayı arasındaki asal sayılar

Visual Basic 6 ile iki sayı arasındaki asal sayılar


İki sayı arasındaki asal sayıları buluyor


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 olucak'


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: