Паскаль
<<  Цикл while Двумерные массивы  >>
Двумерные массивы
Двумерные массивы
Описание двумерного массива Паскаля
Описание двумерного массива Паскаля
Основные действия
Основные действия
Вывод двумерного массива
Вывод двумерного массива
Вычислить сумму элементов
Вычислить сумму элементов
Program summa
Program summa
Столбцы и строки
Столбцы и строки
Масcив
Масcив
Составить таблицу умножения
Составить таблицу умножения
Задача
Задача
Вычислить сумму элементов массива
Вычислить сумму элементов массива
Примеры решения задач
Примеры решения задач

Презентация: «Двумерные массивы Pascal». Автор: Капа. Файл: «Двумерные массивы Pascal.ppt». Размер zip-архива: 129 КБ.

Двумерные массивы Pascal

содержание презентации «Двумерные массивы Pascal.ppt»
СлайдТекст
1 Двумерные массивы

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

Двумерные массивы ( матрицы ) на языке PASCAL

Двумерный массив в Паскале трактуется как одномерный массив, тип элементов которого также является массивом (массив массивов). Положение элементов в двумерных массивах Паскаля описывается двумя индексами. Их можно представить в виде прямоугольной таблицы или матрицы. Рассмотрим двумерный массив Паскаля размерностью 3*3, то есть в ней будет три строки, а в каждой строке по три элемента:

Каждый элемент имеет свой номер, как у одномерных массивов, но сейчас номер уже состоит из двух чисел – номера строки, в которой находится элемент, и номера столбца. Таким образом, номер элемента определяется пересечением строки и столбца. Например, a 21 – это элемент, стоящий во второй строке и в первом столбце.

2 Описание двумерного массива Паскаля

Описание двумерного массива Паскаля

Существует несколько способов объявления двумерного массива Паскаля. Мы уже умеем описывать одномерные массивы, элементы которых могут иметь любой тип, а, следовательно, и сами элементы могут быть массивами. Рассмотрим следующее описание типов и переменных: Пример описания двумерного массива Паскаля A: array [1..5,1,,10] of <тип_элементов>;

Мы оъявили двумерный массив Паскаля m, состоящий из 10 строк, в каждой из которых 5 столбцов. При этом к каждой i -й строке можно обращаться m [ i ], а каждому j -му элементу внутри i -й строки – m [ i , j ]. Определение типов для двумерных массивов Паскаля можно задавать и в одной строке: Type Matrix= array [1..5] of array [1..10] of < тип элементов >; или еще проще: type matrix = array [1..5, 1..10] of <тип элементов>; Обращение к элементам двумерного массива имеет вид: M [ i , j ]. Это означает, что мы хотим получить элемент, расположенный в i -й строке и j -м столбце. Тут главное не перепутать строки со столбцами, а то мы можем снова получить обращение к несуществующему элементу. Например, обращение к элементу M [10, 5] имеет правильную форму записи, но может вызвать ошибку в работе программы.

3 Основные действия

Основные действия

Основные действия с двумерными массивами Паскаля

Пример программы ввода двумерного массива Паскаля с клавиатуры var A : array [1..5, 1..10] of integer; i, j: integer; { индексы массива } begin for i :=1 to 5 do {цикл для перебора всех строк} for j :=1 to 10 do {перебор всех элементов строки по столбцам} read ( a [ i , j ]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце}

4 Вывод двумерного массива

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

Вывод двумерного массива Паскаля на экран

Пример программы вывода двумерного массива Паскаля

For i :=1 to 5 do {цикл для перебора всех строк} begin for j :=1 to 10 do {перебор всех элементов строки по столбцам} write ( a [ i , j ]:4); {печать элементов, стоящих в i -й строке матрицы в одной экранной строке, при этом для вывода каждого элемента отводится 4 позиции} writeln ; {прежде, чем сменить номер строки в матрице, нужно перевести курсор на начало новой экранной строки} end.

5 Вычислить сумму элементов

Вычислить сумму элементов

Задача. Вычислить сумму элементов каждой строки массива

program summa(output); var I,j:integer; S:array[1..4] of integer; A:array[1..4, 1..3] of integer; begin for I:=1 to 4 do for j:=1 to 3 do read (A[i,j]); for I:=1 to 4 do for j:=1 to 3 do S[i]:=S[i]+A[i,j]; for i:=1 to 4 do write('s=',s[i]); end.

