PASCAL的读入优化

没readkey的情况

type Tstring=record
    s:array[0..maxn] of char;
    n:longint;
  end;

procedure scan(var S:Tstring);
begin
S.n:=0; while not seekeoln do with S do begin
    inc(n); read(s[n]);
end; readln;
end;

上一篇:android基站定位程序获取地理位置


下一篇:WEBGIS网页崩溃问题分析