profile="http://gmpg.org/xfn/11"> Массив Π² ПаскалС (Pascal). | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Массив в ПаскалС (Pascal).

Массив в ПаскалС (Pascal).
Массив — Π½Π°Π±ΠΎΡ€ элСмСнтов, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΎΠ±Ρ€Π°Π·ΡƒΡŽΡ‚ ΡΠΎΠ²ΠΎΠΊΡƒΠΏΠ½ΠΎΡΡ‚ΡŒ элСмСнтов ΠΎΠ΄Π½ΠΎΠ³ΠΎ Ρ‚ΠΈΠΏΠ°. Массив ΡˆΠΈΡ€ΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² ΠΏΡ€Π°ΠΊΡ‚ΠΈΠΊΠ΅ программирования. Массив — ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹Π΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚, Π΅Π³ΠΎ ΠΎΠ±ΡŠΡΠ²Π»ΡΡŽΡ‚ Ρ‚Π°ΠΊ, ΠΊΠ°ΠΊ ΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ описания ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ….
ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ массивов Π² ПаскалС.

  //ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ массива Π² ПаскалС
var
  i: word;
  // Π·Π°Π΄Π°Π΅ΠΌ Ρ€Π°Π·ΠΌΠ΅Ρ€Π½ΠΎΡΡ‚ΡŒ массива. ИндСкс массива 1 ΠΏΠΎ 10
  // Ρ‚ΠΈΠΏ элСмСнтов массива Integer
  i_MasNum: array[1..10] of integer;
  
  // Π·Π°Π΄Π°Π΅ΠΌ Ρ€Π°Π·ΠΌΠ΅Ρ€Π½ΠΎΡΡ‚ΡŒ массива. ИндСкс массива 0 ΠΏΠΎ 255
  // Ρ‚ΠΈΠΏ элСмСнтов массива Char
   cH_MasNum: array [0..255] of char;

Массив Π² ПаскалС ΠΈΠΌΠ΅Π΅Ρ‚ Ρ€Π°Π·ΠΌΠ΅Ρ€, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‚ ΠΏΡ€ΠΈ объявлСнии. К элСмСнтам массива ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±Ρ€Π°Ρ‰Π°Ρ‚ΡŒΡΡ ΠΏΠΎ индСксу. ИндСкс массива Π² ПаскалС — порядковый Π½ΠΎΠΌΠ΅Ρ€ элСмСнта.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Ρ€Π°Π·ΠΌΠ΅Ρ€Π½ΠΎΡΡ‚ΡŒ Ρ€Π°Π²Π½Π° 10 (дСсяти). А индСкс ΠΎΡ‚ 1 (ΠΎΠ΄Π½ΠΎΠ³ΠΎ) Π΄ΠΎ 10 (дСсяти).

  i_MasNum: array[1..10] of integer;

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΎΠ±Ρ€Π°Ρ‰Π΅Π½ΠΈΠΉ ΠΊ элСмСнтам массива Π² ПаскалС:
1. ΠŸΡ€ΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ значСния элСмСнту массива.
7 (сСмь) — индСкс массива, i_MasNum — имя массива.

  i_MasNum[7] := 16;

2. ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΈΠ΅ значСния ΠΈΠ· элСмСнта массива.

i_Num := i_MasNum[9];

Π’Π°ΠΆΠ½ΠΎΠ΅ качСство массива — это Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ присвоСниС ΠΈΠ»ΠΈ получСния значСния Π² ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½ΠΎΠΌ ΠΊΠΎΠ΄Π΅, Ρ‚ΠΎ Π΅ΡΡ‚ΡŒ Π·Π°ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ массива. Как ΠΏΡ€Π°Π²ΠΈΠ»ΠΎ Π² Ρ†ΠΈΠΊΠ»Π΅.
ΠŸΡ€ΠΈΠΌΠ΅Ρ€ Ρ€Π°Π±ΠΎΡ‚Ρ‹ с массивом Π² ПаскалС, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ Ρ†ΠΈΠΊΠ»:
1. ΠŸΡ€ΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ элСмСнту массива Π² Ρ†ΠΈΠΊΠ»Π΅.

  for i := 1 to n do // i индСкс массива
    i_MasNum[i]:=12341;

2. ΠŸΠΎΠ»ΡƒΡ‡Π΅Π½ΠΈΠ΅ значСния ΠΈΠ· элСмСнта массива Π² Ρ†ΠΈΠΊΠ»Π΅.

  for i := 1 to n do // i индСкс массива
    Writeln('ИндСкс: ', i, ' Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ', i_MasNum[i]);

3. Π—Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ массива случайными значСниями Π² Ρ†ΠΈΠΊΠ»Π΅.

  For i :=1 to 10 do 
    i_NumMas [ i ]:= random (7);

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.