curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-06-12 23:54:04 +09:00
Code Issues Packages Projects Releases Wiki Activity

basicdoc: some fixes

Browse Source
This commit is contained in:
minjaesong
2020-12-25 14:59:21 +09:00
parent e43b65ab6e
commit 5a894c497a
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
assets/disk0/home/basic/sqrt2.bas Normal file
View File

@@ -0,0 +1,10 @@
1 REM Calculates a square root using newtonian method
10 INPUT X
11 IF TYPEOF(X)=="num" THEN GOTO 20
12 PRINT "Please type in a number, please";
13 GOTO 10
20 Y = 0.5 * X
30 Z = Y
40 Y = Y-(((Y^2)-X)/(2*Y))
50 IF NOT(Z==Y) THEN GOTO 30
100 PRINT "Square root of ";X;" is approximately ";Y

7
assets/disk0/tbas/doc/langguide.tex
View File

@@ -23,13 +23,16 @@ Following program attempts to calculate a square root of the input value, showi
20 Y = 0.5 * X 20 Y = 0.5 * X
30 Z = Y 30 Z = Y
40 Y = Y-(((Y^2)-X)/(2*Y)) 40 Y = Y-(((Y^2)-X)/(2*Y))
50 IF Z <> Y THEN GOTO 30 50 IF NOT(Z==Y) THEN GOTO 30 : REM 'NOT(Z==Y)' can be rewritten to 'Z<>Y'
100 PRINT "Square root of ";X;" is approximately ";Y 100 PRINT "Square root of ";X;" is approximately ";Y
\end{lstlisting} \end{lstlisting}
Here, \code{GOTO} in line 50 to perform a loop, which keep loops until \code{Z} and \code{Y} becomes equal. This is a newtonian method of approximating a square root. Here, \code{GOTO} in line 50 is used to perform a loop, which keeps looping until \code{Z} and \code{Y} becomes equal. This is a newtonian method of approximating a square root.
\section[When GOTO Is Bad]{Severe Acute Spaghettification Syndrome} \section[When GOTO Is Bad]{Severe Acute Spaghettification Syndrome}
\section[Subroutine with GOSUB]{GOSUB to the rescue!} \section[Subroutine with GOSUB]{GOSUB to the rescue!}
\section[FOR--NEXT Loop]{FOR ever loop NEXT} \section[FOR--NEXT Loop]{FOR ever loop NEXT}