Başlangıç > Kodlar > VB6 ile Kombinasyon ve permütasyon hesaplamak

VB6 ile Kombinasyon ve permütasyon hesaplamak



Private Sub Command1_Click() --> kombinasyon için
Dim n As Double
Dim r As Double
Dim x As Double
Dim y As Double
Dim F As String
Dim g As String
Dim v As String
x = 1
y = 1
n = InputBox("Kümenin eleman sayısını (n) giriniz")
If n < 0 Then
MsgBox "Kombinasyon hesaplamak için n değeri n>=0 olmalıdır!"
Do
F = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While F = "e"
Command1_Click
Loop
Do While F = "h"
MsgBox "Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz."
Loop
End If
r = InputBox("Gruptaki eleman sayısını (r) giriniz")
If r < 0 Then
MsgBox "Kombinasyon hesaplamak için r değeri r>=0 olmalıdır!"
Do
g = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While g = "e"
Command1_Click
Loop
Do While g = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
If r > n Then
MsgBox "Kombinasyon hesaplamak için r değeri r<=n olmalıdır!"
Do
v = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While v = "e"
Command1_Click
Loop
Do While v = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
For a = 0 To (r - 1) Step 1
t = n - a
x = x * t
y = (a + 1) * y
Next a
MsgBox "istenilen kombinasyonların sayısı= " & x / y
End Sub

Private Sub Command2_Click() --> permütasyon için
Dim n As Double
Dim r As Double
Dim x As Double
Dim F As String
Dim g As String
Dim v As String
x = 1
y = 1
n = InputBox("Kümenin eleman sayısını (n) giriniz")
If n < 0 Then
MsgBox "Permütasyon hesaplamak için n değeri n>=0 olmalıdır!"
Do
F = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While F = "e"
Command2_Click
Loop
Do While F = "h"
MsgBox "Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz."
Loop
End If
r = InputBox("Gruptaki eleman sayısını (r) giriniz")
If r < 0 Then
MsgBox "Permütasyon hesaplamak için r değeri r>=0 olmalıdır!"
Do
g = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While g = "e"
Command2_Click
Loop
Do While g = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
If r > n Then
MsgBox "Permütasyon hesaplamak için r değeri r<=n olmalıdır!"
Do
v = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While v = "e"
Command2_Click
Loop
Do While v = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
For a = 0 To (r - 1) Step 1
t = n - a
x = x * t
Next a
MsgBox "İstenilen permütasyonların sayısı= " & x
End Sub

About these ads
  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 Logo

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

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s

Takip Et

Her yeni yazı için posta kutunuza gönderim alın.

Diğer 888 takipçiye katılın

%d blogcu bunu beğendi: