[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