Term (Zeichenfolge 1+2*3) in Fließkommazahl

[Miolin]

Ich habe gerade auf Delphi-Treff gesehen, dass dort ein Funktionsinterpreter für einen Taschenrechner in Form eines Tutorials gebaut wird... Vielleicht hilft das ja noch ein bisschen weiter -> hier

[Blup]

Nein, das liegt daran, daß du die letzen beiden Beiträge nicht richtig gelesen hast.
Der Quellcode ist unvollständig und muss von dir an dieser Stelle ergänzt werden:

// hier alles in SL ausrechnen

Wenn du tatsächlich verstehst, was in dem kopierten Quellcode passiert, dürfte das kein Problem sein.

[Delphi-Narr]

Ich hatte mir diese Lösung runtergeladen, da fehlte das auch... Konnte das nur wegen StrUtils nicht kompilieren...

Also so ganz richtig versteh ich das nicht.

[Sherlock]

Na, dann musst Du Dir doch die Frage stellen, was SL (oder meinetwegen auch ein Element daraus) eigentlich ist.
Wenn Du die Antwort dazu hast kanns weiter gehen.

Sherlock

[himitsu]

Zitat von Blup:

// hier alles in SL ausrechnen

jupp, der Code da zerlegt nur den String und setzt ihn am Ende wieder zusammen

Delphi-Quellcode:

For i := 0 to SL.Count - 3 do
  If TryStrToFloat(SL[i], a) and (SL[i + 1] = '*')
      and TryStrToFloat(SL[i + 2], b) Then Begin
    SL.Delete(i);
    SL.Delete(i);
    SL[i] := FloatToStr(a * b);
    Goto Loop;
  End;

in dem kompletten Code steht dann z.B. sowas drin

dieses schaut, ob irgendwo in SL eine Kombination von "Zahl * Zahl" vorkommt

Delphi-Quellcode:

If    TryStrToFloat(SL[i], a) 
  and (SL[i + 1] = '*')
  and TryStrToFloat(SL[i + 2], b) Then Begin

wenn soetwas gefunden wurde, dann wird dieses ausgerechnet und in SL durch das Ergebnis ersetzt

Delphi-Quellcode:

SL.Delete(i + 2);
SL.Delete(i + 1);
SL.Delete(i);
SL.Insert(i, FloatToStr(a * b));

es geht auch andersrum

Delphi-Quellcode:

SL.Insert(i, FloatToStr(a * b));
SL.Delete(i + 1);
SL.Delete(i + 2);
SL.Delete(i + 3);

// bzw.
SL.Insert(i + 3, FloatToStr(a * b));
SL.Delete(i + 2);
SL.Delete(i + 1);
SL.Delete(i);

etwas gekürzter Austausch

Delphi-Quellcode:

SL.Delete(i);
SL.Delete(i);
SL.Delete(i);
SL.Insert(i, FloatToStr(a * b));

und noch mehr gekürzt

Delphi-Quellcode:

SL.Delete(i);
SL.Delete(i);
SL[i] := FloatToStr(a * b);

nja, jedenfalls müssen irgendwie aus der Liste die entsprechenden (hierfür 3) Einträge raus
und dafür das Ergebnis rein

Zitat von Delphi-Narr:

Ich hatte mir diese Lösung runtergeladen, da fehlte das auch...

hab grad nochmal nachgesehn ... in Taschenrechner_komplett.7z ist alles drin

Zitat von Delphi-Narr:

Konnte das nur wegen StrUtils nicht kompilieren...

Bei mir läuft sogar schon in Delphi 7

Wegen was bezüglich der StrUtils konnte es nicht kompiliert werden? (eine "richtige" Fehlermeldung)

Und welche Delphi-Version hattest du nochmal?
gut, das mit dem Delphi 5 hat sich ja grade geklärt.

ja, dann mußt du einfach diese Unit entfernen und dann schauen bei welchen Funktionen das Delphi nun meckert, weil es diese nicht kennt .... dann könnte man nachsehn ob passende Funktionen irgendwo in D5 existieren oder man sorgt irgendwie für Ersatz. (Ersatzfunktion basteln oder das Problem anders lösen)

[add]
ohne die StrUtils könnte man statt
AnsiMatchText(SL[i - 1], ['*', '/', '+', '-']) einfach dieses machen
((SL[i - 1] = '*') or (SL[i - 1] = '/') or (SL[i - 1] = '+') or (SL[i - 1] = '-'))

[Delphi-Narr]

Danke für die Antwort. Ich habs auch kompiliert gekriegt, nachdem ich etwas geändert habe...
Ich les mir das und die 7zip mal genau durch...

[alzaimar]

Zitat von himitsu:

