Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 52 стр.

UptoLike

51
3.1.1. Действия над массивами
Над массивами, как едиными целыми, допустимы только опера-
ции сравнения
=, <> и операция присваивания. Массивы, участвую-
щие в этих операциях, должны иметь одинаковые размерности и ти-
пы компонент.
Пример:
const
N=2; M=3;
type
massiv = array[1..N, 1..M] of real; {2-мерный массив, N строк }
{ и M столбцов элементы вещественного типа }
var
a, b : massiv; { описание 2-мерных массивов a и b }
c :array[1..10] of integer; { описание одномерного массива }
{ c из 10 элементов целого типа }
i, j : byte; { индексы элементов массивов }
begin
{ввод значений массива c}
for i:=1 to 10 do
readln(c[i]);
{инициализация массива a значением переменной i}
for i:=1 to N do
for j:=1 to M do
a[i, j]:=i;
{присвоение элементам b соответствующих значений
элементов a }
b:=a; { возможно только для массивов одинакового типа! }
{вывод значений массива b по строкам}
for i:=1 to N do begin
for j:=1 to M do begin { вывод i–й строки массива b }
  3.1.1. Действия над массивами
  Над массивами, как едиными целыми, допустимы только опера-
ции сравнения =, <> и операция присваивания. Массивы, участвую-
щие в этих операциях, должны иметь одинаковые размерности и ти-
пы компонент.
  Пример:

  const
     N=2; M=3;
  type
     massiv = array[1..N, 1..M] of real; {2-мерный массив, N строк }
                     { и M столбцов элементы вещественного типа }
  var
    a, b : massiv;       { описание 2-мерных массивов a и b }
    c :array[1..10] of integer; { описание одномерного массива }
                                 { c из 10 элементов целого типа }
    i, j : byte;                 { индексы элементов массивов }
  begin
    {ввод значений массива c}
    for i:=1 to 10 do
       readln(c[i]);
   {инициализация массива a значением переменной i}
    for i:=1 to N do
     for j:=1 to M do
       a[i, j]:=i;

   {присвоение элементам b соответствующих значений
    элементов a }
   b:=a;   { возможно только для массивов одинакового типа! }

  {вывод значений массива b по строкам}
   for i:=1 to N do begin
    for j:=1 to M do begin { вывод i–й строки массива b }


                                51