PASCAL上机调试.ppt

IDE的使用（Free Pascal） 编译 编译（compile） alt + F9 生成（make） F9 运行（run） ctrl + F9 显示（user screen） alt + F5 调试 断点（break point） ctrl + F8 运行（go to cursor） F4 单步（trace into / step over） F7 / F8 查看（add watch） ctrl + F7 Pascal语言的输入输出 read 形式：read (f, var表); 功能：从磁盘文件f中将数据依次读到var表表示的各个变量中 write 形式：write (f, var表); 功能：将var表所表示的各个变量的值依次写到磁盘文件f上 Pascal语言的输入输出 readln 形式：read (f, var表); 功能：从磁盘文件f中将数据依次读到var表表示的各变量中 并将文件指针移到行结束符后 writeln 形式：write (f, var表); 功能：将var表所表示的各个变量的值依次写到磁盘文件f上 然后再写一个行结束符 Pascal语言的输入输出 assign 形式：assign (f, str); 功能：将文件名字符串str赋给文件变量f close 形式：close (f); 功能：关闭和f关联的磁盘文件 在写操作时自动产生一个文件结束标志 Pascal语言的输入输出 reset 形式：reset (f); 功能：打开一个已经存在的磁盘文件 其文件名必须先由assign过程赋给变量f 该文件只能读 rewrite 形式：rewrite (f); 功能：建立并打开一个新的允许写磁盘文件 其文件名必须先由assign过程赋给变量f 问题1 创建一个A.pas 从A.in中读入两个正整数x和y 向A.out中打印一个正整数x+y var x, y: integer; begin assign (input, ‘A.in’); {关联输入文件} reset (input); {打开输入文件} assign (output, ‘A.out’); {关联输出文件} rewrite (output); {打开输出文件} readln (x, y); writeln (x + y); close (input); {关闭输入文件} close (output); {关闭输出文件} end. 问题2 创建一个B.pas 从B.in中读入一个不超过100的正整数n和n个不超过100的正整数ai 向B.out中打印一个正整数 即输入的n+1个数中最大的数 var i, n, t, max: integer; begin assign (input, B.in); reset (input); assign (output, B.out); rewrite (output); read (n); max := n; for i := 1 to n do begin read (t); if t = max then max := t; end; writeln (max); close (input); close (output); end. * * PASCAL文件输入输出方法 一、装配文件??? assign(input,’文件路径’); {文件路径一般为相对路径，相对程序的工作目录}??? reset(input);??? assign(output,’文件路径’);??? rewrite(output); 二、输入输出方法??? read(x);??? write(x); 三、关闭文件??? close(inpu