PureBoard

Verfasst: **08.11.2008 20:00**

Kleiner Codeschnipsel, um dezimal Zahlen in römische Zahlen zu konvertieren und umgekehrt.

Procedure.s RomDec(dec.l)
  Protected i.b, j.l, max.b, ind.w, num.w, chr.w, rom.s
  Restore RomNum : Read.b max
  For i = 1 To max
    Read.w ind : Read.w num : Read.w chr
    For j = 1 To Round((dec / num), #PB_Round_Down)
      rom + Chr(chr)
    Next : dec % num
  Next
  ProcedureReturn rom
EndProcedure

Procedure.l DecRom(rom.s)
  Protected i.b, j.w, max.b, ind.w, num.w, chr.w, dec.l
  Restore RomNum : Read.b max
  For i = 1 To max
    Read.w ind : Read.w num : Read.w chr
    For j = 0 To Len(rom)-1
      If PeekC(@rom+j) = chr : PokeC(@rom+j, ind)
        If j And PeekC(@rom+(j-1)) < ind : dec - num
        Else : dec + num : EndIf
      EndIf
    Next
  Next
  ProcedureReturn dec
EndProcedure

DataSection
  RomNum:
  Data.b  7     ;     Total
  Data.w  7,    1000, 'M'
  Data.w  6,    500,  'D'
  Data.w  5,    100,  'C'
  Data.w  4,    50,   'L'
  Data.w  3,    10,   'X'
  Data.w  2,    5,    'V'
  Data.w  1,    1,    'I'
EndDataSection

r.s = RomDec(1949)
d.l = DecRom(r)

Debug d
Debug r

Dieser Schnipsel benötigt PB4.30 oder neuer.

Verfasst: **08.11.2008 20:07**

Leider unkorrekte Werte, z.B. 4 sollte IV und nicht IIII ergeben.
Vielleicht neue römische Rechschreibung

PS: Sollte vielleicht noch erwähnt werden, das dieser Code für PB4.30+ ist

Ansonsten ist die Umsetzung gut gemacht.

Verfasst: **08.11.2008 20:08**

Oh, ich hab mich so darauf konzentiert größere Zahlen richtig darzustellen.

Ich werd sehen, was ich noch verbessern kann. Hinweiß wegen PB4.30+ hinzugefügt.

Verfasst: **08.11.2008 20:15**

> Ich werd sehen, was ich noch verbessern kann
Ich denke mal, da wirste eine andere Taktik nehmen müssen. Eine
Vergleichstabelle/Array zum Beispiel. Oder nur die 4-er und 9-er gesondert
behandeln (der Rest sollte wohl stimmen?).

Verfasst: **08.11.2008 20:20**

Ja, das Problem entsteht nur bei 4, 9, usw. Hmmm..

Verfasst: **08.11.2008 20:26**

liegt daan das du keine Subtraktion eingebaut hast, sondern nur nach zeichen suchst:

Code: Alles auswählen

d.l = DecRom("IV") 
Debug d

er sieht halt I und V also 6, aber I steht ja vor V also muss es 4 sein ...

Verfasst: **08.11.2008 21:19**

Habe eine Lösung für Rom->Dec gefunden:

Code: Alles auswählen

Procedure RomDec(Rom.s)
  Protected *Char.Character,Index.l
  Protected Num.l,Level.l,ONum.l
  
  *Char=@Rom+Len(Rom)-1
  While *Char<>@Rom-1
    Select *Char\C
      Case 'I'
        ONum=1
      Case 'V'
        ONum=5
      Case 'X'
        ONum=10
      Case 'L'
        ONum=50
      Case 'C'
        ONum=100
      Case 'D'
        ONum=500
      Case 'M'
        ONum=1000
    EndSelect
    If Level<=ONum
      Level=ONum
      Num+ONum
    Else
      Num-ONum
    EndIf
    *Char-1
  Wend
  ProcedureReturn Num
EndProcedure

Ich lese einfach den string rückwärts aus und kontroliere ob der vorherige
Wert des Zeichens kleiner ist als das aktuelle zeichen.

Versucht einfach mal: "debug romdec("IV")".

Verfasst: **08.11.2008 21:32**

> Habe eine Lösung für Rom->Dec gefunden:
Okay, aber nur für nationale Anwendungen

Verfasst: **16.11.2008 18:57**

nanu? wo ist denn der mback2k hin?

Edit: Sehe grade dass er sich wieder angemeldet hat... - Andesdaf

Verfasst: **16.11.2008 21:50**

Andesdaf hat geschrieben:nanu? wo ist denn der mback2k hin?
Edit: Sehe grade dass er sich wieder angemeldet hat... - Andesdaf

Wurde bestimmt in einer Wow-Löschorgie zum Opfer.

Edit: W o w = Misst? Watt datt?

PureBoard

Römische Zahlen

Römische Zahlen