Anasayfa > Kodlar > VB6’da Çarpanlara ayırmadan ekok/ebob bulma algoritması

VB6’da Çarpanlara ayırmadan ekok/ebob bulma algoritması

Text1 den sayılar list1 e giriliyor, text3 ekokun, text4 ise ebobun yazılacağı yer. ayrıca text2 de işimizi görecek. 

İyi çalışmalar.


Private Sub coz_Click()
Dim i, j, x(10000000) As Integer, y(300000) As Integer, t,
p(300000), pp(300000), ekok, ebob

Text2.Text = List1.List(0)
i = 1
j = 1
k = List1.ListCount

basla:
i = 1
If j < List1.ListCount Then
x(i) = Val(Text2.Text)
y(i) = Val(List1.List(j))
pp(0) = 1

If Val(x(i)) < Val(y(i)) Then
t = x(i)
x(i) = y(i)
y(i) = t
End If

ebla:
p(i) = x(i) / y(i)
pp(i) = p(i) * pp(i - 1)

If p(i) = Int(p(i)) Then
If p(i) <> 1 Then
ekok = y(1) * pp(i)
If j = 1 Then Text4.Text = y(i)
Text3.Text = ekok
GoTo son:
Else
ekok = y(1) * pp(i)
Text3.Text = ekok
GoTo son:
End If
Else
If (x(i) Mod y(i)) = 1 Then
ekok = x(1) * y(1)
ebob = ""
Text3.Text = ekok
Text4.Text = ebob
Else
x(i + 1) = y(i)
y(i + 1) = (x(i) Mod y(i))
i = i + 1
GoTo ebla:
End If
End If

son:
i = 1
If j + 1 <= List1.ListCount - 1 Then
x(i) = Val(Text4.Text)
y(i) = Val(List1.List(j + 1))
pp(0) = 1
If x(i) < 1 Then GoTo sona:
If Val(x(i)) < Val(y(i)) Then
t = x(i)
x(i) = y(i)
y(i) = t
End If

ebob:
p(i) = x(i) / y(i)

If p(i) = Int(p(i)) Then
If p(i) <> 1 Then
ebob = y(i)
Text4.Text = ebob
GoTo sona:
Else
Text4.Text = ""
GoTo sona:
End If
Else
If (x(i) Mod y(i)) = 1 Then
ebob = ""
Text4.Text = ebob
GoTo sona:
Else
x(i + 1) = y(i)
y(i + 1) = (x(i) Mod y(i))
i = i + 1
GoTo ebob:
End If
End If
End If

sona:
Text2.Text = ekok
j = j + 1
GoTo basla:
End If
Text1.SetFocus
End Sub

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

Bir Yanıt Bırakı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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: