Die Spinnen die Römer!

Verfügbare Informationen zu "Die Spinnen die Römer!"

Qualität des Beitrags:

Beteiligte Poster: daos06

Forum: DAFLO programming Forum

Forenbeschreibung: Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming

aus dem Unterforum: RapidBatch

Antworten: 1

Forum gestartet am: Samstag 05.08.2006

Sprache: deutsch

Link zum Originaltopic: Die Spinnen die Römer!

Letzte Antwort: vor 17 Jahren, 8 Monaten, 11 Tagen, 7 Stunden, 40 Minuten

Alle Beiträge und Antworten zu "Die Spinnen die Römer!"

Re: Die Spinnen die Römer!

daos06 - 12.08.2006, 20:03

Die Spinnen die Römer!
Hier ein Progg das Zahlen in röm. Ziffer umwandelt!

Code: rem Programm zum Umwandeln von Zahlen in Römische Ziffern createt by Daniel Ostheimer

rem Teilung der Zahl in die einzelnen Zahlen

rem Eingabe der Zahl, die Umgewandelt werden soll!
inputbox [Hauptwert] = 'Zahlenwandler', 'Geben Sie eine Zahl von 1 - 3999 ein', ''

rem Auswahl der letzten 4 Ziffern
If [Hauptwert] ! ''
[Hauptwert] = '000' # [Hauptwert]
copyvar [Hauptwert] = [Hauptwert], '-1', '4'



copyvar [Ziffer1] = [Hauptwert], '1', '1'
copyvar [Ziffer2] = [Hauptwert], '2', '1'
copyvar [Ziffer3] = [Hauptwert], '3', '1'
copyvar [Ziffer4] = [Hauptwert], '4', '1'

rem Zahlenumwandlung

If [Ziffer1] = '0'
   [Ziffer1] = ''
endif
If [Ziffer1] = '1'
   [Ziffer1] = 'M'
endif
If [Ziffer1] = '2'
   [Ziffer1] = 'MM'
endif
If [Ziffer1] = '3'
   [Ziffer1] = 'MMM'
endif

If [Ziffer2] = '0'
   [Ziffer2] = ''
endif
If [Ziffer2] = '1'
   [Ziffer2] = 'C'
endif
If [Ziffer2] = '2'
   [Ziffer2] = 'CC'
endif
If [Ziffer2] = '3'
   [Ziffer2] = 'CCC'
endif
If [Ziffer2] = '4'
   [Ziffer2] = 'CD'
endif
If [Ziffer2] = '5'
   [Ziffer2] = 'D'
endif
If [Ziffer2] = '6'
   [Ziffer2] = 'DC'
endif
If [Ziffer2] = '7'
   [Ziffer2] = 'DCC'
endif
If [Ziffer2] = '8'
   [Ziffer2] = 'DCCC'
endif
If [Ziffer2] = '9'
   [Ziffer2] = 'CM'
endif

If [Ziffer3] = '0'
   [Ziffer3] = ''
endif
If [Ziffer3] = '1'
   [Ziffer3] = 'X'
endif
If [Ziffer3] = '2'
   [Ziffer3] = 'XX'
endif
If [Ziffer3] = '3'
   [Ziffer3] = 'XXX'
endif
If [Ziffer3] = '4'
   [Ziffer3] = 'XL'
endif
If [Ziffer3] = '5'
   [Ziffer3] = 'L'
endif
If [Ziffer3] = '6'
   [Ziffer3] = 'LX'
endif
If [Ziffer3] = '7'
   [Ziffer3] = 'LXX'
endif
If [Ziffer3] = '8'
   [Ziffer3] = 'LXXX'
endif
If [Ziffer3] = '9'
   [Ziffer3] = 'XC'
endif

If [Ziffer4] = '0'
   [Ziffer4] = ''
endif
If [Ziffer4] = '1'
   [Ziffer4] = 'I'
endif
If [Ziffer4] = '2'
   [Ziffer4] = 'II'
endif
If [Ziffer4] = '3'
   [Ziffer4] = 'III'
endif
If [Ziffer4] = '4'
   [Ziffer4] = 'IV'
endif
If [Ziffer4] = '5'
   [Ziffer4] = 'V'
endif
If [Ziffer4] = '6'
   [Ziffer4] = 'VI'
endif
If [Ziffer4] = '7'
   [Ziffer4] = 'VII'
endif
If [Ziffer4] = '8'
   [Ziffer4] = 'VIII'
endif
If [Ziffer4] = '9'
   [Ziffer4] = 'IX'
endif

rem Bei Fehlermeldung, anzeigen einer Nachricht
if [Hauptwert] > '3999'
   echo 'Sie müssen eine Zahl unter 4000 Eingeben'
   halt
endif
   
rem Anzeigen der Zahl in Römisch!

echo 'Die Zahl lautet ' # [Ziffer1] # [Ziffer2] # [Ziffer3] # [Ziffer4]

end

---

Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken

<a href="http://www.iphpbb.com/foren-archiv/14/867200/866040/die-spinnen-die-roemer-80423332-50537-13.html" target="_blank">Die Spinnen die Römer!</a>

---

Weitere Beiträge aus dem Forum DAFLO programming Forum

---

Ähnliche Beiträge wie "Die Spinnen die Römer!"

Spinnen - cronos (Sonntag 06.08.2006)
die spinnen die finnen - Wether (Donnerstag 20.07.2006)
Iris Römer - Manu89 (Samstag 22.07.2006)
Artikel: Wenn Römer Sportschuhe tragen - Armin (Freitag 05.11.2004)
Spinnen Farmen im Hardmode mit ele/assa - Aratonizma (Sonntag 28.10.2007)
Spinnen die Polen??? - jogi264 (Donnerstag 21.06.2007)
römer angreifen???? - mottek (Sonntag 12.03.2006)
Die spinnen, die Amis - Schwarzpunk (Mittwoch 30.08.2006)
Römer-Aquarium - Markus Giersch (Freitag 23.11.2007)
Vorlage Römer - tim3492 (Dienstag 19.06.2007)