请为我解释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.

我在要解释的语句后标(这句)了,请帮我解释一下吧
虽然有解释,可不可以更详细一点?
展开
 我来答
陶梓絮
2009-07-27 · TA获得超过2006个赞
知道小有建树答主
回答量:615
采纳率:0%
帮助的人:874万
展开全部
readln,就是读入一个空行。(比如你读入一堆数据,但是不一定读入了空行,readln后再用read就读下一行的东西了)
writeln也是一样的,就是写一个回车。你可能写了很多数据,但是你要回车啊,要不不会换行的丫,writeln就这个功能,打了一个回车
writeln(file1)就是在文件里打一个回车咯。
百度网友dfec2c1
2009-07-31 · TA获得超过255个赞
知道小有建树答主
回答量:166
采纳率:0%
帮助的人:136万
展开全部
readln,writeln与之前学的是一样的作用
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
bxbian951122
2009-07-27 · 超过32用户采纳过TA的回答
知道答主
回答量:136
采纳率:0%
帮助的人:99.1万
展开全部
额~你都解释好了哎~~
这个解释完全正确
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xjcjason123
2009-07-27 · TA获得超过187个赞
知道答主
回答量:178
采纳率:0%
帮助的人:82.8万
展开全部
额。。解释什么。。
你不是都解释好了么
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友bd4df3c7a
2009-07-27 · TA获得超过203个赞
知道小有建树答主
回答量:166
采纳率:0%
帮助的人:135万
展开全部
问的问题寒死了,楼上的答复更加寒
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式