Подпрограммы, процедура

[NomadZ]

Подпрограммы, процедура

Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е.
Задача:
Создать процедуру, поворачивающую в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов против часовой стрелки.

 

[Vladimir_S]

Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е.
Задача:
Создать процедуру, поворачивающую в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов против часовой стрелки.

Пожалуйста.

Uses CRT;

Const
 N=9;

Type
 Matrix=Array[1..N,1..N] of Integer;

Var
 A,B:Matrix;
 i,j:Byte;

Procedure Turn(var C:Matrix);
var
 k,p:Byte;
 D:Matrix;
begin
 D:=C;
 for k:=1 to (N div 2)+1 do
  for p:=1 to N do
   if (p>=(N div 2)+1-(k-1)) and (p<=(N div 2)+1+(k-1)) then
    D[N+1-p,k]:=C[k,p];
 for k:=(N div 2)+2 to N do
  for p:=1 to N do
   if (p>=k-((N div 2))) and (p<=N-(k-((N div 2)+1))) then
    D[N+1-p,k]:=C[k,p];
 C:=D;
end;

Begin
 ClrScr;
 Writeln;
 Randomize;
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Random(100);
     write(A[i,j]:5);
    end;
   writeln;
  end;
 Writeln;

 B:=A;
 Turn(B);
 for i:=1 to N do
  begin
   for j:=1 to N do write(B[i,j]:5);
   writeln;
  end;
 ReadKey
End.

P.S. И, пожалуйста, не надо клепать дубликаты тем в разных разделах. Хотя бы потому, что Правилами (п. 3.3) этот кросспостинг ЗАПРЕЩЁН.
Тема-дубль удалена.