6 Program summa

Program summa

Задача. Вычислить сумму всех элементов двумерного массива

program summa(output); var I,j:integer; S: integer; A:array[1..2, 1..5] of integer; begin for I:=1 to 2 do for j:=1 to 5 do read (A[i,j]); for I:=1 to 2 do for j:=1 to 5 do S:=S+A[i,j]; write(S:2); end.

7 Столбцы и строки

Столбцы и строки

Задача: Поменять местами в массиве столбцы и строки

program mesto(input,output); var I,j:integer; A:array[1..4, 1..4] of integer; begin for I:=1 to 4 do for j:=1 to 4 do read (A[i,j]); for j:=1 to 4 do begin for i:=1 to 4 do begin write (A[i,j]); end; writeln; end; end.

8 Масcив

Масcив

ЗАДАЧА: Заполнить масcив по правилу

Program prim (input,ouiput); var I,j:integer; A:array[1..9, 1..9] of integer; begin for I:=1 to 9 do for j:=1 to 9 do A[i,j]:=i+j; for I:=1 to 9 do begin for j:=1 to 9 do begin write(A[i,j]:4); end; writeln; end; end.

9 Составить таблицу умножения

Составить таблицу умножения

ЗАДАЧА: Составить таблицу умножения (по правилу)

program ymn(input,output); var I,j:integer; A:array[1..10, 1..10] of integer; begin for I:=1 to 10 do for j:=1 to 10 do A[i,j]:=i*j; for I:=1 to 10 do begin for j:=1 to 10 do write(A[i,j]:4); end; writeln; end.

10 Задача

Задача

Вычислить сумму элементов каждого столбца массива

program summa(output); var I,j:integer; S:array[1..3] of integer; A:array[1..4, 1..3] of integer; begin for I:=1 to 4 do for j:=1 to 3 do read (A[i,j]); for I:=1 to 4 do for j:=1 to 3 do S[j]:=S[j]+A[i,j]; for j:=1 to 3 do write('s=',s[j]); end.

11 Вычислить сумму элементов массива

Вычислить сумму элементов массива

ЗАДАЧИ: Вычислить сумму элементов массива

Каждого столбца

Каждой строки

Всех элементов

program summa(output); var I,j:integer; S: integer; A:array[1..2, 1..5] of integer; begin for I:=1 to 2 do for j:=1 to 5 do read (A[i,j]); for I:=1 to 2 do for j:=1 to 5 do S:=S+A[i,j]; write(S:2); end.

program s_1(output); summa(output); var I,j:integer; S:array[1..3] of integer; A:array[1..4, 1..3] of integer; begin for I:=1 to 4 do for j:=1 to 3 do read (A[i,j]); for I:=1 to 4 do for j:=1 to 3 do S[j]:=S[j]+A[i,j]; for j:=1 to 3 do write('s=',s[j]); end.

program summa(output); var I,j:integer; S:array[1..4] of integer; A:array[1..4, 1..3] of integer; begin for I:=1 to 4 do for j:=1 to 3 do read (A[i,j]); for I:=1 to 4 do for j:=1 to 3 do S[i]:=S[i]+A[i,j]; for i:=1 to 4 do write('s=',s[i]); end.

12 Примеры решения задач

Примеры решения задач

Примеры решения задач с двумерными массивами Паскаля

Задача: Найти произведение ненулевых элементов матрицы. Решение: Program pr(input,output); var A:array[1..2,1..5] of integer; i,j,p:integer; Begin for i:=1 to 2 do begin for j:=1 to 5 do read(A[i,j]); end; begin p:=1; end; for i:=1 to 2 do begin for j:=1 to 5 do if A[i,j]<>0 then p:=p*A[i,j]; writeln(p); end; end.

«Двумерные массивы Pascal»
http://900igr.net/prezentacija/informatika/dvumernye-massivy-pascal-59672.html
cсылка на страницу

Паскаль

38 презентаций о Паскале
Урок

Информатика

130 тем
Слайды
900igr.net > Презентации по информатике > Паскаль > Двумерные массивы Pascal