home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASSRC.ZIP
/
ARRAYS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
1KB
|
41 lines
(* Chapter 6 - Program 1 *)
program Simple_Arrays;
var Count,Index : integer;
Automobiles : array[1..12] of integer;
begin
for Index := 1 to 12 do
Automobiles[Index] := Index + 10;
Writeln('This is the first program with an array');
Writeln;
for Index := 1 to 12 do
Writeln('automobile number',Index:3,' has the value',
Automobiles[Index]:4);
Writeln;
Writeln('End of program');
end.
{ Result of execution
This is the first program with an array
automobile number 1 has the value 11
automobile number 2 has the value 12
automobile number 3 has the value 13
automobile number 4 has the value 14
automobile number 5 has the value 15
automobile number 6 has the value 16
automobile number 7 has the value 17
automobile number 8 has the value 18
automobile number 9 has the value 19
automobile number 10 has the value 20
automobile number 11 has the value 21
automobile number 12 has the value 22
End of program
}