Pell numbers: Difference between revisions
→{{header|Oberon-07}}: Fix the near Isosoeles triangles
(→{{header|ALGOL W}}: Correct output) |
(→{{header|Oberon-07}}: Fix the near Isosoeles triangles) |
||
Line 1,459:
found := found + 1
END;
t := t + i2; i0 := i1; i1 := i2
END
END NearIsoscelesRightTriangles;
Line 1,512:
</syntaxhighlight>
{{out}}
<pre style="height:40ex;overflow:scroll;">
First 10 Pell numbers: 0 1 2 5 12 29 70 169 408 985
First 10 Pell-Lucas numbers: 2 2 6 14 34 82 198 478 1154 2786
Line 1,539:
First 10 near isosceles right triangles:
[
[
[
[
[
[
[
[
[
[
</pre>
| |||