PASCAL的读入优化

标签：ar   on   ad   as   type   har   c   ca   优化   

没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;

PASCAL的读入优化

标签：ar   on   ad   as   type   har   c   ca   优化   

原文地址：http://www.cnblogs.com/logichandsome/p/4069637.html