Non-decimal radices/Convert: Difference between revisions

Content added Content deleted

Inline

@@ Line 172: / Line 172: @@
 Many variants of Forth support literals in some bases, such as hex, using a prefix
  $ff .   \ 255
+=={{header|Fortran}}==
+{{Works with|Fortran|90 and later}}
+ MODULE Conversion
+   IMPLICIT NONE
+   CHARACTER(36) :: alphanum = "0123456789abcdefghijklmnopqrstuvwxyz"
+   CONTAINS
+   FUNCTION ToDecimal(base, instr)
+     INTEGER :: ToDecimal
+     INTEGER :: length, i, n, base
+     CHARACTER(*) :: instr
+     ToDecimal = 0
+     length = LEN(instr)
+     DO i = 1, length
+       n = INDEX(alphanum, instr(i:i)) - 1
+       n = n * base**(length-i)
+       Todecimal = ToDecimal + n
+     END DO
+   END FUNCTION ToDecimal
+   FUNCTION ToBase(base, number)
+     CHARACTER(31) :: ToBase
+     INTEGER :: base, number, i, rem
+     ToBase = "                               "
+     DO i = 31, 1, -1
+       IF(number < base) THEN
+         ToBase(i:i) = alphanum(number+1:number+1)
+         EXIT
+       END IF
+       rem = MOD(number, base)
+       ToBase(i:i) = alphanum(rem+1:rem+1)
+       number = number / base
+     END DO
+     ToBase = ADJUSTL(ToBase)
+   END FUNCTION ToBase
+ END MODULE Conversion
+ PROGRAM Base_Convert
+   USE Conversion
+   WRITE (*,*) ToDecimal(16, "1a")
+   WRITE (*,*) ToBase(16, 26)
+ END PROGRAM
 =={{header|Haskell}}==