\Дана квадратная матрица NxN. Повернуть ее на M градусов и вывести

\Дана квадратная матрица NxN. Повернуть ее на M градусов и вывести итог на экран. а) на 90 градусов влево б) на 90 на право в) на 180 градусов Написать для Паскаль АВС

Задать свой вопрос
1 ответ

a)program zz1;

const n=4;

var i,j:integer;

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

begin

for i:=1 to n do

 begin

   for j:=1 to n do

     begin

       a[i,j]:=random(10);

       write(a[i,j]:4);

     end;

 writeln;

 end;

 writeln;

for i:=1 to n do

for j:=1 to n do

b[i,j]:=a[j,n-i+1];

for i:=1 to n do

 begin

   for j:=1 to n do

     begin

       write(b[i,j]:4);

     end;

 writeln;

 end;

end.

 

б)program zz1;

const n=4;

var i,j:integer;

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

begin

for i:=1 to n do // ввод

 begin

   for j:=1 to n do

     begin

       a[i,j]:=random(10);

       write(a[i,j]:4);

     end;

 writeln;

 end;

 writeln;

for i:=1 to n do // поворот

for j:=1 to n do

b[i,j]:=a[n-j+1,i];

 

for i:=1 to n do  // вывод

 begin

   for j:=1 to n do

     begin

       write(b[i,j]:4);

     end;

 writeln;

 end;

end.

в)program zz1;

const n=4;

var i,j:integer;

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

begin

for i:=1 to n do

 begin

   for j:=1 to n do

     begin

       a[i,j]:=random(10);

       write(a[i,j]:4);

     end;

 writeln;

 end;

 writeln;

for i:=1 to n do

for j:=1 to n do

b[i,j]:=a[j,n-i+1];

for i:=1 to n do

for j:=1 to n do

a[i,j]:=b[j,n-i+1];

for i:=1 to n do

 begin

   for j:=1 to n do

     begin

       write(a[i,j]:4);

     end;

 writeln;

 end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт