Programmzeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alifa,
Punkt vor Strich, richtig? Deshalb die Klammern.
Leider habe ich keine Musterdatei von dir, darum auch keine Ahung wie die Ausgabe aussehen soll.
Ich habe mir jetzt mal die Permutationen der Rechenoperationen in einer Hilfstabelle hingeschrieben und für alle Möglichkeiten die Ergebnisse in eine Matrix geschrieben:
https://www.herber.de/bbs/user/84353.xlsm
(drücke "clear" zum leeren, "Formeln" um die Mathe-Formeln zu sehen oder "Ergebniss" um das Ergebniss zu sehen)
Das Ergebnis (E) soll positiv, ganzzahlig sein und sich zwischen 10 und 100 befinden.
Ehm ... Nö? eine gültige Permutation deiner Befehle ist -6 /8 +4 *7, durch ausklammerung von der Punkt-vor-Strich Regel befreit ergibt das für den Input 97 (das ist eine Zahl zwischen 18 und 100):
((((97-6)/8)+4)*7)=107,625
Das ist nunmal so. Du kannst nicht verlangen, dass die Ergebnisse ganzzahlig und zw. 10 und 100 sind, wenn Adam Riese damals etwas anderes herausbekommen hätte!
wie kann man das in wenigen Programmzeilen erfassen?
Mangels Kentniss deiner Ausgabewünsche der Ergebnisse habe ich das ignoriert und relativ viele Programmzeilen und Hilfstabellen verwendet.
Um das zu reduzieren, dürfen die Permutationen FEST im Code stehen oder verändern die sich noch?
Grüße,
Klaus M.vdT.

Hi Erhard,
dieser Code


Option Explicit
Dim arE
Sub RechenopPerm()
Dim strT As String, ww0 As Long, zz As Long, ww As Double
Dim cc As Long, ze As Long, strE As String
strT = "1234"
ReDim arE(1 To Application.Fact(Len(strT))) As String
Permu strT, "", 0
ze = 1
For ww0 = 18 To 100
For zz = 1 To UBound(arE)
ww = ww0: strE = "((((" & ww0
For cc = 1 To 4
Select Case --Mid(arE(zz), cc, 1)
Case 1: ww = ww - 6: strE = strE & "-6)"
Case 2: ww = ww / 8: strE = strE & "/8)"
Case 3: ww = ww + 4: strE = strE & "+4)"
Case 4: ww = ww * 7: strE = strE & "*7)"
End Select
Next cc
If Int(ww) = ww Then
If ww > 9 And ww  1 Then
For ii = 1 To jj
Permu Left(aa, ii - 1) + Right(aa, jj - ii), bb + Mid(aa, ii, 1), ze
Next ii
Else
ze = ze + 1
arE(ze) = bb & aa
End If
End Sub

produziert das hier:

	A	B	C	D
1	Zahl	Perm	Formel	Ergebnis
2	18	1324	((((18-6)+4)/8)*7)	14
3	18	1342	((((18-6)+4)*7)/8)	14
4	18	1432	((((18-6)*7)+4)/8)	11
5	18	3124	((((18+4)-6)/8)*7)	14
6	18	3142	((((18+4)-6)*7)/8)	14
7	18	4123	((((18*7)-6)/8)+4)	19
8	20	3241	((((20+4)/8)*7)-6)	15
233	98	3142	((((98+4)-6)*7)/8)	84
234	98	4123	((((98*7)-6)/8)+4)	89
235	100	3214	((((100+4)/8)-6)*7)	49
236	100	3241	((((100+4)/8)*7)-6)	85
237	100	3421	((((100+4)*7)/8)-6)	85
238	100	4321	((((100*7)+4)/8)-6)	82

Es werden also 237 Lösungen gefunden.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Sub EinfachSo() Dim a, b, p, f1, t!, z As Byte Dim d1%, d2%, d3%, d4%, e Cells.ClearContents t = Timer p = Array("-6", "+4", "/8", "*7") For a = 18 To 100 For d1 = 0 To 3 For d2 = 0 To 3 For d3 = 0 To 3 For d4 = 0 To 3 If p(d1) p(d2) And p(d1) p(d3) And p(d1) p(d4) And p(d2) p(d3) _ And p(d2) p(d4) And p(d3) p(d4) Then f1 = "(" & "(" & "(" & a & p(d1) & ")" & p(d2) & ")" & p(d3) & ")" & p(d4) e = Evaluate(f1) If e > 10 And e

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread