回 帖 发 新 帖 刷新版面

主题:关于文件读入问题

假设文件中有1001010这七个数,现要一个一个存入数组中,如何?

回复列表 (共2个回复)

沙发

以字符串形式读入,再用val分别转化成数字存入数组中
var
s:string;
n:array[1..7] of integer;
i:integer;
begin
  ...
  readln(file,s);
  for i:=1 to 7 do
    val(s[i],n[i]);
end.

板凳

用longint型读入,然后再分解,就OK了!

我来回复

您尚未登录,请登录后再回复。点此登录或注册