Pascal语言_文件操作.ppt

program area(input,output); const pi=3.1415926; var r:longint; s:real; begin readln(r); s:=pi*r*r; writeln(s:0:4); end. 程序运行时： 执行到read或readln语句， 由键盘输入数据； 执行到write或writeln语句， 内容显示到屏幕上。 program apple; var h:array[1..10]of integer; tao,i,ans:integer; begin for i:=1 to 10 do read(h[i]); readln(tao); ans:=0; for i:=1 to 10 do if tao+30=h[i] then ans:=ans+1; writeln(ans); end. 要求你的程序,保存为apple.pas； 从指定的输入文件(apple.in)中读入数据； 把运行结果输出到指定的输出文件(apple.out)中。 program apple; begin assign(input,’apple.in’); reset(input); assign(output,’apple.out’); rewrite(output); ………….//原有代码 close(input); close(output); end. 执行到read或readln语句时， 从apple.in中读取数据； 执行到write或writeln语句时， 把内容写到apple.out中。 assign(input,’apple.in’); reset(input); 把键盘(input)和文件apple.in建立联系,并打开apple.in文件，后面执行到read或readln语句时，从apple.in中读取数据。 assign(output,’apple.out’); rewrite(output); 把屏幕 (output)和文件apple.out建立联系，并建立apple.out文件，后面执行到write或writeln语句时，内容写到apple.out文件中。 program apple; var h:array[1..10]of integer; tao,i,ans:integer; begin assign(input,apple.in); reset(input); assign(output,apple.out); rewrite(output); for i:=1 to 10 do read(h[i]); readln(tao); ans:=0; for i:=1 to 10 do if tao+30=h[i] then ans:=ans+1; writeln(ans); close(input); close(output); end. apple.pas存盘的默认位置 apple.in也要放在该位置。