Question

How to write a loop with a specified step in Pascal

Answer 1

program StepLoop;
 
var
    i: integer;
 
begin
    i := 0;
    while i <= 20 do
    begin
        writeln('i = ', i);
        i := i + 3;
    end;
end.

 
 
(*
run:
 
i = 0
i = 3
i = 6
i = 9
i = 12
i = 15
i = 18
 
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program CountdownStep;

var
    i: integer;

begin
    i := 20;
    while i >= 0 do
    begin
        writeln('i = ', i);
        i := i - 2;
    end;
end.



(*
run:

i = 20
i = 18
i = 16
i = 14
i = 12
i = 10
i = 8
i = 6
i = 4
i = 2
i = 0

*)

 

70+ SQL courses for beginners and professionals

Answer 3

program StepLoop;
 
var
    i: integer;
 
begin
    // step = –1 only
    for i := 10 downto 0 do
        writeln(i);
end.

 
 
(*
run:
 
10
9
8
7
6
5
4
3
2
1
0
 
*)

 

70+ SQL courses for beginners and professionals

Answer 4

program LoopWithStep;
 
var
  i: Integer;
begin
  i := 2;
  while i <= 10 do begin
    WriteLn(i);
    Inc(i, 2);
  end;
end.

 
 
(*
run:
 
2
4
6
8
10
 
*)

 

70+ SQL courses for beginners and professionals