function getnum:longint;
var   c:char;
      x:longint=0;
begin
      read(c);
      while not (c in num) do read(c);
      while c in num do
      begin
            x:=x*10+ord(c)-48;
            read(c);
      end;
      exit(x);
end;

用上面的函数代替read.每次读入一个数.
num:set of char=['0'..'9'];

• Re:Pascal的请进. (344) wuzhuofeng 2011-11-09 12:30:08