Rosetta Code

Jensen's Device: Difference between revisions

Page Discussion

Jensen's Device (view source)

Revision as of 14:46, 9 November 2023

109 bytes added ,  6 months ago
→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup
(→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup)
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&lt;- loop0;
temp <i &lt;- 0lo;
loop: i <- lo;'''begin'''
loop: begin temp &lt;- temp + term;
temp <'''if''' [ i &lt;- tempi + term1 ] &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>
Tigerofdarkness
3,028

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/349292"