Question

pascal 如何读入10000个字符

Answer 1

var s:packed array [1..10000] of char;

readln(s);

如果直接输入不行，就用文件输入：
var s:packed array [1..10000] of char;
fin:text;

assign(fin,'a.txt');
reset(fin);
readln(fin,s);
close(fin); {注意一定要关闭}

Answer 2

可用ansistring类型
ansistring是string的威力加强版。。。
string只能存255个字符
ansistring则是有多大内存，根据内存开多大的存储空间存多少的字符。。。

Answer 3

var a:array[1..10000] of char;
i:integer;
for i:=1 to 10000 do read(a[i]);
这只是个片段，整个程序还得自己编！
望你满意！

Answer 4

在定义部分用ansistring，例：
var
s:ansistring;
begin
readln(s);
end.
用法和char一样