AW: Bitte noch einmal antworten! Danke! :-) owT
02.06.2009 16:16:14
Erich
Hi Erhard,
natürlich ist es ziemlich blöd, wenn ein umfangreiches Posting aufgrund von Serverproblemen im Nirwana verschwindet.
Trotz alledem: Ich habe mir einige Arbeit gemacht, mit den Programmen und mit meinen Postings.
Ich fände es sehr schön, wenn du meine Fragen (abgesehen von der generellen und der Erklärung der Division)
doch noch mal beantworten würdest.
Noch eine Bemerkung zur neuen Aufgabe (Zahlenpools: A(a,b,c,d,e,f,g)...):
IMHO reduzieren sich die Bedingungen
m=abs(a-b) n=abs(c-b) o=abs(c-1) p=abs(d-1) q=abs(e-d) r=abs(c-f) s=abs(f-g) v=abs(b-2)
auf
ab , cb , ed , cf , fg
Alle anderen Bedingungen sind sowieso erfülllt.
Damit bekomme ich 381024 Lösungen:
Option Explicit
Sub PoolA() ' 381024 Mgöglichkeiten (= 7^2 * 6^5)
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
Dim f As Integer, g As Integer, zz As Long
Dim lnZ As Long
If 1 = 1 Then
Worksheets.Add
Rows(1).HorizontalAlignment = xlCenter
' Columns.ColumnWidth = 3.3
' Cells(1, 1).Resize(, 16) = Split("a b c d e f g || m n o p q r s v")
' zz = 1
End If
For a = 3 To 9
For b = 3 To 9
If b a Then
For c = 3 To 9
If c b Then
For d = 3 To 9
For e = 3 To 9
If e d Then
For f = 3 To 9
If f c Then
For g = 3 To 9
If g f Then
zz = zz + 1
Application.StatusBar = a & " / " & zz
If 0 = 1 Then
Cells(zz, 1).Select
Cells(zz, 1) = a
Cells(zz, 2) = b
Cells(zz, 3) = c
Cells(zz, 4) = d
Cells(zz, 5) = e
Cells(zz, 6) = f
Cells(zz, 7) = g
'm=abs(a-b) n=abs(c-b) o=abs(c-1) p=abs(d-1)
Cells(zz, 9) = Abs(a - b)
Cells(zz, 10) = Abs(c - b)
Cells(zz, 11) = c - 1
Cells(zz, 12) = d - 1
'q=abs(e-d) r=abs(c-f) s=abs(f-g) v=abs(b-2)
Cells(zz, 13) = Abs(e - d)
Cells(zz, 14) = Abs(c - f)
Cells(zz, 15) = Abs(f - g)
Cells(zz, 16) = b - 2
End If
End If
Next g
End If
Next f
End If
Next e
DoEvents
Next d
End If
Next c
If 1 = 1 Then
lnZ = lnZ + 1
Cells(lnZ, 1) = a
Cells(lnZ, 2) = b
Cells(lnZ, 3) = zz
zz = 0
End If
End If
Next b
Next a
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
