Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : LOOPDEMO.PAS

(* Chapter 4 - Program 1 *)
program Demonstrate_Loops;

var Count : integer;
Start : integer;
Ending : integer;
Total : integer;
Alphabet : char;

begin
Start := 1;
Ending := 7;
for Count := Start to Ending do (* Example 1 *)
Writeln('This is a count loop and we are in pass',Count:4);

Writeln;
Total := 0;
for Count := 1 to 10 do begin (* Example 2 *)
Total := Total + 12;
Write('Count =',Count:3,' Total =',Total:5);
Writeln;
end;

Writeln;
Write('The alphabet is ');
for Alphabet := 'A' to 'Z' do (* Example 3 *)
Write(Alphabet);
Writeln;

Writeln;
for Count := 7 downto 2 do (* Example 4 *)
Writeln('Decrementing loop ',Count:3);

end.




{ Result of execution

This is a count loop and we are in pass 1
This is a count loop and we are in pass 2
This is a count loop and we are in pass 3
This is a count loop and we are in pass 4
This is a count loop and we are in pass 5
This is a count loop and we are in pass 6
This is a count loop and we are in pass 7

Count = 1 Total = 12
Count = 2 Total = 24
Count = 3 Total = 36
Count = 4 Total = 48
Count = 5 Total = 60
Count = 6 Total = 72
Count = 7 Total = 84
Count = 8 Total = 96
Count = 9 Total = 108
Count = 10 Total = 120

The alphabet is ABCDEFGHIJKLMNOPQRSTUVWXYZ

Decrementing loop 7
Decrementing loop 6
Decrementing loop 5
Decrementing loop 4
Decrementing loop 3
Decrementing loop 2

}