Иллюстрированный самоучитель по Tirbo Pascal


Массивы - часть 2


var

а : array[1. .2,1. .2] of Byte;

begin

a [1,1]:=1; 

a [2,1]:=2; 

a [l, 2]:=3; 

a [2,2]:=4; 

end.

то в памяти последовательно друг за другом будут расположены байты со значениями 1,3,2, 4 . Это обстоятельство может оказаться важным при использовании стандартной процедуры копирования памяти MOVE.

В Турбо Паскале можно одним оператором присваивания передать все элементы одного массива другому массиву того же типа, например:

var

а,b:array [1..5] of Single;

begin

.....

a := b;

.....

end.

После этого присваивания все пять элементов массива А получат те же значения, что и в массиве В. Однако над массивами не определены операции отношения. Нельзя, например, записать

if a = b then ... 

Сравнить два массива можно поэлементно, например:

var

a,b:array [1..5] of Single;

eq:Boolean;

i:Byte;

begin

.....

eq := True; for i := 1 to 5 do 

if a[i] <> b[i] then

eq := False; 

if eq then

.....

end.




- Начало -  - Назад -  - Вперед -



Книжный магазин