28 lines
643 B
QBasic
28 lines
643 B
QBasic
rem Arabische Zahlen -> Roem. Zahlen
|
||
DIM ein$(15), fuenf$(15)
|
||
DATA I,V,X,L,C,D,M,I)),((I)),I)))
|
||
for i=1 to 5:read ein$(i), fuenf$(i):next i
|
||
for i=6 to 15:ein$(i)="("+ein$(i-1)+")"
|
||
fuenf$(i)=fuenf$(i-1)+")":next i
|
||
do: input "Dezimalzahl, Stop mit 0"; z$
|
||
l=len(z$)
|
||
for i=1 to l:m=l-i+1
|
||
ziffer=val(mid$(z$,i,1))
|
||
select case ziffer
|
||
case 1 to 3
|
||
for j=1 to ziffer: rom$=rom$+ein$(m):next j
|
||
case 4
|
||
rom$=rom$+ein$(m)+fuenf$(m)
|
||
case 5
|
||
rom$=rom$+fuenf$(m)
|
||
case 6 to 8
|
||
rom$=rom$+fuenf$(m)
|
||
for j=6 to ziffer: rom$=rom$+ein$(m):next j
|
||
case 9
|
||
rom$=rom$+ein$(m)+ein$(m+1)
|
||
end select
|
||
next i
|
||
print rom$
|
||
rom$=""
|
||
loop until val(z$)<1
|
||
|