【正文】 scal語(yǔ)言因?yàn)槲覜](méi)教過(guò)我就傻眼了： case i of{這里不加分號(hào) } 1:writeln(39。Hello World!39。)。 ? 空語(yǔ)句用在循環(huán)語(yǔ)句上： while true do 。)。 39。 end。 end{if} else begin write(39。{輸入的數(shù) } if ((bn)(na)0) then begin write(39。,i,39。請(qǐng)輸入一個(gè) 1100的整數(shù)： 39。 var a,b,i,n:integer。 end。（就不告訴你，就不告訴你，就不 ~告訴你?。? 第三章 嵌套 ? 舉個(gè)栗子你就明白了： if ab then if cd then begin while e=f do g:=g+1。 {跳轉(zhuǎn)到標(biāo)記 10086} end. ? 使用 goto語(yǔ)句來(lái)達(dá)到目的 第三章 循環(huán)（ goto） ? 使用 goto語(yǔ)句雖然有時(shí)候能使書(shū)寫(xiě)程序變得簡(jiǎn)便，但是通常情況下它會(huì)破壞程序結(jié)構(gòu)。句話 39。{定義一個(gè)標(biāo)記 } begin b:=1000。句話 39。 第三章 循環(huán)（ fordownto） ? 可惜的是， for語(yǔ)句不支持 C語(yǔ)言中的步長(zhǎng)功能，每次循環(huán)循環(huán)體變量的值只會(huì)加一。 a:=a+1。我是第 39。 ? for語(yǔ)句總是很簡(jiǎn)潔，但是并非所有循環(huán)都能用for語(yǔ)句表示出來(lái)。,a,39。 ? 和 repeatuntil不同的是，repeatuntil之間可以是多條語(yǔ)句，而 while后必須是一條語(yǔ)句或者一個(gè)程序段。句話 39。 a:=1。 until a=1000。,a,39。 ? 和 if語(yǔ)句一樣，當(dāng) while后的布爾值是 true時(shí)就執(zhí)行后面的語(yǔ)句或程序段，只不過(guò)執(zhí)行完一遍以后還會(huì)重新判斷是否再次執(zhí)行。句話 39。 ? while語(yǔ)句用起來(lái)是這樣的： a:=1。另一種方法就是使用循環(huán)語(yǔ)句。我是劍圣 39。)。)。 if d0 then writeln(39。請(qǐng)輸入 c： 39。請(qǐng)輸入 b： 39。請(qǐng)輸入 a： 39。end else g:=h。之間，否則第二條語(yǔ)句將不在條件語(yǔ)句的判定內(nèi)（一定會(huì)被執(zhí)行）。 第三章 條件（程序段） ? then之后跟的語(yǔ)句可以是一條語(yǔ)句，也可以是一個(gè)程序段： if c=d then begin a:=b。 ? a=b可以是任何一個(gè)布爾變量，還記得運(yùn)算符號(hào)一節(jié)中有說(shuō)關(guān)系運(yùn)算符“ =”的輸出結(jié)果是布爾類型么？ ? 如果使用多個(gè)布爾變量，切記用括號(hào)括起來(lái)： if (a=b) and (c=d) then e:=128。 a:=a xor b。 var a,b: integer。 ? 這個(gè)程序的優(yōu)點(diǎn)就是一個(gè)字：牛逼。{a變成了和 } b:=ab。 program a_b_c_normal。 ? 第一行 a變成了一開(kāi)始的a+b。 a:=b。 _! program a_b_c_easy。 begin i:=1024。 } 輸入： 1 2 輸出： 3 輸入： 1 2 輸出： 12 栗子： 第三章 賦值 ? 變量和常量的區(qū)別在于，變量的值是可以改變的。 readln(s1)。 s1,s2:string。readln(b)。 end. program a_plus_b_2。 b:integer。乘除法的優(yōu)先級(jí)高于加減法。 ? 常量先于變量而定義，在定義某些變量時(shí)甚至可以直接使用到常量（如數(shù)組）。 end. ? 使用 =定義常量。 readln(d)。 第三章 定義常量和變量 program pi_const。和 writeln(39。a39。 ? 內(nèi)存使用的單位叫做字節(jié)，一個(gè)字節(jié)相當(dāng)于八個(gè)開(kāi)關(guān)。 第三章 常用數(shù)據(jù)類型（整數(shù)類型） ? 整數(shù)類型 能表示的數(shù)字范圍 占用內(nèi)存 ? Shortint 128~127 1 ? Integer 32768~32767 2 ? Longint 2^31~2147483647 4 ? Int64 2^63~2^631 8 ? Byte 0~255 1 ? Word 0~65536 2 ? Cardinal 0~4294967926 4 ? 能表示的數(shù)字范圍越大，占用的內(nèi)存也就越多。 ? 如果你打入了一個(gè)單詞是白色的，那他就是關(guān)鍵字了，所以別把關(guān)鍵字用作標(biāo)識(shí)符。你可以假定關(guān)鍵字是已經(jīng)被定義的標(biāo)識(shí)符。 第三章 關(guān)鍵字和標(biāo)識(shí)符 ? 不是隨便一串英文字母都可以用來(lái)定義變量的。 ? 通過(guò) readln(s)。 第三章 常量和變量 ? 使用 const關(guān)鍵字來(lái)定義常量。 end. 栗子： 第三章 常量和變量 ? 雖說(shuō)魔獸爭(zhēng)霸 3也只不過(guò)是屏幕上的一些白點(diǎn)點(diǎn)，但是要完成魔獸爭(zhēng)霸 3，我們還需要更多的手段。 program input_output。)。的過(guò)程（過(guò)程是子程序的一種）。 ? 語(yǔ)句的種類可多了，在以后的學(xué)習(xí)中你將一一接觸不同的語(yǔ)句。結(jié)尾的。 ? 除了 F8和 F7以外，你還可以使用 F4直接執(zhí)行到某一條語(yǔ)句后停止。 第二章 調(diào)試 ? 按 F8進(jìn)行一句一句執(zhí)行。 ? 當(dāng)你學(xué)會(huì)了一些編程方法并能夠熟練書(shū)寫(xiě)程序以后，編譯錯(cuò)誤已經(jīng)不再是你畏懼的東西了，但運(yùn)行時(shí)錯(cuò)誤將永遠(yuǎn)陪伴你。 {輸出一個(gè)字符串 } end. {程序總是以 end和一個(gè)英文半角句號(hào)結(jié)束 } {大括號(hào)里寫(xiě)的都是注釋 } {注釋會(huì)被編譯器忽略 } (*除此之外，你還可以用 一個(gè)半圓左括號(hào)加一個(gè)星號(hào)和 一個(gè)星號(hào)加一個(gè)半圓右括號(hào)表示一段注釋 *) 1+1=3 //程序結(jié)束以后加什么內(nèi)容編譯器 //都懶得鳥(niǎo)你，一行內(nèi)的兩根斜杠后面的 //內(nèi)容也會(huì)被認(rèn)為是注釋。 你可以建立一個(gè) bat腳本輸入以下內(nèi)容后再運(yùn)行： chcp 437 nul 第二章 常用快捷鍵（請(qǐng)熟記?。? ? Alt + Enter ? Alt + X ? F2 ? F3 ? F9 ? Alt + F9 ? Ctrl + F9 ? Alt + F5 ? F8 ? F7 ? Ctrl + F8 ? Ctrl + F7 ? 全屏 ? 退出 ? 保存 ? 打開(kāi) ? 編譯并連接 ? 編譯 ? 編譯連接并運(yùn)行 ? 看結(jié)果 ? 單步步過(guò)運(yùn)行 ? 單步步入運(yùn)行 ? 加斷點(diǎn) ? 加跟蹤變量 第二章 大致了解你寫(xiě)的第一個(gè)程序 program hello_world。 出錯(cuò)提示中的 (2,1)是出錯(cuò)的行數(shù)和列數(shù)?！?except but “BEGIN” found 意思就是分號(hào)漏加了。 第二章 程序出錯(cuò)了怎么辦？ ? 當(dāng)你編譯了程序后如果有錯(cuò)誤，會(huì)出現(xiàn)以下提示：這時(shí)候你按回車，光標(biāo)會(huì)停在錯(cuò)誤出現(xiàn)的后一個(gè)字符（沒(méi)準(zhǔn)是下一行）上。 輸入 hello_world后按 Ok。 第一章 在哪里能夠得到編譯器？ ? 當(dāng)然是網(wǎng)上下載啦 ~！ ? 由于 Trubo Pascal編譯器已經(jīng)過(guò)時(shí)，這里推薦Free Pascal編譯器：rojects/freepascal/files/Win32/? 如果使用的不是 Windows32位操作系統(tǒng)，也可以去這里下： ? 不同的編譯器理解 Pascal語(yǔ)言略有不同，這造就了略有不同的 Pascal語(yǔ)言語(yǔ)法（語(yǔ)言是隨著時(shí)代變遷的嘛）。)。 end. 編譯器 Complier 囧 ！ 第一章 編譯器是如何運(yùn)作的？ ? 將一個(gè)高級(jí)語(yǔ)言程序轉(zhuǎn)換成機(jī)器語(yǔ)言程序的過(guò)程叫做編譯 。 program hello_world。 第一章 為什么需要 Pascal語(yǔ)言？ ? 正因?yàn)闄C(jī)器語(yǔ)言、低級(jí)語(yǔ)言可讀性差，所以我們需要形如 Pascal語(yǔ)言的高級(jí)語(yǔ)言來(lái)編寫(xiě)程序。之前我們說(shuō)的匯編語(yǔ)言就是低級(jí)語(yǔ)言，它唯一的好處就是使用了英文作為記注符而不是數(shù)字。 ? 如果要它在屏幕上輸出“你好，媽媽”幾個(gè)漢字，你也許需要讓它發(fā)送無(wú)數(shù)個(gè)指令給屏幕讓屏幕畫(huà)很多很多點(diǎn)。每條縮略語(yǔ)和一些數(shù)字的組合與機(jī)器語(yǔ)言指令相對(duì)應(yīng)。 第一章 什么是計(jì)算機(jī)程序？ ? 計(jì)算機(jī)程序 （ Computer Program，簡(jiǎn)稱 程序 ）是語(yǔ)句的集合。 ——顧名思義，就是一串一串執(zhí)行指令。這是一個(gè)古老的通用的指令集，即使是今天大多數(shù)計(jì)算機(jī)都認(rèn)得它。而計(jì)算機(jī)所有能做的事，基本上就只是在屏幕上畫(huà)白點(diǎn)點(diǎn)了。 人類閱讀機(jī)器語(yǔ)言時(shí)會(huì)發(fā)生眼殘： 第一章 什么又是機(jī)器語(yǔ)言呢？ ? 世界上只有個(gè)別腦殘學(xué)家看得懂機(jī)器語(yǔ)言，所以我們才需要其它容易看得懂的計(jì)算機(jī)程序語(yǔ)言來(lái)告訴計(jì)算機(jī)我們要它做什么。 ? 事實(shí)上八成的計(jì)算機(jī)并不能夠讀懂 Pascal語(yǔ)言。 ? 計(jì)算機(jī) 俗稱 電腦 ，是一種糟糕物。 begin writeln(39。 目錄 目錄 ? 第一章 Pascal語(yǔ)言介紹 ? 第二章 編譯寫(xiě)好的程序 ? 第三章 編寫(xiě)簡(jiǎn)單的程序 ? 第四章 子程序 ? 第五章 單元庫(kù) ? 第六章 編譯指令 ? 第七章 子界和枚舉 ? 第八章 數(shù)組集合文件記錄指針 ? 附錄 封面 第一章 Pascal語(yǔ)言介紹 ? 什么是 Pascal？好吃么？ ? Pascal語(yǔ)言是什么語(yǔ)言？ ? 什么又是機(jī)器語(yǔ)言呢？ ? 機(jī)器語(yǔ)言都是相同的嗎？ ? X86指令集包括哪些指令？ ? 什么是計(jì)算機(jī)程序？ ? 匯編語(yǔ)言又是什么傻逼東西？ ? 為什么需要 Pascal語(yǔ)言？ ? 如何讓計(jì)算機(jī)讀懂 Pascal語(yǔ)言？ ? 編譯器是如何運(yùn)作的？ 目錄 什么是 Pascal？好吃么？ ? Pascal的取名是為了紀(jì)念十七世紀(jì)法國(guó)腦殘學(xué)家 Blaise Pascal（不來(lái)色 本教程也適合初學(xué)者觀看。一天學(xué)會(huì) Free Pascal 制作者： ax_pokl 前言 ? 第一章一向是很重要的，無(wú)論你是否學(xué)過(guò) Pascal語(yǔ)言都請(qǐng)看一下。 ? 本教程是為了使那些學(xué)了 C語(yǔ)言（或其它編程語(yǔ)言）能夠瞬間看懂 pascal語(yǔ)言程序的人寫(xiě)的。 ? 發(fā)現(xiàn)任何錯(cuò)別字或程序 bug，也請(qǐng)聯(lián)系： 395838203。 program hello_world。 end. 一個(gè)好看的 Pascal語(yǔ)言程序很可能長(zhǎng)得像這樣： 第一章 Pascal語(yǔ)言是什么語(yǔ)言？ ? Pascal語(yǔ)言是 計(jì)算機(jī)程序語(yǔ)言 （簡(jiǎn)稱 程序語(yǔ)言 ），使用這種語(yǔ)言不僅能讓我們編寫(xiě) 計(jì)算機(jī)程序 ，例如：Windows操作系統(tǒng)、猜數(shù)字小游戲、魔獸爭(zhēng)霸 3，皮卡丘沙灘排球等等，還可以使我們變得更加腦殘。 ? 這個(gè)黑箱子過(guò)去曾經(jīng)是為了幫助腦殘學(xué)家研究腦殘學(xué)才被發(fā)明的，它的效果就是幫那些懶惰的腦殘學(xué)家在研究腦殘學(xué)時(shí)減少運(yùn)動(dòng)量。這種語(yǔ)言只有兩個(gè)字母： 0和 1。 ? 比如“ 01011001010010”是一個(gè)機(jī)器語(yǔ)言單詞，它的意思是告訴計(jì)算機(jī)在屏幕上畫(huà)一個(gè)白點(diǎn)。 ? 通常的家用計(jì)算器和筆記本計(jì)算機(jī)都懂得 X86指令集 。 ——就是做一些傻逼的邏輯運(yùn)算。 原來(lái)計(jì)算機(jī)只會(huì)做這些傻逼事情。語(yǔ)句是單詞的集合。這樣，人們就不用書(shū)寫(xiě) 0和 1的機(jī)器語(yǔ)言代碼了。于是就誕生了更加高級(jí)的語(yǔ)言，比如 Pascal語(yǔ)言。高級(jí)語(yǔ)言就多了，最有名的莫過(guò)于 C語(yǔ)言了。一個(gè) Windows操作系統(tǒng)的程序代碼重達(dá) 1G，它的代碼位于 %SYSTEMROOT%\System32下包含幾億條指令。 begin writeln(39。將一個(gè)高級(jí)語(yǔ)言程序轉(zhuǎn)換成機(jī)器語(yǔ)言程序的原理叫做 編譯原理 （感覺(jué)像是廢話）?！边@條語(yǔ)句后就會(huì)分析這條語(yǔ)句的語(yǔ)法，然后將得知這條語(yǔ)句其實(shí)就是在屏幕上輸出一些白點(diǎn)而已，便把需要做的事轉(zhuǎn)換成亂七八糟的東西。以后講到的的 Pascal語(yǔ)言語(yǔ)法都是基于 Free Pascal編譯器的。 如果正常，此時(shí)你會(huì)看 到如下界面： 第四步：按 Ctrl+F9運(yùn)行程序 你會(huì)發(fā)現(xiàn)屏幕閃了一下， 這表示你編譯并運(yùn)行成功了。你必須修改錯(cuò)誤的部分直到程序能夠正確編譯為止。 第二章 程序出錯(cuò)了怎么辦？ ? 在編譯的時(shí)候出的錯(cuò)叫做 編譯錯(cuò)誤 ，還有種錯(cuò)誤是在運(yùn)行的時(shí)候出錯(cuò)的，叫做 運(yùn)行時(shí)錯(cuò)誤 。 第二章 部分中文計(jì)算機(jī)用戶遇到的問(wèn)題 ? 有時(shí)候你家的 free pascal看上去像這樣： ? 請(qǐng)別緊張，這只是腦殘計(jì)算機(jī)在和你看玩笑。 {程序總是以 program和一串英文字母開(kāi)始 } {單詞之間用空格隔開(kāi) } begin {程序的語(yǔ)句部分開(kāi)始 } writeln(39。 {你甚至還可以用 //嵌套的方法 }//表示這是注釋！ {原來(lái)一個(gè) pascal語(yǔ)言程序就是這么寫(xiě)的。 ? 世界上最討厭的事不是程序中有錯(cuò)，而是不知程序的