3、(s);S:=s+1;End;Readln;End.4．保存程序單擊“File”菜單中的“SaveAll”選項(xiàng)，在保存對話框中選擇文件夾并輸入文件名，單擊“保存”按鈕，保存程序。5．編譯程序單擊“project”菜單選擇“compile”命令項(xiàng)，進(jìn)行編譯，如果程序有語法錯(cuò)誤，系統(tǒng)會(huì)將光標(biāo)停在錯(cuò)誤處。修改后，重新運(yùn)行，知道編譯通過。6．運(yùn)行程序通過“Run”菜單的“Run”命令，運(yùn)行程序。實(shí)驗(yàn)二Delphi編程語言練習(xí)一、實(shí)驗(yàn)?zāi)康腛bjectPascal語言程序設(shè)計(jì)基礎(chǔ)訓(xùn)練。理解對象Pascal程序格式，掌
4、握基本數(shù)據(jù)類型，熟練運(yùn)用分支、循環(huán)等控制流程，掌握過程及函數(shù)的編寫和調(diào)用，并進(jìn)一步熟悉Delphi集成開發(fā)環(huán)境。二、實(shí)驗(yàn)內(nèi)容1．輸入3個(gè)整數(shù)，求該3個(gè)數(shù)的最大公約數(shù)；2．編寫函數(shù)，輸入2個(gè)整數(shù)n和m，求排列P(n,m)=n*(n-1)*(n-2)…*(n-m+1)。三、實(shí)驗(yàn)要求編寫應(yīng)用程序，實(shí)現(xiàn)指定功能。四、實(shí)驗(yàn)課時(shí)：2課時(shí)五、實(shí)驗(yàn)步驟：練習(xí)1：輸入3個(gè)整數(shù)，求該3個(gè)數(shù)的最大公約數(shù)。1．進(jìn)入Delphi開發(fā)環(huán)境展開windows的“開始”菜單，選擇“程序”—>“BorlandDelphi7”，進(jìn)入Delp
5、hi開發(fā)環(huán)境。2．創(chuàng)建項(xiàng)目缺省時(shí)Delphi創(chuàng)建了一個(gè)項(xiàng)目和一個(gè)窗體單元文件，我們這里直接在項(xiàng)目文件中編寫代碼，所以不需要窗體單元文件，在代碼編輯器窗口中右擊Unit1標(biāo)簽，選擇快捷菜單“ClosePage”選項(xiàng)關(guān)閉窗體單元文件。3．編寫代碼在工具欄中選擇“ViewUnit”按鈕，在打開的對話框中選擇“Project1”，在代碼編輯器中打開“Project1”,輸入下列的源程序：Programproject1_ex1;{$APPTYPECONSOLE}Varn,s:integer;BeginVarn1,n
6、2,n3,n:integer;BeginReadln(n1,n2,n3);N:=n1;RepeatIf(n1modn=0)and(n2modn=0)and(n3modn=0)thenBreak;N:=n-1;Untiln=1;Writln(n);Readln;End.4．保存程序單擊“File”菜單中的“SaveAll”選項(xiàng)，在保存對話框中選擇文件夾并輸入文件名，單擊“保存”按鈕，保存程序。5．編譯程序單擊“project”菜單選擇“compile”命令項(xiàng)，進(jìn)行編譯，如果程序有語法錯(cuò)誤，系統(tǒng)會(huì)將光標(biāo)停在錯(cuò)
7、誤處，一一修改后，重新運(yùn)行，知道編譯通過。6．運(yùn)行程序通過“Run”菜單的“Run”命令，運(yùn)行程序。實(shí)驗(yàn)三Delphi窗體、對話框設(shè)計(jì)3、1Delphi窗體設(shè)計(jì)一、實(shí)驗(yàn)?zāi)康氖炀氄莆粘Ｓ玫拇绑w屬性，能設(shè)計(jì)美觀實(shí)用的窗體，較熟練的在窗體中添加組件，設(shè)置組件屬性，設(shè)置Tab次序，對齊組件，以及動(dòng)態(tài)創(chuàng)建組件和設(shè)置屬性；二、實(shí)驗(yàn)內(nèi)容設(shè)計(jì)教師基本信息輸入程序；三、實(shí)驗(yàn)要求設(shè)計(jì)窗體程序，是窗體完成指定的功能；四、實(shí)驗(yàn)課時(shí)：2課時(shí)五、實(shí)驗(yàn)步驟：1．進(jìn)入Delphi開發(fā)環(huán)境展開windows的“開始”菜單，選擇“程序”—>
8、“BorlandDelphi7”，進(jìn)入Delphi開發(fā)環(huán)境。2．創(chuàng)建項(xiàng)目缺省時(shí)Delphi創(chuàng)建了一個(gè)項(xiàng)目和一個(gè)窗體單元文件，我們直接對窗體設(shè)置大小和字體等屬性，開始進(jìn)行主菜單設(shè)計(jì)。3．界面設(shè)計(jì)InputForm窗體設(shè)計(jì)界面如圖3.1所示，界面上包含五個(gè)標(biāo)簽（Label），用于顯示輸入提示信息，兩個(gè)文本框（Edit），分別用于輸入姓名、工齡；二個(gè)組合列表框（ComboBox），分別用于選擇職稱和部門的輸入內(nèi)容；三個(gè)按鈕（Butt
