今天的几道笔试题

[iceagebirdxq]

delphi笔试题
1.判断连表是否循环
2.0-24时写出所有时针和分针重叠的时间和次数

[yf520gn]

1.判断连表是否循环
链表？

[weiqiy]

第一题没系统学过数据结构，:-)
第二题俺会，:-)

[mathsfan]

第一个不会，第二个花点时间可以搞出来...

[mathsfan]

第二题你把它看成是长度问题好了...

[jerry8]

要区分单双链表

[jjwang2004]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,hh,mm,ss:integer;
  tt:string;
begin
  {
    每次时间相差：60/(1-1/12)
  }
  for i:=0 to 23 do begin
    if i mod 12 =0 then begin
      hh:=1;
      mm:=5;
      ss:=5*60 div 11;
    end
    else begin
      hh:=hh+1;
      mm:=mm+(ss+5*60 div 11)div 60;
      ss:=(ss+5*60 div 11)mod 60;
    end;
    memo1.Lines.Add(inttostr(hh)+':'+inttostr(mm)+':'+inttostr(ss));
  end;
end;

[jjwang2004]

这样写更好些...

procedure TForm1.Button1Click(Sender: TObject);
var
  hh,mm,ss:integer;
  tt:string;
begin
  mm:=0;
  ss:=0; 
  {
    每次时间相差：60/(1-1/12)
  }
  for hh:=0 to 23 do begin
    if hh mod 12 =0 then begin
      mm:=5;
      ss:=5*60 div 11;
    end
    else begin
      mm:=mm+(ss+5*60 div 11)div 60;
      ss:=(ss+5*60 div 11)mod 60;
    end;
    memo1.Lines.Add(inttostr(hh)+':'+inttostr(mm)+':'+inttostr(ss));
  end;
end;

[gwhdaxia]

procedure TForm1.Button1Click(Sender: TObject);
var
hTime : Integer ;
mTime : Integer ;
sTime : Integer ;
i:Integer;
begin
hTime := 0;
mTime := 0;
sTime := 0;
while hTime < 24 do
begin
if sTime= 60 then
begin
sTime := 0 ;
Inc(mTime) ;

if mTime=60 then
begin
mTime := 0 ;
inc(hTime) ;
if hTime = 24 then
Exit ;

end;
end;


if ((hTime*5 mod 60) = mTime) and (mTime=sTime) then
Memo1.Lines.Add(IntToStr(hTime)+':'+IntToStr(mTime)+':'+IntToStr(sTime)) ;

Inc(sTime) ;
end;

end;

[etomahawk]

1.

type
  pNode = ^TNode;
  TNode = record
    //... Data
    Next: pNode;
  end;

function CheckCircle: Boolean;
var
  pCurNode: pNode;
  pTmpNode: pNode;
begin
  Result:= false;

  pCurNode:= FHeadNode;
  while (pCurNode <> nil) do
  begin
    pTmpNode:= pCurNode^.Next;

    while (pTmpNode <> nil) do
    begin
      if (pTmpNode^.Next = pCurNode) then
      begin;
        Result:= true;
        break;
      end;

      pTmpNode:= pTmpNode^.Next;
    end;

    if Result then break;

    pCurNode:= pCurNode^.Next;
  end;
end;

[etomahawk]

我写的好像是检查是否有环的，不知道是不是这个意思！

[yinxd6112]

delphi有这样的笔试题吗 汗一个

[iceagebirdxq]

谢谢大家的热心~已经明白了！