Вроде разобрался вот только с задачей запутался
| Код |
program Matrix98;
{Дана квадратная матрица A порядка M.
Повернуть ее на угол 180°
(при этом элемент A1,1 поменяется местами с AM,M,
элемент A1,2 - с AM,M-1 и т. д.).
Вспомогательную матрицу не использовать.
Использовать три процедуры: первая формирует матрицу порядка M,
вторая поворачивает матрицу на угол 180°, третья выводит матрицу на экран.}
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
type mas=array of array of integer;
var a:mas;
m:integer;
procedure Form(var a:mas);
var i,j:integer;
begin
randomize;
for i:=0 to m-1 do begin
for j:=0 to m-1 do a[i,j]:=random(10);
end;
end;
procedure Povorot(var a:mas);
var i,j,tmp:integer;
begin
if odd(m)=false then begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do begin
tmp:=a[i,j];
a[i,j]:=a[m-1-i,m-1-j];
a[m-1-i,m-1-j]:=tmp;
end;
end;
end
else
end;
procedure Vivod(a:mas);
var i,j:integer;
begin
for i:=0 to m-1 do begin
for j:=0 to m-1 do write(a[i,j],' ');
writeln;
end;
end;
begin
SetconsoleCP(1251);
SetconsoleoutputCP(1251);
repeat
write('Введите размер массива > 20 = ');
readln(m);
until m>=20;
Setlength(a,m,m);
Form(a);
writeln('----------------');
writeln('Начальный массив');
writeln('----------------');
Vivod(a);
Povorot(a);
writeln('---------------------------------');
writeln('Матрица повернута на 180 градусов');
writeln('---------------------------------');
Vivod(a);
Setlength(a,0);
readln;
end.
|
Не могу написать что-то процедуру поворота на 180 градусов!
|
)