Turbo Basic 1.1.


Turbo Basic 1.1. - . 30


a%=56.789
' STR$ a$
a$=str$(a%)
print a%,a$
', , % , $
if a%=val(a$) then
print "str$ val "
end if
end

STRIG
----------------

STRIG .
-------

y=STRIG()
---------

STRIG -
--------- .-
, , STRIG
:
------------------------------------------------------------------

------------------------------------------------------------------
0 1
STRIG(1), STRIG -1; 0.
1 STRIG -1 , 1 -
; , 0.
2 1
STRIG(2) ,STRIG -1; 0.
3 STRIG .-1, 1 -
; 0.
4 2 .
STRIG(4),STRIG -1; 0.
5 STRIG -1, 2 .
; 0.
6 2 ..
STRIG(6), STRIG -1, 0.
7 STRIG -1, 2
; 0
-------------------------------------------------------------------