aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Golden-ratio-Convergence/Bas/golden-ratio-convergence.bas Normal file
View file

@ -0,0 +1,10 @@
100 I = 0
110 P0 = 1.0
120 P1 = 1.0 + (1.0 / P0)
130 D = ABS (P1 - P0)
140 P0 = P1
150 I = I + 1
160 IF 1.0E-5 < D THEN 120
170 PRINT "RESULT:" P1 "AFTER" I "ITERATIONS"
180 E = P1 - (0.5 * (1.0 + SQR (5.0)))
190 PRINT "THE ERROR IS APPROXIMATELY " E