Pythagorean triples: Difference between revisions
Content added Content deleted
m (ANSI Standard BASIC and BBC BASIC moved to the BASIC section.) |
(→{{header|ANSI Standard BASIC}}: Changed to {{header|ANSI BASIC}}; {{works with|Decimal BASIC}}; output.) |
||
Line 541: | Line 541: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|ANSI |
==={{header|ANSI BASIC}}=== |
||
{{trans|BBC BASIC}} |
{{trans|BBC BASIC}} |
||
{{works with|Decimal BASIC}} |
|||
<syntaxhighlight lang=" |
<syntaxhighlight lang="basic">100 DECLARE EXTERNAL SUB tri |
||
110 ! |
110 ! |
||
120 PUBLIC NUMERIC U0(3,3), U1(3,3), U2(3,3), all, prim |
120 PUBLIC NUMERIC U0(3,3), U1(3,3), U2(3,3), all, prim |
||
Line 586: | Line 587: | ||
510 LET SUM = temp |
510 LET SUM = temp |
||
520 END FUNCTION</syntaxhighlight> |
520 END FUNCTION</syntaxhighlight> |
||
{{out}} |
|||
<pre> |
|||
Up to 10^ 1 0 triples 0 primitives |
|||
Up to 10^ 2 17 triples 7 primitives |
|||
Up to 10^ 3 325 triples 70 primitives |
|||
Up to 10^ 4 4858 triples 703 primitives |
|||
Up to 10^ 5 64741 triples 7026 primitives |
|||
Up to 10^ 6 808950 triples 70229 primitives |
|||
Up to 10^ 7 9706567 triples 702309 primitives |
|||
</pre> |
|||
==={{header|BBC BASIC}}=== |
==={{header|BBC BASIC}}=== |