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

basicdoc: major doc update

Browse Source
This commit is contained in:
minjaesong
2020-12-25 21:21:33 +09:00
parent 5a894c497a
commit 46a6bf3a0e
17 changed files with 464 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
assets/disk0/home/basic/sqrt.bas
View File

@@ -1,10 +1,6 @@
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 Z <> Y THEN GOTO 30
10 X=1337
20 Y=0.5*X
30 Z=Y
40 Y=Y-((Y^2)-X)/(2*Y)
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