Jensen's Device: Difference between revisions

Content added Content deleted

Inline

@@ Line 674: / Line 674: @@
 =={{header|Euler}}==
 {{Trans|ALGOL 60}}
+ '''begin'''
-<syntaxhighlight lang="euler">
+    '''new''' i; '''new''' sum;
-begin
+    sum &lt;- ` '''formal''' i; '''formal''' lo; '''formal''' hi; '''formal''' term;
-   new i; new sum;
-   sum <- ` formal i; formal lo; formal hi; formal term;
+             '''begin'''
-            begin
+                 '''new''' temp; '''label''' loop;
-                new temp; label loop;
+                 temp &lt;- 0;
-                temp <- 0;
+                 i    &lt;- lo;
-                i    <- lo;
+ loop:           '''begin'''
-loop:           begin
+                     temp &lt;- temp + term;
-                    temp <- temp + term;
+                     '''if''' [ i &lt;- i + 1 ] &lt;= hi '''then''' '''goto''' loop '''else''' 0
-                    if [ i <- i + 1 ] <= hi then goto loop else 0
+                 '''end''';
-                end;
+                 temp
-                temp
+             '''end'''
-            end
+           &apos;;
-          ';
+    '''out''' sum( @i, 1, 100, `1/i&apos; )
+ '''end''' $
-   out sum( @i, 1, 100, `1/i' )
-end $
-</syntaxhighlight>
 {{out}}
 <pre>