- 谁拿了最多奖学金
-
gaoqi654321 LV 4 @ 2009-04-29 21:07:31
怎样读入信息,使每行姓名、分数等分别读入不同的变量或数组？
1 条评论
-
xunide LV 6 @ 2009-10-05 15:20:58
我用了个很麻烦的方法，不知道有没有简单点的
……
ai:=1;
while true do begin
read(aname[ai]);
if aname[ai]' ' then
ai:=ai+1
else break;
end;
ast[i].name:=copy(aname, 1, ai-1);
read(ast[i].sc1, ast[i].sc2);
repeat read(ast[i].ganbu) until ast[i].ganbu' ';
repeat read(ast[i].west) until ast[i].west' ';
readln(ast[i].lunwen);
……其中aname是字符数组，ast[].name是string
直接read(string)好像把整行都读进来了，刚学这pascal，菜鸟，呵呵
- 1
