第九讲 函数和过程二.pptVIP

* * 第九讲 函数和过程二 引例 输入n个正整数，并从小到大排列输出。 输入： 第一行：n（1000）. 第二行：共有n个正整数（10000），两个数之间有一个空格隔开。 输出： 第一行：从小到大排列的n个数。两个数之间用一个空格隔开。 文件操作 begin assign(input,‘a.in ‘); //建立输入文件关联 reset(input); //准备读文件数据 assign(output,‘a.out’); //建立输出文件关联 rewrite(output); //准备写文件 . . . . . close(input); {关闭输入文件} close(output); {关闭输出文件} End. 例1、var x,y:integer; Procedure change; var x:integer; begin x:=2; y:=2; writeln(x,y); end; Begin x:=