...::::Tek Link Full Download::::...



İnternet Sayfamıza Hoşgeldiniz...

Sitemize üye olarak bir çok linki elde edebilirsin!!!

Anasayfa bölümünde bir çok konu bulunmaktadır....




...::::Tek Link Full Download::::...

İStediğiniz Türden Dosya....
 
AnasayfaSite AnalizTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap
Sitemize Moderatör Aranmaktadır...
Başvuru yapacaklar admine ulaşabilirler...


Paylaş | 
 

 Permütasyon/Kombinasyon Hesaplama

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Admin
Admin
avatar

Mesaj Sayısı : 63
Tecrübe Puanı : 173
Kayıt tarihi : 12/07/10

MesajKonu: Permütasyon/Kombinasyon Hesaplama   Salı Tem. 13, 2010 3:24 pm

Kombinasyon Ve Permütasyon Hesaplama
________________________________________

Kod:
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
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://forumtime.fullforums.org
 
Permütasyon/Kombinasyon Hesaplama
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Permütasyon

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
...::::Tek Link Full Download::::... :: PROGRAMLAMA/WEB TASARIM :: Visual Basic-
Buraya geçin: