Question

PASCAl 字符串怎样读入

例如 怎样读入
asd aas
dsaf ewrf
aszxzc erew
......
不知到总个数
怎样存储到t里（t:array [1..100] of string;)
给我个读入的过程就好
就是我要把多个字符串分别存储至t里
我要的效果是
t[1]='asd';
t[2]='aas';
t[3]='dsaf';
......

第4位的elon是什么意思？
我用来提交vijos 不能用文件

Answer 1

可以用一个字符变量来读入一个一个字符,一旦读到空格或换行就把它存到数组里去.
我是用文件做的:
begin
assign(input,'a.in');
reset(input);
k:=1;
while not eof do
begin
while not eoln do
begin
read(ch);
if ch<>' ' then t[k]:=t[k]+ch else k:=k+1;
end;
k:=k+1;
end;
close(input);
end;
补充:eof是指读入全部结束,而eoln是指这一行的读入结束.
不能用文件啊，那我也想不出什么解决的办法了，就算给你个思路吧．

Answer 2

什么意思

Answer 3

用readln一行存为一个字符串，若是你要一行用空格分隔多个字符串，那就自己写代码吧。

Answer 4

这是可以办到的。
program
strings;
var
a:array[1..10000]
of
integer;
i：longint；
begin
for
i:=1
to
10000
do
begin
read(a[i]);
if
a[i]=chr(13)
then
break;{回车的ASCII码为13｝
end;
for
i:=1
to
10000
do
if
a[i]='
'
then
break
else
write(a[i])｛为空即退出｝
end.