Hallo,

ich habe heute in der Schule die Aufgabe bekommen, ein Programm zu schreiben, welches ausgeschriebene Zahlen erkennt und in Dezimalwerte umwandelt...

Als Beispiel sei gennant:
Eine eingegebene "zwölf" soll vom Programm erkannt und in einer "12" umgewandelt werden. Oder auch eine "zweihundertdreiundvierzig" in eine "243".

Die Zahlen werden in ein Edit-Feld eingegeben und auf Knopfdruck sollen diese umgewandelt werden.

Gibt es da eine fertige Funktion für?

Danke schonmal für eure Hilfe.


Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 03.09.2009 um 19:30

Nein, sofern ich weiss, gibt es dafür keine fertige Funktion. Doch:
Dies ist zwar die Umgekehrte Funktion, aber vllt. hilft sie dir ja, damit du den richtigen Gedankenblitz bekommst, wie du sowas realisieren könntest ...

Webo hat folgendes geschrieben :

Nein, sofern ich weiss, gibt es dafür keine fertige Funktion. Doch: Dies ist zwar die Umgekehrte Funktion, aber vllt. hilft sie dir ja, damit du den richtigen Gedankenblitz bekommst, wie du sowas realisieren könntest ...

Schließ mich dort an. Alternativ gibt's noch eine "Umgekehrte"-Funktion in der DP: http://www.delphipraxis.net/topic88367.html.

Grüße,
Marc

Hallo,

erstmal in der EE.

eine fertige Funktion gibt es bestimmt irgendwo,
aber was nützt Dir die Funktion wenn Du den Code dann nicht erklären kannst.

- String zerlegen(! in 'hundert' ist auch ein 'und' enthalten !)
zweihundertvierundvierzig = > 'zwei' 'hundert' 'vier' 'und' 'vier' 'zig'
eintausendundelf => 'ein' 'tausend' 'und' 'elf'

- in Zahlen/Multiplikatoren umwandeln(! 'zwan' ist auch eine 2 in 'zwanzig' !)
zweihundertvierundvierzig
'zwei' -> 2
'hundert' -> * 100
'vier' -> 4
'und' -> +
'vier' -> 4
'zig' -> *10

eintausendunddreißig
'ein' -> 1
'tausend' * 1000
'und' -> +
'drei' -> 3
'ßig' * 10

- rechnen
überlass ich jetzt Dir

Hallo und danke schonmal für die nützlichen Tipps. Ich habe mir schonmal die umgekehrten Funktionen etwas angesehen. Ich hoffe, es wird nicht allzu kompliziert, diese Funktionen umzumodeln...

Mit "fertige Funktion" meinte ich eher etwas, was bei Delphi schon mit dabei ist... so ne Art StrToInt halt nur für die Wörter

Ich werd mal einfach schauen, wie weit ich da komme.

wär ja etwas witzlos von deinem lehrer sowas zu verlangen und dann gibts das schon in delphi.

außerdem: Codegear müsste dann für jede sprache dieser welt diese Funktion implementieren und das wäre dann doch etwas mühsam außerdem müsste die funktion dann noch automatisch die sprache erkennen, nem?

lg elundril

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Ja da hast du wohl recht.
Momentan verzweifel ich aber eher daran, meine ausgeschriebene Zahl zu zerlegen... Mit Pos und Copy komme ich da irgendwie nicht weiter.

also ich würd es so machen, das ich mir zuerst die milliarde suche, dann alles inklusive dem milliarde aus dem ding rausschneide. dann hab ich vor dem milliarde ne zahl stehen, die mir angibt, wieviele milliarden ich hab, usw.

lg elundril

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Ja genau ich wollte es so machen, wie Lannes es beschrieben hat. Aber wenn ich z.B. die erste Stelle suche (ich fange mal klein an mit der 'einhundert') habe ich das Problem, dass er mir nicht die 'ein' ausgibt.

Mal zur Veranschaulichung:


Ich möchte in thilf nun also nur ein, eins oder eine stehen haben damit ich diese dann konvertieren kann zur 1...

Aber er gibt mir immer die 'einhundert' aus...

DocSol hat folgendes geschrieben :

Mal zur Veranschaulichung: markieren Delphi-Quelltext     1:  if (zeile[apos] = 'ein') OR (zeile[apos] = 'eins') OR (zeile[apos] = 'eine')then Ich möchte in thilf nun also nur ein, eins oder eine stehen haben damit ich diese dann konvertieren kann zur 1... Aber er gibt mir immer die 'einhundert' aus...

Kein Wunder, denn zeile[apos] ist nur ein Zeichen! Wenn apos=1 dann ist es das erste Zeichen, apos=2 das zweite etc. Du vergleichst aber immer mit einem String wie 'ein' und das geht dann natürlich schief...

Und wie kann ich dann am Besten den String nach 'ein', 'eins' oder 'eine' durchsuchen?
Ich stehe da momentan echt toal auf dem Schlach und komme nicht voran...

Danke für deine Hilfe...

Ich habe mir nun einen weiteren Lösungsansatz überlegt bzw. mir wurde so etwas vorgeschlagen:

Ich durchsuche die ausgeschriebene Zahl zuerst nach den "Punkten" d.h. durchsuche den String nach 'millionen' und 'tausend'.
Die Zahl, die dann z.B. vor dem 'millionen' steht, konvertiere ich und multipliziere sie später einfach mit 1.000.000

Dafür habe ich mir dann folgendes ausgedacht:

Den Quellcode habe ich eben schnell aus dem Kopf geschrieben...

