\Дана квадратная матрица NxN. Повернуть ее на M градусов и вывести
\Дана квадратная матрица NxN. Повернуть ее на M градусов и вывести итог на экран. а) на 90 градусов влево б) на 90 на право в) на 180 градусов Написать для Паскаль АВС
Задать свой вопрос
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.