Results 1 to 4 of 4
Hybrid View
-
5th June 2005 19:15 #1Registered User
Join Date: Jun:2003
Location:
Posts: 416
:
Pascal 6.0 ( ), , ( 1000 ) .
, , . , , ...
-
5th June 2005 19:46 #2
.

P.S. clubs.dir.bg
: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
5th June 2005 20:10 #3Registered User
Join Date: Jun:2003
Location:
Posts: 416
google
-
6th June 2005 09:25 #4TP6,Code:
function ConvertRom2Arab(N:string):Integer; {-------------------------------------------} function Roman(aValue:string):Integer; var X:Char; begin X:=UpperCase(aValue)[1]; case X of 'M': Result:=1000; 'D': Result:=500; 'C': Result:=100; 'L': Result:=50; 'X': Result:=10; 'V': Result:=5; 'I': Result:=1; else Result:=0; end;//case end;{Roman} {-------------------------------------------} var I:Integer; lvRet:Integer; begin lvRet:=0; I:=1; while I<=Length(N)-1 do begin If(Roman(N[I]) < Roman(N[I+1]))then begin lvRet:=lvRet+(Roman(N[I+1])-Roman(N[I])); Inc(I); end else begin lvRet:=lvRet+Roman(N[I]); end;//If Inc(I); end;//while If(I=Length(N))then lvRet:=lvRet+Roman(N[I]); Result:=lvRet; end;{ConvertRom2Arab}




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in