0
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
c !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
c !!! Function int2char converts integer variables into character variable !!!
c !!! without changing eye-visible form !!!
c !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
character*3 function int2char(i)
integer i
if(i.eq.0) int2char='0 '
if(i.eq.1) int2char='1 '
if(i.eq.2) int2char='2 '
if(i.eq.3) int2char='3 '
if(i.eq.4) int2char='4 '
if(i.eq.5) int2char='5 '
if(i.eq.6) int2char='6 '
if(i.eq.7) int2char='7 '
if(i.eq.8) int2char='8 '
if(i.eq.9) int2char='9 '
if(i.eq.10) int2char='10 '
if(i.eq.11) int2char='11 '
if(i.eq.12) int2char='12 '
if(i.eq.13) int2char='13 '
...
if(i.eq.83) int2char='83 '
if(i.eq.84) int2char='84 '
if(i.eq.85) int2char='85 '
if(i.eq.86) int2char='86 '
if(i.eq.87) int2char='87 '
if(i.eq.88) int2char='88 '
if(i.eq.89) int2char='89 '
if(i.eq.90) int2char='90 '
if(i.eq.91) int2char='91 '
if(i.eq.92) int2char='92 '
if(i.eq.93) int2char='93 '
if(i.eq.94) int2char='94 '
if(i.eq.95) int2char='95 '
if(i.eq.96) int2char='96 '
if(i.eq.97) int2char='97 '
if(i.eq.98) int2char='98 '
if(i.eq.99) int2char='99 '
c ... till 999, just add if you need it
end function
фортраноговнокод с забавными комментариями
Запостил:
guest ,
09.05.2009 (Updated 24.03.2018 )
guest # 0
wtf is eye-visible form ?
guest # 0 ⇈
В принципе решается легко:
write('int2char,'I3') i
guest # 0 ⇈
Dimarius # 0