HomeArtikelDownloadsForum
PCFreunde.deForumEntwicklungDelphi, Pascal
Besucher online: 219
Schnellsuche

Anzeigen

Community

Foren
Delphi, Pascal Seite 1/1
Telegrammgebühr -> Buchstabenzahl ermitteln , etc
AntwortenNeues ThemaZur Themenliste
Seiten:
1
Nachricht
AlexTheNoob
Titel: Telegrammgebühr -> Buchstabenzahl ermitteln , etc 31.03.2009 22:36
1.021 Punkte (?)
Anmeldungsdatum: 19.11.2007
Beiträge: 314
1 Mitglied findet diesen Beitrag gut
Hallo,
Ich habe die Aufgabe bekommen, ein Programm zu schreiben ,welches nach Eingabe des zu übermittelnden Textes die Kosten errechnet.Dabei kostet jedes Wort 80 cent, ein Wort zählt als angefangene 10 Buchtaben (also ein Wort mit 12 Buchstaben zB zählt als 2 Wörter und so weiter...)
Nun dachte ich mir folgendes Vorgehen:

Die String-Variable "Text" ergibt sich aus einem Edit Fenster , dem Text.
Dann soll das Programm ermitteln, wieviel Zeichen die Nachricht ernthält (hier schon mein 1. Problem: Wie mache ich das? ) und dannach jeweils nach 10 Buchstaben ohne Leerzeichen oder wenn ein Leerzeichen kommt und dannach wieder ein Buchstabe , eine Variable um 1 erhöht. Die Variable wird mal 0.8 genommen und fertig.

Nun habe ich eben wirklich das Problem,wie ich ermitteln soll, wieviel Zeichen die Nachricht hat, da ich das ganze mit einer For i to do Schleife geplant hatte.
Oder hat jemand einfachere Vorschläge?

MfG
AlexTheNoob


/Edith sagt: Problem doch noch gelöst durch Hilfe eines Freundes , daher kein Erklärbedarf mehr vorhanden

[Zuletzt bearbeitet: 31.03.2009 23:23]

________________________________________
sysProfile
League of Legends (ref. Link)
Private Nachricht senden  
 
sphinx33
Titel: Telegrammgebühr -> Buchstabenzahl ermitteln , etc 01.04.2009 13:19
1.337 Punkte (?)
Anmeldungsdatum: 02.04.2007
Beiträge: 266
Jetzt würds mich aber interessieren, wie du das gelöst hast :lol:
Bin schon ganz neugierig geworden, ich habe nämlich selbst schon sowas ähnliches versucht, bin dann aber hilflos gescheitert! :wink:

Wär nett wenn du's kurz erklären könntest.

Grüßle Tobias

[Zuletzt bearbeitet: 01.04.2009 13:19]

________________________________________
Kostenloser Webhost
Private Nachricht senden  
 
AlexTheNoob
Titel: Telegrammgebühr -> Buchstabenzahl ermitteln , etc 09.06.2009 19:37
1.021 Punkte (?)
Anmeldungsdatum: 19.11.2007
Beiträge: 314
1 Mitglied findet diesen Beitrag gut
Hey,

Ich hoffe es ist noch nicht zu spät ;)

http://rapidshare.com/files/215912649/AA.rar

Da kannst du dir das Programm mal anschauen.Da ich im Moment leider kein Delphi auf meinem heimischen PC installiert habe (pöses,pöses Vista :p ),kann ich den Quelltext leider im Moment nicht nachschauen. Aber so ungefähr meine Vorgehensweise wiedergeben:

Also das Programm sucht erst wie lange die jeweiligen Wörter sind. Dannach folgt eine for i:=1 to lenght do Schleife, in der für jeden Buchstaben eines Wortes eine Hilfsvariable x um 1 erhöht wird. Da laut meiner Aufgabenstellung als "1 Wort" 10 Buchstaben definiert sind, wird automatisch die Variable y erhöht sobald x die 10 überschreitet. y zählt außerdem die Wörter. Jedesmal wenn ein neues Wort beginnt (sprich: vor ein Leerzeichen kommt UND dannach mindestens 1 Buchstabe geschrieben ist) wird y um 1 erhöht (per if then Schleife) ;)
Und x wird jedesmal wieder auf 0 gesetzt, wenn ein Leerzeichen kommt.

Ich hoffe man hat mich halbwegs gut verstanden :)
Ansonsten schaue ich mal, ob ich nicht doch noch einmal an doe .pas rankomme :)

MfG

________________________________________
sysProfile
League of Legends (ref. Link)
Private Nachricht senden  
 
sphinx33
Titel: Telegrammgebühr -> Buchstabenzahl ermitteln , etc 22.06.2009 19:19
1.337 Punkte (?)
Anmeldungsdatum: 02.04.2007
Beiträge: 266
Hey, konnte leider nicht früher schreiben, mein pc war kaputt.

Ah jetzt versteh ichs :wink:

Hmm, Respekt, hast du cool gelöst!

Grüßle Tobias

PS: Brauchst den Quelltext nicht ausgraben :lol:

________________________________________
Kostenloser Webhost
Private Nachricht senden  
 
AntwortenNeues ThemaZur Themenliste
Seiten:
1
Community Login
eMail:
Passwort:
Auto-Login