Taschenrechner Programmieren

[Nicolai1234]

Ich hab es nochmal als .zip und .rar angehängt!

[Jack Ryan]

ohhh sorry

[Skiron]

ich hab mal ein beispiel geschrieben, wie mans machen könnt...
is scho fast ein kleiner parser...
mängel: eine zahl kann einige kommas haben...

[Nicolai1234]

Wenn ich einen String(Edit.text) habe (Beispiel=1+6/6*5). Wie kann ich ihn dann ausrechnen lassen?

[Skiron]

1+6/6*5
-suche zuerst alle / und *:
-finde das 6/6 und ersetze es durch das ergebnis (6/6 = 1)
1+1*5
-finde das 1*5 und ersetze es durch das ergebnis (1*5 = 1)
1+1
nichts mehr gefunden, also
-suche alle + und -
-finde 1+1 und ersetze es durch das ergebnis (1+1 = 2)
2
nichts mehr gefunden, also
Ergebnis = 2

[himitsu]

Zitat von Skiron:

finde das 1*5 und ersetze es durch das ergebnis (1*5 = 1)

[Nicolai1234]

Gibt es die Möglichkeit:
(Wenn man vorher / durch div ersetzt?

Code:

Ergebnis := strtoint(edit1.text);

[Skiron]

Zitat von himitsu:

Zitat von Skiron:

finde das 1*5 und ersetze es durch das ergebnis (1*5 = 1)

jetzt weiß ich warum mich mein mathelehrer nicht so richtig mag *g*

Zitat von Nicolai1605:

Gibt es die Möglichkeit:
(Wenn man vorher / durch div ersetzt?

Code:

Ergebnis := strtoint(edit1.text);

geht nicht, dann sagt delphi z.B.

Code:

'1 div 1 ' ist kein gültiger Integerwert

oder so

[glkgereon]

man brauch wirklich nen parser!

man muss den ganzen "scheiss" in nen array klotzen

(so etwa:
'2+7*123+34'
wird zu
a[1]:='2';
a[2]:='+';
a[3]:='7';
a[4]:='*';
a[5]:='123';
a[6]:='+';
a[7]='34'; )

dan muss man sagen

Delphi-Quellcode:

try zahl1:=strtoint(a[1])
except zeichen1:=a[1];
und so wieter....

und dann

Delphi-Quellcode:

if zeichen1:='*'
then ergebnis:=zahl1 * zahl2
else if zeichen1='/'
then ergebnis:=zahl1/zahl2;

wobei das jetzt ne spontene idee war, und wahrscheinlich das umstaädlichste überhaupt ist...

[Skiron]

ich habs so ähnlich gemacht
nur dass ich die Zahlen in einem Array und die Zeichen in einem String habe