Wenn ich jetzt nicht total daneben liege, müsste ich in "mwert" dann den Millionenwert haben, den ich mit 1.000.000 multiplizieren kann und in "zeile" müsste der Rest der verbleibenden Zahl stehen (also die Zahl ab der Tausenderstelle) oder?
Mal als Beispiel mit der Zahl "dreihundertzwölfmillionenvierundachtzigtausendeinhundertundzwei" (312.084.102)

In der Variable "mwert" steht dann doch : "dreihundertzwölf"
und in "zeile" : "vierundachtzigtausendeinhundertundzwei"


Und genauso würde ich dann auch die Tausenderzahl "ausschneiden"...

Also ich würde da ja so herangehen:
-> "eins" in "ein" und dann "ein" in "eins" umwandeln.
-> Danach (ich weiß, ist nicht EBNF):


Mit entsprechenden Methoden IstZehner() usw. sollte das eigentlich gehen.

Jakob ist dieser Lösungsvorschlag nicht eher dafür gedacht, aus Integerwerten ausgeschriebene Zahlen zu erstellen? So verstehe ich das jedenfalls...

Woran genau kann es eigentlich liegen, wenn ich mit dem 'Pos' Befehl innerhalb meines String das gesuchte Wort nicht finde?
Ich habe z.B. die Zahl "einemillionen" und suche mit 'Pos' nach der Zeichenfolge "millionen". Die wird allerdings nicht gefunden.



So siehts aus... Das 'break;' ist nur für mich da, muss also nicht beachtet werden.

Hallo,

bist Du Dir sicher das Du "einemillionen" in Deinem zu durchsuchenden String hast?
Richtig geschrieben ist das:
eine Million
zwei Millionen

Erst nach "millionen" suchen, dann nach "million"

Dein anderes Beispiel kann auch unterschiedlich geschrieben sein
"dreihundertzwölfmillionenvierundachtzigtausendeinhundertundzwei"
"dreihundertzwölf Millionen vierundachtzigtausendeinhundertzwei"
Laut Rechtschreibung werden ausgeschriebene Zahlen gößer 1.000.000 durch Leerzeichen getrennt.

Z.B. kann auch die Zahl 1987 in mehreren Varianten geschrieben sein:
eintausendneunhundertsiebenundachtzig
neunzehnhundertundsiebenundachtzig
neunzehnhundertsiebenundachtzig

Noch ein schönes Beispiel:
Duden: dreißig
aus dem Code vom Delphi-treff: dreisig
falsch geschrieben dreissig

oder wie ist es mit Umlauten
"zwölf" ist eindeutig
"zwoelf" = "zwo" und "elf"

Sind die zu verarbeitenden Zahlenstrings eindeutig oder soll Dein Programm auch solche Probleme abfangen?

Also zuerst die eindeutigen, wie schon bei der "million(en)" zuerst suchen und dann die Reststrings weiter splitten:
zwoelftausendelf
zwoelf tausendelf
zwoelf tausend elf

In den Beispielen, die bei der Aufgabenstellung dabei waren, wurden die ausgeschriebenen Zahlen zusammen geschrieben. Und ich habe in meinem String zum Testen sogar nur "einemillionen" stehen gehabt. Dennoch wurde das "millionen" nicht gefunden. Wenn ich jedoch nur das Wort "millionen" im String habe, wird es gefunden.

Ich gehe von eindeutigen Zahlenstrings aus. Also "dreihundertzwölfmillionenvierundachtzigtausendeinhundertundzwei" (mit UND) usw...

Ä, Ü und Ö gehen auch.

Zahlen wie 1987 (Neunzehnhundertsiebenundachtzig) gibt es nicht... es ist also "Eintausendneunhundertsiebenundachtzig"

Wie schon erwähnt, klappt das Suchen mit Pos nicht so, wie ich es gerne hätte... also obwohl im String das wort "millionen" vorkommt, wird es nicht gefunden.
Splitten werde ich diesen String dann in unterschiedliche Variablen, mit denen ich weiter arbeite.

dein Problem könnte groß und kleinschreibung sein, wandle den String vorher mal mit s := lowercase(s:String); um.

Dein Programm sollte neunzehnhundertundneunundneunzig eh erkennen da:

neun
* zehn
* hundert
+ (und) neun
+ (und) neun
* (zig) 10

= 1999

Achtung: dabei ist es Wichtig, dass du das zig nur auf die neun und nicht auf den Rest anwendest.

Meine allgmeine Vorgehensweise wäre also ungefähr:


Man beginnt immer mit der Zahl 1, es sei denn, das Wort beginnt mit:

"zwei"
"drei"
"vier"
...
"zwölf"

danach folgt eig. immer

"zig"
"hundert"
"tausend"
"millionen"
etc.

welches dann entsprechend multipliziert, oder bei

"zehn"

addiert wird, bzw. bei

"und"

eine Addition einleitet.
ich überlege gerade, ob man das nicht evtl. Rekursiv lösen könnte...

Man könnte sozusagen eine "expect"-Funktion einbauen, die diese Regeln "beherrscht", und beschließt, was als nächstes kommt.

Hallo,

FinnO hat folgendes geschrieben :

Man beginnt immer mit der Zahl 1, es sei denn, das Wort beginnt mit: "zwei" "drei" "vier" ... "zwölf" danach folgt eig. immer "zig"

eigentlich, da bleiben dann aber noch so ca. siebenzig Ausnahmen

FinnO hat folgendes geschrieben :

ich überlege gerade, ob man das nicht evtl. Rekursiv lösen könnte...

ja.

@ siebenzig: siebenzig würde ja auch funktionieren. Na und? Tatsache ist, das Programm wandelt alle Zahlen um, und welche, die keine sind, recht genau auch.

Generell sollte man aber lieber Zahlen wie "Sieben" vorher schon zu "sieb" verkürzen (genau wie "zwei" zu "zwo" usw.)