教科书上源文件如下:
program putwords(input,output,wordlist);
type alfa=packed array[1..10] of char;
wordfile=file of alfa;
var wordlist:wordfile;
w:alfa;
c,k:integer;
done:boolean;
begin
writeln('Give 10 letter words on perline:');
writeln('Halt while ********** on last line');
k:=0;
rewrite(wordlist);
repeat
for c:=1 to 10 do read(w[c]);
readln;
done:=w='**********' ;
if not done then
begin
wordlist^:=w;
put(wordlist);
k:=k+1
end
until done;
writeln(k:7,'words stored on file.');
read(c)
end.
我想问:为什么Turbo Pascal 7.0 不认识“ ^ ”这个符号,(书上的符号象汉字“个”)?
如何解决访问文件类型变量的问题?
program putwords(input,output,wordlist);
type alfa=packed array[1..10] of char;
wordfile=file of alfa;
var wordlist:wordfile;
w:alfa;
c,k:integer;
done:boolean;
begin
writeln('Give 10 letter words on perline:');
writeln('Halt while ********** on last line');
k:=0;
rewrite(wordlist);
repeat
for c:=1 to 10 do read(w[c]);
readln;
done:=w='**********' ;
if not done then
begin
wordlist^:=w;
put(wordlist);
k:=k+1
end
until done;
writeln(k:7,'words stored on file.');
read(c)
end.
我想问:为什么Turbo Pascal 7.0 不认识“ ^ ”这个符号,(书上的符号象汉字“个”)?
如何解决访问文件类型变量的问题?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货