【正文】 case ch of ‘+’: s:=x+y。 ‘’: s:=xy。 ‘*’: s:=x*y。 ‘/’: s:=x/y。 end。 writeln(x:8:2,ch,y:8:2,’=’,s:8:3) end. 例：設(shè)計一個簡單的計算器，具有加、減、乘、除。 例：從鍵盤上讀入年和月，輸出該月有多少天。 program pcase2。 var year,month,day:integer。 runnian:boolean。 begin write(39。Enter year and month:39。)。 readln(year,month)。 case month of 1,3,5,7,8,10,12: day:=31。 4,6,9,11: day:=30。{———— 以上處理 31天和 30天的情況 } 2:begin runnian:=(year mod 400=0) or ((year mod 4=0) and (year mod 1000))。 case runnian of true: day:=29。 false: day:=28。 end。 end。 {———— 以上處理 2月的情況：閏年 29天，平年 28天 } end。 end. Program test1。 var num1,num2:integer。 begin write(‘Please input the first integer:’)。 readln(num1)。 write(‘Please input the second integer:’)。 readln(num2)。 if (num1num2) then writeln(num1,’’,num2) else if (num1=num2) then writeln(num1,’=’,num2) else writeln(num1,’’,num2)。 end. 閱讀程序?qū)懡Y(jié)果： 輸入： 45 88 輸入： 33 22 輸出： 4588 輸出： 3222 Program test2。 var a,b,c,d,sum:longint。 begin readln(a,b,c,d)。 a:=a mod 23。 b:=b mod 28。 c:=c mod 33。 sum:=a*5544+b*14421+c*1288 – d。 sum:=sum+21252。 sum:=sum mod 21252 if (sum=0) then sum:=21252。 writeln(sum)。 end. 輸入： 283 102 23 320 輸出： 8910 Program test3。 var a,b:integer。 begin read(a,b)。 case a of 1: b:=a*10。 2: b:=a*20。 3: b:=a*30。 4: b:=a*40。 5: b:=a*50。 else b:=0。 end。 writeln(b)。 end. 輸入： 3 4 輸入： 8 5 輸出： 90 輸出： 0 Free Pascal實例演示 Program p2_01(input,output)。 Var a,b,c: integer。 begin writeln(‘ 請輸入兩個數(shù)： ’ )。 read(a,b)。 c:=a。 a:=b。 b:=c。 writeln(‘ 交換后的值是： ’ ,a:5,b:5)。 end. 這是一段 Pascal語言寫的代碼，它運(yùn)行的結(jié)果是什么？解決了什么問題呢？ 編輯器中的代碼 菜單欄 編輯窗口 狀態(tài)欄 File菜單的介紹 File菜單用于對文件的管理，如新建文件、打開文件、保存文件等。 子菜單 快捷鍵 功能描述 New 創(chuàng)建新的編輯窗口，以 的文件的初始名 OPEN F3 顯示打開文件對話框，供選擇打開已有的文件 SAVE F2 將當(dāng)前的文件存盤 SACVE AS 以用戶指定的路徑和文件名將當(dāng)前文件存盤 SAVE ALL 所有編輯窗口內(nèi)的文件存盤 Change dir 改變當(dāng)前工作目錄 print 打印當(dāng)前窗口中的內(nèi)容 Print setup 打印機(jī)設(shè)置 Exit ALT+X 推出 PASCAL Edit菜單的介紹 Edit菜單用于對當(dāng)前窗口中的內(nèi)容進(jìn)行編輯，如復(fù)制、粘貼、刪除等。 子菜單 快捷鍵 功能描述 Undo Alt+Backspace 撤銷最近的操作 Redo 撤銷 Undo的操作 Cut Shift+Del 刪除選定的文本，并將其置于剪貼板中 Copy Ctrl+Ins 將選中的文本復(fù)制到剪貼板中 Paste Shift+Ins 將剪貼板中的文本粘貼到當(dāng)前窗口光標(biāo)處 Clear Ctrl+Del 刪除所選定的文本 show clipboard 顯示剪貼板中的內(nèi)容 Search菜單的介紹 Search菜單提供與字符串搜索的相關(guān)功能，如執(zhí)行程序、單步執(zhí)行等。 子菜單 快捷鍵 功能描述 Find 顯示 Find對話框，在當(dāng)前編輯框中尋找指定的字符串 Replace 顯示 replace對話框，查找并替換指定的字符串 Search again 刪除選定的文本，并將其置于剪貼板中 Go to line number 提示用戶輸入要查的行號 Show last pile error 在當(dāng)前編輯窗口中顯示產(chǎn)生編譯錯誤的代碼行 Find error 打開 Find error對話框，顯示程序運(yùn)行時錯誤內(nèi)存地址 Find procedure 打開 Find procedure對話框，在對話框中輸入需要查找的函數(shù)或過程名 Run菜單的介紹 Run菜單提供在集成調(diào)試環(huán)境下運(yùn)行 Pascal的功能，如執(zhí)行程序、單步執(zhí)行等。 子菜單 快捷鍵 功能描述 Run CTRL+F9 運(yùn)行當(dāng)前程序 Step over F8 單步運(yùn)行當(dāng)前程序，遇到函數(shù)和過程調(diào)用一次運(yùn)行完畢，不跟蹤其內(nèi)部 Trace into F7 單步執(zhí)行當(dāng)前程序，遇到函數(shù)和過程調(diào)用，跟蹤到其內(nèi)部 Go to cursor F4 運(yùn)行程序到光標(biāo)所在代碼行處 Program reset CTRL+F2 將正在運(yùn)行的程序復(fù)位 Parameters 顯示 Program Parameters對話框，設(shè)置程序運(yùn)行參數(shù) Compile菜單的介紹 Compile菜單提供在集成調(diào)試環(huán)境下編譯 Pascal的功能，如編譯、連接等。 子菜單 快捷鍵 功能描述 Compile ALT+F9 編譯當(dāng)前編輯窗口中的程序 Make F9 編譯連接生成可執(zhí)行文件 Build 重新編譯、連接生成可執(zhí)行文件 Destination 源文件是編譯到內(nèi)存還是磁盤 Primary file 顯示 Primary file對話框，進(jìn)行編譯和連接Pascal文件 Information 顯示當(dāng)前文件編譯、連接的信息 Clear Primary file 清除 Primary file菜單項設(shè)置 Debug菜單的介紹 Debug菜單提供在集成調(diào)試環(huán)境下調(diào)試 Pascal的功能，如設(shè)置斷點(diǎn)、檢查、修改變量、表達(dá)式等。 子菜單 快捷鍵 功能描述 Breakpoints 打開 Breakpoints窗口，顯示正在調(diào)試程序的所有斷點(diǎn) Register 打開 Register窗口，顯示正在調(diào)試程序的寄存器 Watch 打開 Watch窗口，顯示被跟蹤變量的值 Output 打開 Output窗口，顯示程序運(yùn)行的結(jié)果 User screen ALT+F5 進(jìn)入 DOS提示符狀態(tài)，顯示程序運(yùn)行的結(jié)果 Modify CTRL+F4 打開 Modify窗口，輸入需要檢查和更改的被跟蹤變量 ADD breakpoint 打開 ADD breakpoint窗口，設(shè)置一個新的斷點(diǎn) ADD watch CTRL+F7 打開 ADD watch窗口，添加一個被跟蹤變量。 主菜單的菜單欄選項注意點(diǎn)（鍵盤操作） ? 按 F10鍵，光標(biāo)移到主菜單，再用鍵盤的左右方向鍵來選擇所需的主菜單。按回車打開所選的主菜單。 ? 同時按在 ALT鍵和所需主菜單項中的高亮度字母，即可選中并打開其子菜單。例如：Alt + F就可打開 File菜單。 子菜單的使用說明 ? 部分子菜單有快捷鍵操作，則可以通過此快捷鍵直接啟動命令，如 F3可以快速地打開 “ Open a file” 窗口。 ? 子菜單項后有 “ ” 記號，表示該子菜單項還有下一級菜單； ? 子菜單項后有 “ ?” 記號，表示選擇該操作后會出現(xiàn)相應(yīng)的對話框。 編輯窗口的組成 狀態(tài)欄的作用 ? 提示當(dāng)前狀態(tài)下可用的快捷鍵。 ? 用于顯示工作狀態(tài)，提示當(dāng)前程序所做的工作等等。 編輯窗口的組成