Двумерные массивы Введение - скачать презентацию

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать Двумерные массивы Введение. Презентация содержит 10 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Двумерные массивы Введение

Слайд 2

Описание слайда:

Описание Двумерный массив-это массив массивов Матрица- это прямоугольная таблица размером N*M, в которой каждый элемент характеризуется номером строки- i и номером столбца- j.

Слайд 3

Описание слайда:

Квадратная матрица- это матрица, в которой количество строк совпадает с количеством столбцов. (N=M)

Слайд 4

Описание слайда:

var <Имя мас.>: array [1..n,1..m] of <тип_элементов>; Например: const n=3, m=4; var a: array [1..n,1..m] of integer;

Слайд 5

Описание слайда:

Ввод массива const n=4, m=5; var A : array [1..n,1..m] of integer; i,j : integer; … randomize; for i := 1 to n do begin {цикл для перебора всех строк} for j:=1to m do begin {перебор элементов строки по столбцам} a[i,j]:=random(50); write(a[i,j]); end; writeln; end; …

Слайд 6

Описание слайда:

Ввод массива for i := 1 to n do begin for j := 1 to m do write(a[i,j]); writeln; end;

Слайд 7

Описание слайда:

Сумма элементов, нахождение минимума(максимума) for i := 1 to n do for j := 1 to m do s:=s+a[i,j]; min:=a[1,1]; for i := 1 to n do for j := 1 to m do if a[i,j]<min then begin min:= a[i,j]; imin:=i; jmin:=j; end;

Слайд 8

Описание слайда:

Представление в памяти

Слайд 9

Описание слайда:

Задача Заполнить матрицу порядка n по следующему образцу: 1 2 3 ... n-2 n-1 n 2 1 2 ... n-3 n-2 n-1 3 2 1 ... n-4 n-3 n-2 .................... n-1 n-2 n-3 ... 2 1 2 n n-1 n-2 ... 3 2 1

Слайд 10

Описание слайда:

Program Massiv12; Program Massiv12; Var I, J, K, N : Integer; A : Array [1..10, 1..10] Of Integer; Begin Write('Введите порядок матрицы: '); ReadLn(N); For I := 1 To N Do For J := I To N Do Begin A[I, J] := J - I + 1; A[J, I] := A[I, J]; End; For I := 1 To N Do Begin WriteLn; For J := 1 To N Do Write(A[I, J]:4); End; End.