请为我解释pascal程序中的几个单词
从键盘输入一段正文,将它复制到指定的磁盘文件中,然后再在显示器上输出。分析:⑴从键盘输入正文,需逐个输入字符,且按行存储,每行用回车键结束;⑵当文件写结束时,加一个文件结...
从键盘输入一段正文,将它复制到指定的磁盘文件中,然后再在显示器上输出。
分析:⑴从键盘输入正文,需逐个输入字符,且按行存储,每行用回车键结束;
⑵当文件写结束时,加一个文件结束标志(ctrl+z),再用close 关闭文件;
⑶打开此文件,逐个读取字符,并显示在屏幕上。
程序代码如下:
program px9_1(input,output);
var ch:char;
str1:string[15] ;
file1:text;
begin
write(‘please input a file name:’);
readln(str1); { 输入文件名、建立新文件 }
assign(file1,str1); { 将内部变量名与外部文件建立关联 }
rewrite(file1); { 以写状态打开该文件,准备写入 }
while not eof do { 文件未结束(即未从键盘输入ctrl+z)就写一行 }
begin
while not eoln do { 一行未结束(即未从键盘输入一个回车换行符)就继续写 }
begin
read(ch); { 从键盘读入一个字符给ch }
write(file1,ch); { 将ch 写入文件中 }
end;
readln; { 键盘上换一行 } (这句)
writeln(file1); { 写一个行结束符到文件中 } (这句)
end;
close(file1); { 写文件结束,关闭文件 }
writeln; { 屏幕换行 } (这句)
reset(file1); { 以读状态再次打开该文件 }
while not eof(file1) do { 从文件读取数据,直到遇到文件结束符为止 }
begin
while not eoln(file1) do { 读取一行数据 }
begin
read(file1,ch); { 从文件中读一个字符给ch }
write(ch:3); { 将ch 输出到屏幕上 }
end;
readln; { 遇到回车换行符就换一行继续读 } (这句)
writeln; { 屏幕换行 } (这句)
end;
close(file1); { 读文件结束,关闭文件 }
end.
我在要解释的语句后标(这句)了,请帮我解释一下吧
虽然有解释,可不可以更详细一点? 展开
分析:⑴从键盘输入正文,需逐个输入字符,且按行存储,每行用回车键结束;
⑵当文件写结束时,加一个文件结束标志(ctrl+z),再用close 关闭文件;
⑶打开此文件,逐个读取字符,并显示在屏幕上。
程序代码如下:
program px9_1(input,output);
var ch:char;
str1:string[15] ;
file1:text;
begin
write(‘please input a file name:’);
readln(str1); { 输入文件名、建立新文件 }
assign(file1,str1); { 将内部变量名与外部文件建立关联 }
rewrite(file1); { 以写状态打开该文件,准备写入 }
while not eof do { 文件未结束(即未从键盘输入ctrl+z)就写一行 }
begin
while not eoln do { 一行未结束(即未从键盘输入一个回车换行符)就继续写 }
begin
read(ch); { 从键盘读入一个字符给ch }
write(file1,ch); { 将ch 写入文件中 }
end;
readln; { 键盘上换一行 } (这句)
writeln(file1); { 写一个行结束符到文件中 } (这句)
end;
close(file1); { 写文件结束,关闭文件 }
writeln; { 屏幕换行 } (这句)
reset(file1); { 以读状态再次打开该文件 }
while not eof(file1) do { 从文件读取数据,直到遇到文件结束符为止 }
begin
while not eoln(file1) do { 读取一行数据 }
begin
read(file1,ch); { 从文件中读一个字符给ch }
write(ch:3); { 将ch 输出到屏幕上 }
end;
readln; { 遇到回车换行符就换一行继续读 } (这句)
writeln; { 屏幕换行 } (这句)
end;
close(file1); { 读文件结束,关闭文件 }
end.
我在要解释的语句后标(这句)了,请帮我解释一下吧
虽然有解释,可不可以更详细一点? 展开
5个回答
展开全部
readln,writeln与之前学的是一样的作用
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
额~你都解释好了哎~~
这个解释完全正确
这个解释完全正确
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
额。。解释什么。。
你不是都解释好了么
你不是都解释好了么
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
问的问题寒死了,楼上的答复更加寒
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询