请为我解释pascal程序中的几个单词

来源:百度知道 编辑:UC知道 时间:2024/05/08 00:58:23
从键盘输入一段正文,将它复制到指定的磁盘文件中,然后再在显示器上输出。

分析:⑴从键盘输入正文,需逐个输入字符,且按行存储,每行用回车键结束;
⑵当文件写结束时,加一个文件结束标志(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 { 从文件读取数据,直到遇到文件结束符为止 }

readln,writeln与之前学的是一样的作用

额。。解释什么。。
你不是都解释好了么

额~你都解释好了哎~~
这个解释完全正确

readln,就是读入一个空行。(比如你读入一堆数据,但是不一定读入了空行,readln后再用read就读下一行的东西了)
writeln也是一样的,就是写一个回车。你可能写了很多数据,但是你要回车啊,要不不会换行的丫,writeln就这个功能,打了一个回车
writeln(file1)就是在文件里打一个回车咯。

问的问题寒死了,楼上的答复更加寒