• <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://www.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
            高手啊,像我們這種半路出來的程序員感覺這些東西都很玄。  回復  更多評論
              
            性高湖久久久久久久久| 色综合久久无码中文字幕| 999久久久国产精品| 久久久久亚洲精品男人的天堂| 久久九色综合九色99伊人| 国产成年无码久久久免费| 久久se精品一区精品二区| 少妇久久久久久被弄到高潮| 亚洲精品无码久久久久去q| 久久99久久99小草精品免视看| 久久久精品无码专区不卡| 久久婷婷五月综合色高清| 久久国产精品一区二区| 国产精品久久久久久久久软件| 久久久无码精品亚洲日韩按摩| 久久国产精品二国产精品| 久久精品国产亚洲av日韩| 亚洲天堂久久久| 人妻无码中文久久久久专区| 久久―日本道色综合久久| 精品久久久中文字幕人妻 | 综合人妻久久一区二区精品| 人人狠狠综合久久亚洲婷婷| 久久国产亚洲精品| 九九热久久免费视频| 青青青伊人色综合久久| 久久精品人人做人人妻人人玩 | 久久久久99精品成人片试看| 欧美性大战久久久久久| 91精品观看91久久久久久| 精品久久无码中文字幕| 人妻无码αv中文字幕久久琪琪布 人妻无码久久一区二区三区免费 人妻无码中文久久久久专区 | 久久久久九九精品影院| 久久精品视频网| 久久99精品国产99久久| 国产国产成人精品久久| 国产成人久久激情91| 老司机国内精品久久久久| 久久免费高清视频| 99久久精品无码一区二区毛片 | 久久综合九色综合久99|