Zahlen als Wort auflisten (0-100)

[BenjaminH]

Hast du dir den Beitrag aus der CodeLibrary angesehen?

P.S: Editiere deine Beiträge und poste bitte nicht dauernd neu.

[SirThornberry]

Zitat von sandaliye:

Soll ich dann aber alle Zahlen von 0-100 als Wort in den Code schreiben ?

Nein, das brauchst du gar nicht.
Denn "ein und zwanzig"
besteht aus den gleichen teilen wie "ein und dreißig"
du musst also nur die zehner und einer Stellen als Wort hinterlegen

[fkerber]

Hi!

Ich denke, die Aufgabe war bestimmt so gemeint, dass man nur die Zahlen (also als Zusammensetzung aus Ziffern) auflisten soll. Alles andere wäre glaube ich in dem Zusammenhang zu viel verlangt!


Ciao, Frederic


P.S.
Du kannst bestehende Beitrräge verändern, indem du oben rechts auf "Edit" klickst!
Dann musst du nicht 3 Beiträge hintereinander verfassen.

[sandaliye]

Zitat von SirThornberry:

Zitat von sandaliye:

Soll ich dann aber alle Zahlen von 0-100 als Wort in den Code schreiben ?

Nein, das brauchst du gar nicht.
Denn "ein und zwanzig"
besteht aus den gleichen teilen wie "ein und dreißig"
du musst also nur die zehner und einer Stellen als Wort hinterlegen

Also jeweils Variablen für die Zahlen von 1-10 dann die 11 und 12 und 16 und dann nur für die vollen Zehner ?

[SirThornberry]

genau, so ist die Aufgabe sicher gemeint und auch lösbar

[sandaliye]

Ok, dann werde ich das jetzt mal versuchen

und falls ich nicht weiterkomme, könnt ihr mihr ja helfen

[sandaliye]

Hab sowas gemacht aber er will das ich das nicht alles per Hand einschreibe, wie soll ich das machen !!!!!!

