Loops/Wrong ranges: Difference between revisions
PascalABC.NET
Langurmonkey (talk | contribs) |
(PascalABC.NET) |
||
Line 2,170:
( 2, 2, 0): not allowed.
( 0, 0, 0): not allowed.</pre>
=={{header|PascalABC.NET}}==
{{trans|Nim}}
<syntaxhighlight lang="delphi">
procedure DisplayRange(first, last, step: integer);
begin
Print($'({first,2}, {last,2}, {step,2}): ');
if step = 0 then
Println('not allowed')
else Println(Range(first, last, step));
end;
begin
var ranges := |(-2, 2, 1), (-2, 2, 0), (-2, 2, -1),
(-2, 2, 10), (2, -2, 1), (2, 2, 1),
(2, 2, -1), (2, 2, 0), (0, 0, 0)|;
foreach var (f, l, s) in ranges do
DisplayRange(f,l,s);
end.
</syntaxhighlight>
{{out}}
<pre>
(-2, 2, 1): [-2,-1,0,1,2]
(-2, 2, 0): not allowed
(-2, 2, -1): []
(-2, 2, 10): [-2]
( 2, -2, 1): []
( 2, 2, 1): [2]
( 2, 2, -1): [2]
( 2, 2, 0): not allowed
( 0, 0, 0): not allowed
</pre>
=={{header|Perl}}==
| |||