使用队列实现QQ号

procedure TForm1.Button1Click(Sender: TObject);
var
  queue:TQueue;
  i:integer;
  s:string;
begin
  queue.head:=1;
  queue.tail:=1;
  for i:=1 to 9 do
    begin
       queue.data[queue.tail]:=strtoint(inputbox('请输入一个数吧','输入吧',''));
       queue.tail:=queue.tail+1;
    end;
 while(queue.head<queue.tail) do
    begin
      s:=s+inttostr(queue.data[queue.head]);
      showmessage(s);
      queue.head:=queue.head+1;
      queue.data[queue.tail]:=queue.data[queue.head];
      queue.head:=queue.head+1;
      queue.tail:=queue.tail+1;
    end;
 showmessage(s);
end;

 

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