Wir sollen irgendwie auch mod und div verwenden °!°

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin
begin
   for  zahl:= 0 to 100 do
   begin
        Panel1.Caption := 'Starte';
   case zahl of
        0: ganzesWort:=' Null';
        1: ganzesWort:=' Eins';
        2: ganzesWort:=' Zwei';
        3: ganzesWort:=' Drei';
        4: ganzesWort:=' Vier';
        5: ganzesWort:=' Fünf';
        6: ganzesWort:=' Sechs';
        7: ganzesWort:=' Sieben';
        8: ganzesWort:=' Acht';
        9: ganzesWort:=' Neun';
        10: ganzesWort:=' Zehn';
        11: ganzesWort:=' Elf';
        12: ganzesWort:=' Zwölf';
        13: ganzesWort:=' Dreizehn';
        14: ganzesWort:=' Vierzehn';
        15: ganzesWort:=' Fünfzehn';
        16: ganzesWort:=' Sechzehn';
        17: ganzesWort:=' Siebzehn';
        18: ganzesWort:=' Achtzehn';
        19: ganzesWort:=' Neunzehn';
        20: ganzesWort:=' Zwanzig';
        21: ganzesWort:=' Einundwanzig';
        22: ganzesWort:=' Zweiundzwanzig';
        23: ganzesWort:=' Dreiundzwanzig';
        24: ganzesWort:=' Vierundzwanzig';
        25: ganzesWort:=' Fünfundzwanzig';
        26: ganzesWort:=' Sechsundzwanzig';
        27: ganzesWort:=' Siebenundzwanzig';
        28: ganzesWort:=' Achtundzwanzig';
        29: ganzesWort:=' Neunundzwanzig';
        30: ganzesWort:=' Dreißig';
        31: ganzesWort:=' Einunddreißig';
        32: ganzesWort:=' Zweiunddreißig';
        33: ganzesWort:=' Dreiunddreißig';
        34: ganzesWort:=' Vierunddreißig';
        35: ganzesWort:=' Fünfunddreißig';
        36: ganzesWort:=' Sechsunddreißig';
        37: ganzesWort:=' Siebenunddreißig';
        38: ganzesWort:=' Achtunddreißig';
        39: ganzesWort:=' Neununddreißig';
        40: ganzesWort:=' Vierzig';
        41: ganzesWort:=' Einundvierzig';
        42: ganzesWort:=' Zweiundvierzig';
        43: ganzesWort:=' Dreiundvierzig';
        44: ganzesWort:=' Vierundvierzig';
        45: ganzesWort:=' Fünfundvierzig';
        46: ganzesWort:=' Sechsundvierzig';
        47: ganzesWort:=' Siebenundvierzig';
        48: ganzesWort:=' Achtundvierzig';
        49: ganzesWort:=' Neunundvierzig';
        50: ganzesWort:=' Fünfzig';
        51: ganzesWort:=' Einundfünfzig';
        52: ganzesWort:=' Zweiundfünfzig';
        53: ganzesWort:=' Dreiundfünfzig';
        54: ganzesWort:=' Vierundfünfzig';
        55: ganzesWort:=' Fünfundfünfzig';
        56: ganzesWort:=' Sechsundfünfzig';
        57: ganzesWort:=' Siebenundfünfzig';
        58: ganzesWort:=' Achtundfünfzig';
        59: ganzesWort:=' Neunundfünfzig';
        60: ganzesWort:=' Sechzig';
        61: ganzesWort:=' Einundsechzig';
        62: ganzesWort:=' Zweiundsechzig';
        63: ganzesWort:=' Dreiundsechzig';
        64: ganzesWort:=' Vierundsechzig';
        65: ganzesWort:=' Fünfundsechzig';
        66: ganzesWort:=' Sechsundsechzig';
        67: ganzesWort:=' Siebenundsechzig';
        68: ganzesWort:=' Achtundsechzig';
        69: ganzesWort:=' Neunundsechzig';
        70: ganzesWort:=' Siebzig';
        71: ganzesWort:=' Einundsiebzig';
        72: ganzesWort:=' Zweiundsiebzig';
        73: ganzesWort:=' Dreiundsiebzig';
        74: ganzesWort:=' Vierundsiebzig';
        75: ganzesWort:=' Fünfundsiebzig';
        76: ganzesWort:=' Sechsundsiebzig';
        77: ganzesWort:=' Siebenundsiebzig';
        78: ganzesWort:=' Achtundsiebzig';
        79: ganzesWort:=' Neunundsiebzig';
        80: ganzesWort:=' Achtzig';
        81: ganzesWort:=' Einundachtzig';
        82: ganzesWort:=' Zweiundachtzig';
        83: ganzesWort:=' Dreiundachtzig';
        84: ganzesWort:=' Vierundachtzig';
        85: ganzesWort:=' Fünfundachtzig';
        86: ganzesWort:=' Sechsundachtzig';
        87: ganzesWort:=' Siebenundachtzig';
        88: ganzesWort:=' Achtundachtzig';
        89: ganzesWort:=' Neunundachtzig';
        90: ganzesWort:=' Neunzig';
        91: ganzesWort:=' Einundneunzig';
        92: ganzesWort:=' Zweiundneunzig';
        93: ganzesWort:=' Dreiundneunzig';
        94: ganzesWort:=' Vierundneunzig';
        95: ganzesWort:=' Fünfundneunzig';
        96: ganzesWort:=' Sechsundneunzig';
        97: ganzesWort:=' Siebenundneunzig';
        98: ganzesWort:=' Achtundneunzig';
        99: ganzesWort:=' Neunundneunzig';
        100: ganzesWort:=' Hundert';

        end;


        memo1.lines.add(inttostr(zahl) + ' ' +   ganzesWort);
        sleep(100);
end;
end;
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
memo1.lines.clear;
end;

[ste_ett]

Mit "mod" und "div" kannst du die Einer- , Zehner- und Hunderterstellen einer Zahl sehr einfach ermitteln und so das passende Textstück wählen.
Z.B.

31 div 100
31 div 10
31 mod 10

ergibt
0
3
1

Somit hast du die Zahlen und kannst die Steckstücke wählen.