Delphi实验指导书1.pdfVIP

实验一 Delphi 集成开发环境操作 一、实验目的 熟悉Delphi 集成开发环境，掌握编辑、编译、运行程序的操作。 二、实验内容 读入一个整数n，读出所有0~n 之间的偶数。 三、实验要求 创建控制台应用程序，输入程序源程序，编译、运行程序、发现并改正错误。 四、实验学时：2 学时 五、实验步骤 1. 进入Delphi开发环境 展开windows的 “开始”菜单，选择 “程序”— “Borland Delphi7”，进入Delphi 开发环境。 2. 创建项目 缺省时Delphi创建了一个项目和一个窗体单元文件，我们这里直接在项目文件中编写 代码，所以不需要窗体单元文件，在代码编辑器窗口中右击Unit1标签，选择快捷菜单“Close Page”选项关闭窗体单元文件。 3. 编写代码 在工具栏中选择“ViewUnit”按钮，在打开的对话框中选择“Project1”，在代码编辑器 中打开 “Project1”,输入下列的源程序： Programproject1_ex1; {$APPTYPE CONSOLE} Varn,s:integer; Begin Write (‘n ?’); Readln(n); S: 1; While sn do Begin If smod2 0thenwriteln(s); S: s+1; End; Readln; End. 4．保存程序 单击 “File”菜单中的 “SaveAll”选项，在保存对话框中选择文件夹并输入文件名， 单击 “保存”按钮，保存程序。 5．编译程序 单击 “project”菜单选择 “compile”命令项，进行编译，如果程序有语法错误，系统会 将光标停在错误处。修改后，重新运行，知道编译通过。 6．运行程序 通过 “Run”菜单的 “Run”命令，运行程序。 实验二 Delphi编程语言练习 一、实验目的 ObjectPascal 语言程序设计基础训练。理解对象Pascal程序格式，掌握基本数据类型， 熟练运用分支、循环等控制流程，掌握过程及函数的编写和调用，并进一步熟悉Delphi 集 成开发环境。 二、实验内容 1．输入3个整数，求该3个数的最大公约数； 2．编写函数，输入2 个整数n 和m，求排列P(n,m) n*(n-1)*(n-2)…*(n-m+1)。 三、实验要求 编写应用程序，实现指定功能。 四、实验课时：2 课时 五、实验步骤： 练习1：输入3 个整数，求该3 个数的最大公约数。 1．进入Delphi 开发环境 展开windows 的 “开始”菜单，选择 “程序”— “Borland Delphi7”，进入Delphi 开 发环境。 2．创建项目 缺省时Delphi 创建了一个项目和一个窗体单元文件，我们这里直接在项目文件中编写 代码，所以不需要窗体单元文件，在代码编辑器窗口中右击Unit1标签，选择快捷菜单“Close Page”选项关闭窗体单元文件。 3．编写代码 在工具栏中选择“ViewUnit”按钮，在打开的对话框中选择“Project1”，在代码编辑器 中打开 “Project1”,输入下列的源程序： Programproject1_ex1; {$APPTYPE CONSOLE} Varn,s:integer; Begin Varn1,n2,n3,n:integer; Begin Readln(n1,n2,n3); N: n1; Repeat If(n1modn 0) and(n2modn 0) and(n3modn 0)then Break; N: n-1; Untiln 1; Writln(n); Readln; End. 4．保存程序 单击 “File”菜单中的 “SaveAll”选项，在保存对话框中选择文件夹并输入文件名， 单击 “保存”按钮，保存程序。 5．编译程序 单击 “project”