解密QQ号

新学期开始了,小哈是小哼的新同桌(小哈是个小美女哦~),小哼向小哈询问 QQ号,
小哈当然不会直接告诉小哼啦,原因嘛你懂的。所以小哈给了小哼一串加密过的数字,同时
小哈也告诉了小哼解密规则。规则是这样的:首先将第 1个数删除,紧接着将第 2 个数放到
这串数的末尾,再将第 3 个数删除并将第 4 个数放到这串数的末尾,再将第 5 个数删除……
直到剩下最后一个数,将最后一个数也删除。按照刚才删除的顺序,把这些删除的数连在一
起就是小哈的 QQ啦。现在你来帮帮小哼吧。小哈给小哼加密过的一串数是“6 3 1 7 5 8 9 2 4”。

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  arr:array[0..100] of integer;
  s:string;
  i,head,tail:integer;
begin
  s:='';
  arr[0]:=0;
  arr[1]:=6;
  arr[2]:=3;
  arr[3]:=1;
  arr[4]:=7;
  arr[5]:=5;
  arr[6]:=8;
  arr[7]:=9;
  arr[8]:=2;
  arr[9]:=4;
  head:=1;
  tail:=10;
  for i:= head to tail do
    begin
      if head=tail then break;
      s:=s+inttostr(arr[head]);
      showmessage(s);
      head:=head+1;
      arr[tail]:=arr[head];
      tail:=tail+1;
      head:=head+1;
    end;
  showmessage('QQ号是:'+s);
end;

end.

 

posted @ 2023-03-17 10:41  朱颂东  阅读(38)  评论(0编辑  收藏  举报