basicdoc: some fixes

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

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