Detail of message

Online Judge

Problem Set

Authors

Online Contests

User

Web Board
Home Page
F.A.Qs
Statistical Charts

Current Contest
Past Contests
Scheduled Contests
Award Contest

Re:我有可以过的程序

Posted by XueMao at 2003-05-27 13:35:10 on Problem 1144
In Reply To:我有可以过的程序 Posted by:hawk at 2003-05-27 13:28:59

    readln(n);
    if n=0 then break;
    fillchar(d,sizeof(d),0);
    repeat
      read(k);
      if k=0 then break;
      while not(eoln) do
      begin
        read(k1);
        d[k,k1]:=true;
        d[k1,k]:=true;
      end;
      readln;
    until false;
这样读数据会不会有问题？？？

Followed by:

对pascal不熟，不过看来好像没问题 (321) hawk 2003-05-27 13:36:56

Post your reply here:

Home Page Go Back To top