习语言例子（二）

【例13.2从键盘输入一行字符，写入一个文件，再把该文件内容读出显示在屏幕上】
#包含 “习语言系统.接口”

整数类型 主函数（）
{
文件类型 *fp;
整数类型 ch; 【注意这里要定义为整数，以便接受文件结束符号】
如果((fp=文件打开("练习13-2.文本","写+"))==空指针)
{
格式输出("无法打开文件：练习13-2.文本！ ");
暂停();
退出(1);
}
格式输出("输入一串字符:/n");
ch=输入字符();
若符合条件 (ch != 宏_换行键 ) 重复
{
文件写字符(ch,fp);
ch=输入字符();
}
文件复位(fp);
ch=文件读字符(fp);
若符合条件(ch!= 宏_文件结束 ) 重复
{
输出字符(ch);
ch=文件读字符(fp);
}
格式输出("/n");
文件关闭(fp);
暂停（）；
返回 0;
}