2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Arithmetic-geometric-mean/ZX-Spectrum-Basic/arithmetic-geometric-mean.zx
+++ b/Task/Arithmetic-geometric-mean/ZX-Spectrum-Basic/arithmetic-geometric-mean.zx
@ -0,0 +1,6 @@
+10 LET a=1: LET g=1/SQR 2
+20 LET ta=a
+30 LET a=(a+g)/2
+40 LET g=SQR (ta*g)
+50 IF a<ta THEN GO TO 20
+60 PRINT a