ВВОД И ВЫВОД МАТРИЦ

В Паскале двумерные массивы называют матрицами.

TYPE MATRICA=ARRAY[1..N,1..M] OF REAL; - определение типа

двумерного массива, где N -число строк, М -столбцов.

ПОСТАНОВКА ЗАДАЧИ: Заполнить матрицу и вывести ее на экран.

Заполнение матрицы может производиться также как и одномерного массива, только с помощью вложенных циклов.

Program Wwod_Wywod_Mat; uses crt;

const n=3;

var a: array[1..n,1..n] of integer;

i,j: integer;

Begin{ ввод матрицы по строкам }

ClrScr;

for i:=1 to n do

for j:=1 to n do

Begin

write('a[',i,',',j,']=');readln(a[i,j])

end;

{ вывод матрицы по строкам вывод в указанном месте}

for i:=1 to n do for i:=1 to n do

Begin begin

for j:=1 to n do write(a[i,j],' '); gotoxy(10,5+i);

writeln { перевод курсора на новую строку } for j:=1 to n do write(a[i,j]:3);

end; end;

readkey; readkey;

End. End.

Можно задать постоянную матрицу:

const a: array[1..3,1..3] of integer=((1,2,3),

(4,5,6),

(7,8,9));

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Описать процедуры ввода и вывода матриц.

3. Задать постоянную матрицу.

4. Вывести на экран матрицу по столбцам.

5. Вывести матрицу в указанное место экрана.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 43

О Б Р А Б О Т К А М А Т Р И Ц

СУММА ЭЛЕМЕНТОВ МАТРИЦЫ

ПОСТАНОВКА ЗАДАЧИ: Для двумерного массива B размером N х M необходимо

вычислить сумму всех элементов матрицы.

Program Summa_Mat; uses crt;

. . .

procedure Sum;

Begin

s:=0;

for i:=1 to n do

for j:=1 to m do

s:=s+b[i,j]

end;

Begin

ClrScr;

Input_Mat; { если массив вводится с клавиатуры }

ClrScr;

Print_Mat; writeln;

Sum;

write('Сумма элементов матрицы равна ',s);

readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Ввести дробные и отрицательные числа.