[add]
ohne die StrUtils könnte man statt
AnsiMatchText(SL[i - 1], ['*', '/', '+', '-']) einfach dieses machen
((SL[i - 1] = '*') or (SL[i - 1] = '/') or (SL[i - 1] = '+') or (SL[i - 1] = '-'))

Oder
SL[i-1] in ['*','/','+','-'] oder
Pos('*/+-',SL[i-1])<>0

Dein Code kann aber keine Klammern, oder?
Ich hab hier was....
[edit]Code entfernt, da er nicht richtig funktioniert[/edit]

[edit]Verbesserten Code am Ende eingefügt[/edit]

[himitsu]

Zitat von alzaimar:

... Oder ... oder ...

OK, das geht auch
hatte es nur so gelößt, damit man dann auch noch "mod" und Co. einfach nachrüsten kann
(wie hier unten die Klammern, beim Zerlegen, reingequetscht werden, braucht man nur 'a'..'z', 'A'..'Z' bei den Zahlen reinmachen und hat auch noch Wörter, wie Named-Operators, mit geparst )

Zitat:

2*+2

ja, das + und - wird doppelt ausgewertet
- einmal als Vorzeichen ganz am Anfang, da höchste Priorität
- und nochmal ganz am Ende als Operator, da niedrigste Priorität



nein, der kann noch keine Klammern

das hier sollte "nur" ein kleiner "einfacher" Anfang werden,
nicht so wie da http://www.delphipraxis.net/internal...t.php?t=159592

man müßte nur noch "(" und ")" beim Zerlegen mit beachten

Code:

For i := 1 to Length(S) do
  Case S[i] of
    ...
    '*', '/', '+', '-'[color=#ff0000], '(', ')'[/color]: Begin

und dann kommt unten als erste "höchstwertige" Auswertung dieses rein

Delphi-Quellcode:

For i := 0 to SL.Count - 3 do
  If (SL[i] = '(') and TryStrToFloat(SL[i + 1], a) and (SL[i + 2] = ')') Then Begin
    SL.Delete(i + 2);
    SL.Delete(i);
    Goto Loop;
  End;

[add]
hab aber wirklich eine Vereinfachung gefunden
If ((i = 0) or AnsiMatchText(SL[i - 1], ['*', '/', '+', '-'])) dieses war ja einfach nur für "ist Operator", was doch auch soviel wie "ist keine Zahl" heißt

also dieses sollte stattdessen auch gehn
If ((i = 0) or not TryStrToFloat(SL[i - 1], b))
[add]
hier noch mit Klammern und Div/Mod

und ja natürlich kann man da vieles noch optimieren und zusammenfassen, aber das kann auch jeder selber machen

[SirThornberry]

Ich persönlich finde es ehrlich gesagt quatsch das ganze in einem String zu speichern um diesen dann wieder auseinander zu nehmen. Mein Taschenrechner aus der Schule hat damals alles direkt bei der Eingabe gerechnet. Dabei ist die Regelung auch recht einfach. Eine Zahl wirst erst zum bisherigen Ergebnis hinzugefügt (im Sinne der gewählten Rechenoperation) wenn die nächste Operation gewählt wurde.
Bei: 1+2*3

ist er also wie folgt vorgegangen (hat man im Display gesehen wann er das Zwischenergebnis angezeigt hat)
Eingabe: 1 -> nichts passiert
Eingabe: + -> 1 wird als Zwischenergebnis angezeigt
Eingabe: 2 -> nichts passiert
Eingabe: * -> 2 wird als Zwischenergebnis der Punktrechnung angezeigt
Eingabe: 3 -> nichts passiert
Eingabe: = -> Gesamt Ergebnis wird angezeigt

Wenn man anstelle des "=" eine Strichoperation gewählt hätte würde er das Zwischenergebnis der Punktoperation zum vorherigen Zwischenergebnis dazu zählen und hätte das Gesamtzwischenergebnis angezeigt. Bei einer weiteren Punktoperation hingegen, wäre weiter auf das Zwischenergebnis der verändert wurden.

[alzaimar]

So ähnlich hab ich das ja auch gemacht. Nur eben tu ich so, also ob der String schon da wäre. Also ich tu na nich so, denn der Strinque ist ja schon da. Ich prozessiere also Zeichen für Zeichen von links nach rechts, mach kein Look-Ahead und auch sonst keine Tricksereien.

Nur gefrickelt ist es halt. Soll eine Stackmaschine darstellen (ops = Operandenstack, numStack = Zahlen).

Ich glaube, man sollte das nicht zu ernst nehmen. Es war ne 30min-Frickelei, weil ich mal schauen wollte, wie viel ich von diesem Mumpitz noch aus meiner Studienzeit wusste. Nichts, hat sich anschließend herausgestellt.

Ich finde es aber eine hübsche Übung, denn es ist nicht trivial.

Poste doch mal deinen Ansatz.