• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            Lyt
            posts - 16,comments - 61,trackbacks - 0

            一、簡介

            1.不允許全局變量,全局區域只有函數定義

            2.只能在函數的var里進行變量聲明,不能初始化,不需變量聲明時var可以省略

            3.只支持整型integer、浮點型real、布爾型boolean

            4.對大小寫不敏感

            5.有且只有一個main函數,從調用main函數開始執行程序

            二、詞法

            1.關鍵字:function  procedure  integer  var  begin  end  if  then  else while  do  break  continue  integer  real  boolean  false  true

            2.標識符:字母或下劃線開頭,由字母、下劃線、數字構成

            3.字面量:整型字面量(如【12】【1】等)、浮點型字面量(如【1.0】【0.23】等)、布爾型字面量(包括【false】【true】)

            4.操作符:(  )  +  -  *  /  div  mod  <  <=  =  !=  >=  >  := not  and  or  xor

            5.注釋:/*注釋內容*/,不可嵌套

            三、語法

            1.函數定義

            (1)函數分兩種類型,function有返回值,procedure無返回值

            (2)無參數時參數表可以為空,但括號()不可以省略,參數與類型之間用冒號隔開,參數之間用分號隔開

            (3)變量聲明只出現在var中,無變量聲明時var可省略,變量與類型之間用冒號隔開,變量聲明語句之間用分號隔開,最后一個變量聲明語句分號可加可省略

            (4)函數定義不能嵌套,只能在全局區域

            (5)函數不必先聲明后使用

            function Fun1(Param1:integer;Param2:integer):boolean
            var i,j:integer; k:real;
            begin
              
            /*函數體*/
            end

            procedure Fun2()
            begin
              
            /*函數體*/
            end

            2.語句

            (1)不允許空語句,語句直接用分號隔開,最后一個語句分號可加可省略

            (2)語句塊:a.由begin和end包圍,可包圍0個或以上語句;b.可以嵌套;c.在其所在層次上被視為一個語句

            (3)表達式語句:單獨的表達式可以構成一個語句,如【1】【test()】

            (4)賦值語句:IdentityName:=Value 如【i:=1】(賦值操作是語句而非表達式)

            (5)if語句:if (boolean表達式) then StatementTrue else StatementFalse(else可省略)如【if (true) then return 1】

            (6)while語句:while (boolean表達式) do Statement 如【while (true) dosomething()】

            (7)dowhile語句:do Statements while (boolean表達式) 如【do dosomething() while (true)】

            (8)跳轉語句:break退出循環;continue進入下一次循環

            (9)return語句:【return】出現在procedure函數中,【return 表達式】出現在function函數中

            3.表達式

            (1)函數調用:FunctionName(arg1,arg2)

            (2)操作符:a.算術:+  -  *  /  div  mod;b.邏輯:not  and  or  xor;c.比較:<  <=  =  !=  >=  >

            (3)操作符優先級(由高到低):括號可以改變優先級

            正號+  負號-  not  =>  *  /  div  mod  =>  加號+  減號-  =>  比較 =>  邏輯

            四、示例代碼

            1.斐波納契數列

            function fab(i:integer):integer
            begin
              
            if (i=1) then return 1
              
            else if (i=2) then return 1
              
            else return fab(i-1)+fab(i-2);
            end

            function main():integer
            begin
              
            return fab(4);
            end

            2.求π

            function GetPI():real
            var sum,n,sign:real;
                pd:boolean;
            begin
              sum:
            =1.0;
              n:
            =1.0;
              sign:
            =1.0;
              
            while (1.0/n>0.0001do
              begin
                sign:
            =-sign;
                n:
            =n+2.0;
                sum:
            =sum+sign*1.0/n;
              end;
              
            return 4.0*sum;
            end

            function main():real
            begin
              
            return GetPI();
            end

            源代碼:http://m.shnenglu.com/Files/Lyt/Pascal簡化版.rar

            posted on 2009-04-09 22:38 Lyt 閱讀(2032) 評論(5)  編輯 收藏 引用 所屬分類: Pascal簡化版

            FeedBack:
            # re: Pascal簡化版
            2009-04-09 23:44 | 尹東斐
            不錯,如果結構設計的好的話,擴展可支持的類型,添加新的功能是很容易的。
            如果你有scope的概念的話,增加函數功能也很容易。

            加油。  回復  更多評論
              
            # re: Pascal簡化版[未登錄]
            2009-04-10 14:30 | 那誰
            mark

              回復  更多評論
              
            # re: Pascal簡化版
            2009-04-10 15:38 | 巫云
            請問,這是個編譯器嗎?還是解釋器?  回復  更多評論
              
            # re: Pascal簡化版
            2009-04-10 16:28 | 陳梓瀚(vczh)
            @巫云
            一個編譯到虛擬機的指令上的編譯器。  回復  更多評論
              
            # re: Pascal簡化版[未登錄]
            2009-04-11 16:41 | jans2002
            高手啊,像我們這種半路出來的程序員感覺這些東西都很玄。  回復  更多評論
              
            久久精品九九亚洲精品天堂 | 久久中文精品无码中文字幕| 国产精品久久久天天影视香蕉 | 久久无码AV中文出轨人妻| 中文字幕人妻色偷偷久久| 免费国产99久久久香蕉| 久久久久久精品免费看SSS | 亚洲国产成人乱码精品女人久久久不卡 | 国产精品一区二区久久精品| 久久国产影院| 精品999久久久久久中文字幕| 亚洲国产成人久久精品99| 国产午夜久久影院| 老男人久久青草av高清| 国产精品美女久久久免费| yy6080久久| 欧美与黑人午夜性猛交久久久| 91精品国产高清91久久久久久| 久久强奷乱码老熟女网站| 久久精品国产亚洲5555| 国产精品一久久香蕉产线看| 国产成人无码精品久久久性色| 国产伊人久久| 久久精品国产99国产精品| 嫩草影院久久国产精品| 97久久精品人妻人人搡人人玩| A级毛片无码久久精品免费| 香蕉aa三级久久毛片| 久久久久综合中文字幕 | 亚洲国产天堂久久综合| 91精品免费久久久久久久久| 久久精品国产亚洲av麻豆色欲| 久久久久se色偷偷亚洲精品av| 青春久久| 亚洲精品tv久久久久| 婷婷久久综合九色综合绿巨人| 久久男人中文字幕资源站| 久久久久国产亚洲AV麻豆| 国产日韩欧美久久| 久久久艹| 久久精品国产日本波多野结衣|