Gedankenleser :-D

[ArmyMan]

Zitat:

Zitat von Christian18

naja ich denke nicht wirklich falsch!!!

Denn man kann ja Summanden vertauschen.

Sowie ich das gesehen habe, rechnest du ja nur mit +/-
Da kommt es doch gar nicht drauf an in welcher Reihenfolge die Summanden sind. => Da kann man tauschen wie man will und bekommt immer noch das gleiche. Man tauscht einfach das Vorzeichen mit.

Oder habe ich dich jetzt falsch verstanden?

Greetz

[Christian18]

Hallo,

ok, irgendwie habe ich gerade quatsch erzählt. Ok, das Programm hat einen fehler. der dürfte aber nur bei 1 auftauchen odeR?

[Tormentor32]

:wall:

Ich bin echt zu blöd... sorry! Ja klappt... aber du könntest ja ne Meldung machen, wenn das Ergebnis nicht möglich ist!

[Christian18]

Ok mache ich in der nächsten Version...

Falls es überhaupt eine nächste version geben wird, denn wie schon gesagt das war ein spaß projekt was ich in 10 minuten zusamenn gebaut habe.

MFG Chris

[fLaSh11]

Gibt's dazu nen Algorithmus oder haste jede Kombi durchprobiert? :P :P

[Corpsman]

Also nachdem er nur 5 Zahlen Hat und jede Zahl mit entweder + oder - Berechnet wird gibt das einen Mögöäichkeit von 2 ^5 kombinationen 2^5 = 32 das BrudeForced ein Rechner in null komma Nix geschwind aus ;).

[Khabarakh]

5 Operanden => 4 Operatoren => 2^4 Kombinationen :zwinker:

[Corpsman]

NEIN

Da mus ich dir wiedersprechen.

Was passiert wenn du die erste Zahl Negativ brauchst ??

Ich fand das so witzig das ich es mal Geproggt hab, geht ja schnell.

Nur kriege ich es einfach nicht Rekursiv hin.

Hier also meine Itterative Lösung.


Edit 1 - 5 die Zahlen Edit 6 das Erg
Label7 die Ausgabe

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  j, i: Integer;
  zahlen: Array[0..5] Of integer;
  erg: Integer;
Begin
  For i := 1 To 6 Do
    Zahlen[i - 1] := strtoint(Tedit(findcomponent('Edit' + inttostr(i))).text);
  For i := 0 To 31 Do Begin
    erg := 0;
    // Berechnen des Ergebnisses
    For j := 0 To 4 Do Begin
      If i And (1 Shl j) = (1 Shl j) Then
        erg := erg + Zahlen[j]
      Else
        erg := erg - Zahlen[j];
    End;
    // Prüfen
    If erg = Zahlen[5] Then Begin
      // Ausgabe
      Label7.caption := '';
      // Berechnen des Ergebnisses
      For j := 0 To 4 Do Begin
        If i And (1 Shl j) = (1 Shl j) Then
          label7.caption := label7.caption + '+' + inttostr(Zahlen[j])
        Else
          label7.caption := label7.caption + '-' + inttostr(Zahlen[j])
      End;
      label7.caption := label7.caption + '=' + inttostr(Zahlen[5]);
      // Fertig
      break;
    End;
  End;
End;

[Edit]

Also ein Kumpel von mir dem ich grad Proggen bei Bringe hat hier mal nen Mega Krassen Ansatz gebracht.

Der ist im Mittel sogar schneller, schauts euch einfach mal an.

Nur wie man schnell sehen kann, terminiert dieser Algorithmus nicht wenn man das Ergebnis nicht Korreckt eingibt ;)

Delphi-Quellcode:

Procedure TForm1.Button3Click(Sender: TObject);
Var
  j, i: Integer;
  zahlen: Array[0..5] Of integer;
  erg: Integer;
Begin
  c := 0;
  erg := 0;
  Label7.caption := '';
  For i := 1 To 6 Do Begin
    Zahlen[i - 1] := strtoint(Tedit(findcomponent('Edit' + inttostr(i))).text);
    If i < 6 Then
      erg := erg + Zahlen[i - 1];
  End;
  While erg <> Zahlen[5] Do Begin
    inc(c);
    i := random(5);
    Zahlen[i] := Zahlen[i] * -1;
    erg := 0;
    For j := 0 To 4 Do
      erg := erg + Zahlen[j];
  End;
  // Ausgabe
  For j := 0 To 4 Do Begin
    If Zahlen[j] > 0 Then
      label7.caption := label7.caption + '+' + inttostr(Zahlen[j])
    Else
      label7.caption := label7.caption + inttostr(Zahlen[j])
  End;
  label7.caption := label7.caption + '=' + inttostr(Zahlen[5]);
End;

[Edit2]

Endlich hab ichs auch Rekursiv hinbekommen, da ists aber net so hübsch wie ich finde.

Delphi-Quellcode:

Procedure TForm1.Button4Click(Sender: TObject);
Var
  j, i: Integer;
  zahlen: Array[0..5] Of integer;
  erg: Integer;

  Procedure Rekursion(Tiefe: Integer);
  Var
    j: Integer;
  Begin
    If Tiefe < 5 Then Begin
      Rekursion(Tiefe + 1);
      erg := 0;
      For j := 0 To 4 Do
        erg := erg + Zahlen[j];
      If erg <> Zahlen[5] Then Begin
        Zahlen[Tiefe] := Zahlen[Tiefe] * -1;
        Rekursion(Tiefe + 1);
      End;
    End;
  End;

Begin
  Label7.caption := '';
  erg := High(Integer);
  For i := 1 To 6 Do
    Zahlen[i - 1] := strtoint(Tedit(findcomponent('Edit' + inttostr(i))).text);
  Rekursion(0);
  // Ausgabe
  If Erg = Zahlen[5] Then Begin
    For j := 0 To 4 Do Begin
      If Zahlen[j] > 0 Then
        label7.caption := label7.caption + '+' + inttostr(Zahlen[j])
      Else
        label7.caption := label7.caption + inttostr(Zahlen[j])
    End;
    label7.caption := label7.caption + '=' + inttostr(Zahlen[5]);
  End;
End;

[Christian18]

Hallo Leute,

ich habe das Programm mal ein bisschen erweitert. Und das nur durch das eingeben einer Zahl xD.

MFG Christian18