Question

Напишите пожалуйста программу на паскале abc магического квадрата (четно- четного).

Answer 1

Procedure Four(n:integer; var a:a_type); 
{Процедура построения квадрата при n двойной четности: n=4,8,12,16...} 
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Var i,j,k:integer; p,l:integer; i1,j1,x,y:integer; Begin l:=1; p:=n*n; for i:=1 to n do for j:=1 to n do begin a[i,j]:=l; inc(l) {l:=l+1} end; i:=2; while i<=n-2 do begin if i mod 4=0 then j:=4 else j:=2; while j<=n-2 do begin for i1:=0 to 1 do for j1:=0 to 1 do begin y:=i+i1; x:=j+j1; a[y,x]:=p-a[y,x]+1; end; j:=j+4; end; i:=i+2 end; k:=4; while k<=n-4 do begin a[1,k]:=p-a[1,k]+1; a[1,k+1]:=p-a[1,k+1]+1; a[n,k]:=p-a[n,k]+1; a[n,k+1]:=p-a[n,k+1]+1; a[k,1]:=p-a[k,1]+1; a[k+1,1]:=p-a[k+1,1]+1; a[k,n]:=p-a[k,n]+1; a[k+1,n]:=p-a[k+1,n]+1; k:=k+4 end; a[1,1]:=p-a[1,1]+1; a[n,n]:=p-a[n,n]+1; a[1,n]:=p-a[1,n]+1; a[n,1]:=p-a[n,1]+1; end;

Answer 2

Конечно, вот программа на языке Паскаль для создания магического квадрата порядка 4 (четно-четного):

pascalCopy code
program MagicSquare;

const
  N = 4;

type
  TMatrix = array[1..N, 1..N] of Integer;

procedure InitializeMatrix(var matrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
    for j := 1 to N do
      matrix[i, j] := 0;
end;

procedure GenerateMagicSquare(var matrix: TMatrix);
var
  i, j, num: Integer;
begin
  i := 1;
  j := N div 2 + 1;
  num := 1;

  while num <= N * N do
  begin
    if (i = 0) and (j = N) then
    begin
      i := 2;
      j := N - 1;
    end
    else
    begin
      if i = 0 then
        i := N
      else if j = N then
        j := 1
      else
      begin
        i := i - 1;
        j := j + 1;
      end;
    end;

    if matrix[i, j] = 0 then
      matrix[i, j] := num
    else
    begin
      i := i + 2;
      j := j - 1;
      matrix[i, j] := num;
    end;

    num := num + 1;
  end;
end;

procedure PrintMatrix(const matrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(matrix[i, j]:4);
    Writeln;
  end;
end;

var
  magicSquare: TMatrix;

begin
  InitializeMatrix(magicSquare);
  GenerateMagicSquare(magicSquare);
  WriteLn('Magic Square of order ', N, ':');
  PrintMatrix(magicSquare);
end.

Программа создает и выводит на экран магический квадрат порядка 4 (четно-четного). Вы можете изменить значение константы N на другое четное число, чтобы сгенерировать магический квадрат другого порядка.