A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Flow-control-structures/ALGOL-68/flow-control-structures-4.alg
+++ b/Task/Flow-control-structures/ALGOL-68/flow-control-structures-4.alg
@ -0,0 +1,22 @@
+# example from: http://www.xs4all.nl/~jmvdveer/algol.html - GPL #
+determine first generation;
+WHILE can represent next generation
+DO calculate next generation;
+   print next generation
+OD.
+
+determine first generation:
+   INT previous := 1, current := 3.
+
+can represent next generation:
+   current <= max int - previous.
+
+calculate next generation:
+   INT new = current + previous;
+   previous := current;
+   current := new.
+
+print next generation:
+   printf (($lz","3z","3z","2z-d$, current,
+            $xz","3z","3z","2z-d$, previous,
+            $xd.n(real width - 1)d$, current / previous)).