О Б Р А Б О Т К А М А Т Р И Ц
ПОСТАНОВКА ЗАДАЧИ: Заполнить матрицу и вывести ее на экран.
Заполнение матрицы может производиться также, как и одномерного массива, только с помощью вложенных циклов.
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 begin for j:=1 to n do write(a[i,j],' '); writeln { перевод курсора на новую строку } end; readkey; |
for i:=1 to n do begin gotoxy(10,5+i); for j:=1 to n do write(a[i,j]:3); end; readkey; |
End.
Можно задать постоянную матрицу:
const a: array[1..3,1..3] of integer=((1,2,3), (4,5,6), (7,8,9));
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Описать процедуры ввода и вывода матриц.
3. Задать постоянную матрицу.
4. Вывести на экран матрицу по столбцам.
5. Вывести матрицу в указанное место экрана.