56 lines
1.2 KiB
ObjectPascal
56 lines
1.2 KiB
ObjectPascal
program Wrong_ranges;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
procedure Example(start, stop, Increment: Integer; comment: string);
|
|
var
|
|
MAX_ITER, iteration, i: Integer;
|
|
begin
|
|
Write((comment + ' ').PadRight(50, '-') + ' ');
|
|
MAX_ITER := 9;
|
|
iteration := 0;
|
|
|
|
if Increment = 1 then
|
|
begin
|
|
for i := start to stop do
|
|
begin
|
|
Write(i: 2, ' ');
|
|
inc(iteration);
|
|
if iteration >= MAX_ITER then
|
|
Break;
|
|
end;
|
|
Writeln;
|
|
exit;
|
|
end;
|
|
|
|
if Increment = -1 then
|
|
begin
|
|
for i := start downto stop do
|
|
begin
|
|
Write(i: 2, ' ');
|
|
inc(iteration);
|
|
if iteration >= MAX_ITER then
|
|
Break;
|
|
end;
|
|
Writeln;
|
|
exit;
|
|
end;
|
|
|
|
Writeln('Not supported');
|
|
end;
|
|
|
|
begin
|
|
Example(-2, 2, 1, 'Normal');
|
|
Example(-2, 2, 0, 'Zero increment');
|
|
Example(-2, 2, -1, 'Increments away from stop value');
|
|
Example(-2, 2, 10, 'First increment is beyond stop value');
|
|
Example(2, -2, 1, 'Start more than stop: positive increment');
|
|
Example(2, 2, 1, 'Start equal stop: positive increment');
|
|
Example(2, 2, -1, 'Start equal stop: negative increment');
|
|
Example(2, 2, 0, 'Start equal stop: zero increment');
|
|
Example(0, 0, 0, 'Start equal stop equal zero: zero increment');
|
|
Readln;
|
|
end.
|