Обработка двумерных массивов на языке Паскаль

• 1 слайд

  Обработка
  двумерных
  массивов
  

• 2 слайд

  Двумерным массивом называется совокупность данных, каждое значение которых зависит от его местоположения в строке и в столбце.
  Каждый элемент матрицы (массива) описывается, как A[i,j],
  где A[i,j] – значение элемента матрицы;
  A – имя матрицы;
  i - номер строки;
  j - номер столбца.
  Если в матрице количество строк равно количеству столбцов, то такая матрица называется квадратной, в противном случае прямоугольной.
  
  
  
  
  
  
  
  
  Прямоугольная матрица
  Квадратная матрица
  

• 3 слайд

  Соотношение индексов в квадратной матрице
  
  Главная
  диагональ
  Побочная
  диагональ
  

• 4 слайд

  Описание элементов
  <имя массива> : array [<кол-во строк, кол-во столбцов>] of
  <тип >;
  где: <имя массива> - идентификатор массива;
  array – массив;
  <кол-во строк> - количество строк в матрице;
  <кол-во столбцов> - количество строк в матрице;
  of - для;
  <тип компонентов> - описание типа переменных
  в массиве (real; integer и т.п.);
  
  Например:
  
  Массив состоящий из 4 столбцов и 3 строк (всего 12 элементов):
  a,c : array [1..3,1..4] of real;
  b : array [1..3,1..4] of integer;
  
  Массив состоящий из 3 строк и 3 столбцов:
  mas : array [1 ..3,1..3] of integer;
  

• 5 слайд

  Ввод/вывод значений элементов массива
  Заполнение элементов массива с клавиатуры.
  Заполнение элементов массива по формуле.
  Заполнение элементов массива случайными числами.
  Вывод элементов массива.
  Алгоритмы обработки массивов
  

• 6 слайд

  Заполнение элементов массива с клавиатуры
  Program primer1;
  var a: array [1..4,1..3] of real;
  i, k: integer;
  begin
  for i:=1 to 4 do
  for k:=1 to 3 do
  begin
  writeln (‘ввести элемент массива’);
  readln(a[i,k]);
  end;
  end.
  
  

• 7 слайд

  Заполнение элементов массива по формуле
  Program primer2;
  var a: array [1..3,1..5] of real;
  i,k : integer;
  begin
  for i:=1 to 3 do
  for k:=1 to 5 do
  a[i,k]:=(i*k+1)/sin(i+k);
  end.
  
  

• 8 слайд

  Заполнение элементов массива случайными числами из диапазона от 0 до 30
  Program primer3;
  var a: array [1..2,1..5] of real;
  i, k : integer;
  begin
  Randomize;
  for i:=1 to 2 do
  for k:=1 to 5 do
  a[i,k]:=random(30);
  end.
  
  

• 9 слайд

  Вывод массива в виде таблицы.
  Program primer4;
  var a: array [1..3,1..4] of real;
  i,k : integer;
  begin
  for i:=1 to 3 do
  begin
  for k:=1 to 4 do
  begin
  write(‘A(‘,i,’,’k,’)=“, a[i,k]);
  end;
  writeln;
  end; end.
  
  

• 10 слайд

  Типовые алгоритмы обработки массивов
  Нахождение минимального и максимального значения элементов.
  Суммирование значений элементов матрицы.
  Нахождение количества положительных элементов.
  Дан двумерный массив целых чисел, сформировать одномерный массив из сумм значений элементов каждого столбца.
  Тест
  Выход
  

• 11 слайд

  Нахождение минимального и максимального значения элементов.
  Program prim;
  var a: array [1..4,1..5] of integer;
  i,k, max, min : integer;
  begin
  for i:=1 to 4 do for k:=1 to 5 do readln(a[i,k]);
  max:=a[1,1]; min:=a[1,1];
  for i:=1 to 4 do
  for k:=1 to 5 do begin
  if a[i,k]>max then max:=a[i,k];
  if a[i,k]<min then min:=a[i,k];
  end;
  writeln(‘Максимальный элемент=’,max);
  writeln(‘Минимальный элемент=’,min);
  end.
  

• 12 слайд

  Суммирование значений элементов матрицы.
  Program prim;
  var a: array [1..4,1..5] of real;
  i,k : integer; s : real;
  begin
  for i:=1 to 4 do for k:=1 to 5 do readln(a[i,k]);
  s:=0;
  for i:=1 to 4 do
  for k:=1 to 5 do begin
  s:=s+a[i,k];
  writeln(‘Сумма элементов матрицы=’,s);
  end;
  end.
  

• 13 слайд

  Нахождение количества положительных элементов.
  Program prim;
  var a: array [1..10,1..7] of real;
  i, m, k : integer;
  begin
  for i:=1 to 10 do
  for m:=1 to 7 do
  readln(a[i,m]);
  k:=0;
  for i:=1 to 10 do
  for m:=1 to 7 do
  if a[i,m]>0 then k:=k+1;
  writeln(‘Количество положительных
  элементов = ’,k);
  end.
  

• 14 слайд

  Дан двумерный массив целых чисел, сформировать одномерный массив из сумм значений элементов каждого столбца.
  Program prim;
  var a : array [1..10,1..6] of real;
  b : array [1..6] of real;
  n,m : integer; s : real;
  begin
  for n:=1 to 10 do for m:=1 to 6 do
  redln(a[n,m]);
  for m:=1 to 6 do
  begin
  s:=0;
  for n:=1 to 10 do
  s:=s+a[n,m];
  b[m]:=s;
  end;
  for m:=1 to 6 do writeln(‘Элемент массива В’,b[m]);
  end.