ПЗ № 42

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

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

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


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


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


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. Вывести матрицу в указанное место экрана.