- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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 11.05.2009 11:25 # 0
wtf is eye-visible form ?
guest 27.12.2009 22:44 # 0
В принципе решается легко:
write('int2char,'I3') i
guest 02.07.2012 23:04 # 0
Dimarius 15.08.2009 10:10 # 0