Примеры использования массивов

Полная переменная

Массив можно рассматривать не только как группу однотипных переменных, но и как единое целое, как одну переменную. Значением этой особой переменной является весь массив. Такую переменную называют ПОЛНОЙ.

Если полные переменные А и В имеют один и тот же тип (были описаны одинаково) и всем элементам массива "А" были присвоены значения, то для присвоения полной переменной "В" точно такого же значения достаточно выполнить оператор присваивания В:=А.

Значения полных переменных одного и того же типа могут быть использованы только в операторах присваивания.

Нельзя использовать полные переменные в качестве аргументов арифметических операций.

Над значениями полных переменных в Паскале не выполняются операции сравнения.

Если в левой части оператора присваивания стоит полная переменная, то в правой части может фигурировать только полная переменная того же типа. Например, при наличии в программе следующего описания переменных

VAR X:Real;

Y:Array[1..1] of Real;

недопустимы операторы присваивания

X:=Y; Y:=X; X:=Y+0.5; Y:=3.14159;

1. Попарное суммирование элементов массивов А и В.

Program Prim1;

Const N=10;

Var i:integer;

A,B,C:Array[1..N] of Real;

Begin

FOR i:=1 TO N DO

begin

Write('A[',i,']= '); Readln(A[i]);

Write('B[',i,']= '); Readln(B[i])

end;

FOR i:=1 TO N DO C[i]:=A[i]+B[i];

Writeln('----------------------------------');

FOR i:=1 TO N DO Writeln('C[',i,']=',C[i]:6:1);

Readln

End.

2. Объединить в массиве “С” массивы “А” и “В” так, чтобы их элементы чередовались: элементы из массива “А” занимали нечетные ячейки, а элементы массива “В” - четные.

Program Prim2;

Const N=10;

Var i:integer;

A,B:Array[1..N] of Real;

C:Array[1..N*2] of Real;

Begin

FOR i:=1 TO N DO

begin

Write('A[',i,']= '); Readln(A[i]);

Write('B[',i,']= '); Readln(B[i])

end;

FOR i:=1 TO N DO

begin

C[2*i-1]:=A[i];

C[2*i]:=B[i]

end;

Writeln('------------------------------');

FOR i:=1 TO 2*N DO Writeln('C[',i,']=',C[i]:6:1);

Readln

End.  

3. Пример программы ввода-вывода одномерного массива

program priimer1;

uses crt;

Дата добавления: 2014-01-03