Mercurial > hg > Members > kono > os9 > sbc09

diff basic/exampl.bas @ 57:2088fd998865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sbc09 directry clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 16:07:12 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/basic/exampl.bas	Mon Jul 23 16:07:12 2018 +0900
@@ -0,0 +1,18 @@
+10 REM SYRACUSE SEQUENCES.
+20 PRINT "ENTER A POSITIVE NUMBER";
+30 INPUT K
+40 IF K>0 GOTO 70
+50 PRINT "ERROR"
+60 GOTO 20
+70 N=0
+80 PRINT K,
+90 IF K=1 GOTO 160
+100 IF K<>2*(K/2) GOTO 130
+110 K=K/2
+120 GOTO 140
+130 K=3*K+1
+140 N=N+1
+150 GOTO 80
+160 PRINT
+170 PRINT "CONVERGED TO 1 IN ";N;" STEPS."
+180 END