[marizo]

Смоделировать использование магических квадратов.Предусмотреть их генерацию.
У меня есть вот это

Код:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function encrypt(str:string):string;
const
  base:array [1..16] of byte = (16, 3, 2, 13,
                                5, 10, 11, 8,
                                9, 6, 7, 12,
                                4, 15, 14, 1);
var
  i,j:integer;
begin
  str:=StringReplace(str,#32,'',[rfReplaceAll]);
  If Length(str)>length(base) then SetLength(str,length(base))
  else if Length(str)<length(base) then
    begin
      for i:=Length(str) to length(base) do
        str:=str+'.';
    end;
  Result:='';
  for j:=1 to length(base) do
  for i:=1 to length(str) do
    begin
      If i=base[j] then
        Result:=Result+str[i];
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=encrypt(Edit1.Text);
end;

end.

Админ: Пользуемся тегами!

Как дальше осушиствить генерацию?