[MD-sorular] 3x3 bilgisayar programı ve çözüm
Kadir GÜLEÇ
kadir.gulec at spk.gov.tr
11 Tem 2009 Cmt 21:06:26 EEST
Excel'de son derece basit çözüm aşağıda
Hatalara açığım ama
Sonuç 45*5!*4! İle uyumlu
129600
362880
0,357143
benim mainada 7-8 dakika sürdü
Sub hazırla()
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer
Dim cift As Integer
Dim ciftsay As Double
Dim toplam As Double
Dim p As Double
toplam = 1
For i1 = 1 To 9
toplam = toplam * i1
Next i1
ciftsay = 0
For i1 = 1 To 9
For i2 = 1 To 9
For i3 = 1 To 9
For i4 = 1 To 9
For i5 = 1 To 9
For i6 = 1 To 9
For i7 = 1 To 9
For i8 = 1 To 9
For i9 = 1 To 9
If Not ( _
i1 = i2 Or i1 = i3 Or i1 = i4 Or i1 = i5 Or i1 = i6 Or i1 = i7 Or i1 = i8 Or i1 = i9 Or _
i2 = i1 Or i2 = i3 Or i2 = i4 Or i2 = i5 Or i2 = i6 Or i2 = i7 Or i2 = i8 Or i2 = i9 Or _
i3 = i1 Or i3 = i2 Or i3 = i4 Or i3 = i5 Or i3 = i6 Or i3 = i7 Or i3 = i8 Or i3 = i9 Or _
i4 = i1 Or i4 = i2 Or i4 = i3 Or i4 = i5 Or i4 = i6 Or i4 = i7 Or i4 = i8 Or i4 = i9 Or _
i5 = i1 Or i5 = i2 Or i5 = i3 Or i5 = i4 Or i5 = i6 Or i5 = i7 Or i5 = i8 Or i5 = i9 Or _
i6 = i1 Or i6 = i2 Or i6 = i3 Or i6 = i4 Or i6 = i5 Or i6 = i7 Or i6 = i8 Or i6 = i9 Or _
i7 = i1 Or i7 = i2 Or i7 = i3 Or i7 = i4 Or i7 = i5 Or i7 = i6 Or i7 = i8 Or i7 = i9 Or _
i8 = i1 Or i8 = i2 Or i8 = i3 Or i8 = i4 Or i8 = i5 Or i8 = i6 Or i8 = i7 Or i8 = i9 Or _
i9 = i1 Or i9 = i2 Or i9 = i3 Or i9 = i4 Or i9 = i5 Or i9 = i6 Or i9 = i7 Or i9 = i8) Then
r1 = i1 * i2 * i3 Mod 2
r2 = i4 * i5 * i6 Mod 2
r3 = i7 * i8 * i9 Mod 2
c1 = i1 * i4 * i7 Mod 2
c2 = i2 * i5 * i8 Mod 2
c3 = i3 * i6 * i9 Mod 2
cift = r1 + r2 + r3 + c1 + c2 + c3
If cift = 0 Then ciftsay = ciftsay + 1
End If
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Cells(1, 1) = ciftsay
Cells(1, 2) = toplam
Cells(1, 3) = ciftsay / toplam
MsgBox ("Bitti")
End Sub
-------------- sonraki bölüm --------------
Bir HTML eklentisi temizlendi...
URL: http://lists.math.bilgi.edu.tr/pipermail/md-sorular/attachments/20090711/5ecb3806/attachment.htm
MD-sorular mesaj listesiyle ilgili
daha fazla bilgi