課程設計---pl0功能擴充

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：26 大小：142.00KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩25頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　課程設計　　課程名稱_____編譯原理_____ 　　題目名稱 PL/0功能擴充 　　學生學院計算機學院 　　專業(yè)班級計科一班 </p&

2、gt;　　學號_____ ______　　2012年 1 月 1 日　　課程設計目的　　在分析理解一個教學型編譯程序（如PL/0）的基礎上，對其詞法分析程序、語法分析程序和語義處理程序進行部分修改擴充。達到進一步了解程序編譯過程的基本

3、原理和基本實現(xiàn)方法的目的。　　課程設計要求　　基本內容　?。?）擴充賦值運算：+= 和 -= 　?。?）擴充語句（Pascal的FOR語句）:　　①FOR

4、 <變量>:=<表達式> TO <表達式> DO <語句>　?、贔OR <變量>:=<表達式> DOWNTO <表達式> DO <語句>　　其中，語句①的循環(huán)變量的步長為1，　　語句②的循環(huán)變量的步長為-1。</

5、p>　?。?）增加運算：++ 和 --。　　課程設計環(huán)境與工具　　（1）計算機及操作系統(tǒng)：PC機，Windows7　?。?）實現(xiàn)工具：C++Builder6　?。?）教學型編譯程序：PL/0 </p&

6、gt;　　說明　　1、PL/0編譯程序的結構圖　　2、PL/0編譯程序的總體流程圖：　　3、PL/0編譯程序的過程或函數(shù)的功能表　　4、詞法分析<

7、;p>　　詞法分析是編譯的第一個階段，它的主要任務是從左向右逐個字符地對源程序進行掃描，產(chǎn)生一個個單詞序列用于語法分析。PL/0詞法分析程序GETSYM的功能是為語法分析提供單詞用的，是語法分析的基礎，把輸入的字符串形式的源程序分割成一個個單詞符號。經(jīng)過詞法分析程序分析出來的單詞，對語言固有的單詞只給出類別存放在全程變量SYM中，而對用戶定義的單詞（標識符或常數(shù)）既給出類別又給值，其類別放在SYM中，值放在全程變量ID或全程變量N

8、UM中，全部單詞種類由編譯程序定義的純量類型SYMBOL給出，稱為語法詞匯表。　　5、語法分析　　PL/0編譯程序的語法分析采用了自頂向下的遞歸的子程序法。語法分析同時也根據(jù)程序的語義生成相應三元代碼，并提供了出錯處理的機制。語法分析主要由分程序分析過程（BLOCK）、常量定義分析過程（ConstDeclaratio

9、n）、變量定義分析過程（Vardeclaration）、語句分析過程（Statement）、表達式處理過程（Expression）、項處理過程（Term）、因子處理過程（Factor）和條件處理過程（Condition）構成。這些過程在結構上構成一個嵌套的層次結構。詳細見作圖　　6、語義分析　　PL/0 的語義分析主

10、要進行以下檢查：　?。?）是否存在標識符先引用未聲明的情況；　?。?）是否存在己聲明的標識符的錯誤引用；　?。?）是否存在一般標識符的多重聲明。　　7、中間代碼生成　　目標代碼類pcod

11、e是一種假想棧式計算機的匯編語言。　　添加覆蓋：　　OPR L 14棧頂值輸出至屏幕（L=1:字符型；L=0：整型）　　OPR 0 15輸出回車　　OPR L 16從命令行讀入一個字符輸入置于棧頂（L=1:字符型；L

12、=0：整型）　　STP L A將棧頂置入暫存數(shù)組TMP[A]里，L=1退一棧，否則不退　　GTP 0 A 將暫存數(shù)組TMP[A]的值放到棧頂　　以下3個為數(shù)組新增：　　ACP L AL=1則將當前離棧頂偏移A的值復制到新棧頂；L=0不操作<

13、/p>　　AST L A 將棧頂?shù)闹祵懭肱cA偏移量等于次棧頂?shù)牡刂?，棧?　　ALD L A 從與A偏移量等于棧頂?shù)玫刂返闹捣旁谠摋ｍ斏?lt;/p>　　8、語法錯誤處理　　PL/0編譯程序對語法錯誤的處理采用兩種辦法：

14、　?。?）對于一些易于校正的錯誤，如丟了逗號、分號等，指出出錯的位置，加以校正，繼續(xù)進行分析。 　　（2）對于難于校正的錯誤，給出錯誤的位置與性質，跳過后面一些單詞，直到下一個可以進行正常語法分析的語法單位。　　錯誤類型如下

15、　　0 過程開始部分說明不正確　　1 常數(shù)說明中"="寫成":="　　2 常數(shù)說明中"="后應為整數(shù)或實數(shù)或字符　　3 常數(shù)說明中的標識符后應是"="<p

16、>　　4 const, var, procedure后應為標識符　　5 漏掉了","或";"　　6 過程說明后的符號不正確(應該是語句開始符,或過程定義符)　　7 應是語句開始符　　8 程序體內語句部分的后跟符不正確

17、　　9 程序結尾丟了句號"."　　10 語句間漏了";"　　11 標識符未說明　　12 賦值語句中,賦值號左部標識符屬性應是變量　　13 變量后不能是

18、此符號　　14 call后應為標識符　　15 call后標識符屬性應為過程　　16 條件語句中丟了"then"　　17 丟了"end"或";"　　18 while型循環(huán)語

19、句丟了"do"　　19 語句后的符號不正確　　20 應為關系運算符　　21 表達式內標識符屬性不能是過程　　22 表達式中漏掉右括號"("　　23 因子后的非法符號&

20、lt;p>　　24 表達式的開始符不能是此符號　　31 數(shù)越界　　32 read語句中的標識符不是變量　　33 后接符號應該是“'”　　34 未知的類型<

21、;p>　　35 缺少“]”　　36 運行?？臻g不足，無法申請該數(shù)組　　37數(shù)組的下標不合法　　38 后接符號應該是“DO”　　39 應為TO或者DOWNTO　　五、設計

22、過程：　　A、增加運算+=，-=，++，--　　1、代碼：　　詞法分析：　　case '+': GetCh();　　i

23、f(CH=='+'){SYM=INC;GetCh();}　　else if(CH=='='){SYM=APPEND;GetCh();}　　else SYM= PLUS;　　break;　　case &#

24、39;-': GetCh();　　if(CH=='-'){SYM=DEC;GetCh();}　　else if(CH=='='){SYM=REDUCE;GetCh();}　　else SYM= MINUS;　　語法

25、分析：　　1、在因子處理程序里：　　case CONSTANT:　　if(SYM==INC||SYM==DEC){Error(23);break;}　　GEN(LIT,0,TABLE[i].VAL); break;<p&g

26、t;　　case VARIABLE:　　if(SYM==LMPAREN)　　{　　GetSym();　　set=AST;lod=ALD;　　EXPRESS

27、ION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);　　}　　if(SYM==INC||SYM==DEC){</p&g

28、t;　　GEN(ACP,AST==set,0);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　if(SYM==INC)　　GEN(LIT,0,1);　　else GEN(LIT,0,-1)

29、;　　GEN(OPR,0,2);　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(ACP,AST==set,-1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR)

30、;　　if(SYM==INC)　　GEN(LIT,0,-1);　　else GEN(LIT,0,1);　　GEN(OPR,0,2);　　GetSym();<

31、p>　　}　　else GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　case INC:<p&g

32、t;　　case DEC:　　GetSym();　　if(SYM==IDENT){　　i=POSITION(ID,TX);　　if(i!=0)</p&g

33、t;　　{ VSTYLE=TABLE[i].STYLE;　　GetSym();　　if(SYM==LMPAREN)　　{　　GetSym();</

34、b>　　set=AST;lod=ALD;　　EXPRESSION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);&l

35、t;b>　　}　　if(CurSym==INC)　　GEN(LIT,0,1);　　else　　GEN(LIT,0,-1);　　GEN(ACP,set==AST,1);

36、　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(ACP,set==AST,-1);

37、　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}　　else Error(11);　　} //if(SYM==IDENT)　　else

38、Error(23);　　2、在語句處理分程序：　　case IDENT:　　i=POSITION(ID,TX);　　GetSym();　　if (i==0) Error(11);</p&

39、gt;　　else　　if (TABLE[i].KIND!=VARIABLE) { /*ASSIGNMENT TO NON-VARIABLE*/　　Error(12); i=0;　　}<

40、p>　　else {VSTYLE=TABLE[i].STYLE;　　if(SYM==LMPAREN)　　{　　GetSym();　　set=AST;lod=ALD;&

41、lt;p>　　EXPRESSION(SymSetAdd(RMPAREN,FSYS),LEV,TX);　　if(RMPAREN==SYM) GetSym();　　else Error(35);　　}　　}<

42、/b>　　switch(SYM)　　{　　case BECOMES:　　GetSym();　　EXPRESSION(FSYS,LEV,TX);<

43、;/p>　　if (i==0) Error(11);//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　case APPEND:　　GetSym();</b&

44、gt;　　EXPRESSION(FSYS,LEV,TX);　　if (i!=0){　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　G

45、EN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}　　break;　　case REDUCE:

46、　　GetSym();　　EXPRESSION(FSYS,LEV,TX);　　if (i!=0){　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TAB

47、LE[i].vp.ADR);　　GEN(OPR,0,3);　　GEN(OPR,0,1);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　}<p&g

48、t;　　break;　　case INC:　　GetSym();　　if (i!=0){　　GEN(LIT,0,1);

49、;　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);<p&g

50、t;　　}　　break;　　case DEC:　　GetSym();　　if (i!=0){&

51、lt;p>　　GEN(LIT,0,-1);　　GEN(ACP,set==AST,1);　　GEN(lod,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(OPR,0,2);　　//GEN(set,LEV-TABLE[i].v

52、p.LEVEL,TABLE[i].vp.ADR);　　}　　break;　　default: Error(13);break;　　}&

53、lt;p>　　GEN(set,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　break;　　測試程序：　　INCDEC程序：<p

54、>　　PROGRAM TESTELSE;　　VAR A,B,C,D,E,F,G;　　BEGIN　　A:=5;　　F:=0;<

55、;p>　　G:=0;　　B:=A++;　　C:=++A;　　D:=A--;　　E:=--A;&l

56、t;/b>　　F+=A;　　G-=A;　　PRINTLN(A,B,C,D,E,F,G);　　END.<b

57、>　　測試結果：　　=== COMPILE PL0 ===　　0 PROGRAM TESTELSE; 　　0 VAR A,B,C,D,E,F,G; 　　1 BEGIN

58、;　　2 A:=5; 　　4 F:=0; 　　6 G:=0; 　　8 B:=A++; 　　18 C:=++A;

59、26 D:=A--; 　　36 E:=--A; 　　44 F+=A; 　　49 G-=A; 　　55 PRINTLN(A,B,C,D,E,F,G); &l

60、t;b>　　70 END. 　　0 JMP 0 1　　1 INI 0 10　　2 LIT 0 5　　3 STO 0 3　　4 LIT 0 0</p&g

61、t;　　5 STO 0 8　　6 LIT 0 0　　7 STO 0 9　　8 ACP 0 0　　9 LOD 0 3　　10 LIT 0 1</

62、p>　　11 OPR 0 2　　12 STO 0 3　　13 ACP 0 -1　　14 LOD 0 3　　15 LIT 0 -1　　16 OPR 0

63、 2　　17 STO 0 4　　18 LIT 0 1　　19 ACP 0 1　　20 LOD 0 3　　21 OPR 0 2　　22

64、STO 0 3　　23 ACP 0 -1　　24 LOD 0 3　　25 STO 0 5　　26 ACP 0 0　　27 LOD 0 3<p&g

65、t;　　28 LIT 0 -1　　29 OPR 0 2　　30 STO 0 3　　31 ACP 0 -1　　32 LOD 0 3　　33 LIT 0 1

66、　　34 OPR 0 2　　35 STO 0 6　　36 LIT 0 -1　　37 ACP 0 1　　38 LOD 0 3　　39 OPR 0 2<

67、;/p>　　40 STO 0 3　　41 ACP 0 -1　　42 LOD 0 3　　43 STO 0 7　　44 LOD 0 3　　45 ACP

68、0 1　　46 LOD 0 8　　47 OPR 0 2　　48 STO 0 8　　49 LOD 0 3　　50 ACP 0 1　　51

69、 LOD 0 9　　52 OPR 0 3　　53 OPR 0 1　　54 STO 0 9　　55 LOD 0 3　　56 OPR 0 14<p

70、>　　57 LOD 0 4　　58 OPR 0 14　　59 LOD 0 5　　60 OPR 0 14　　61 LOD 0 6　　62 OPR 0 14

71、;　　63 LOD 0 7　　64 OPR 0 14　　65 LOD 0 8　　66 OPR 0 14　　67 LOD 0 9　　68 OPR 0 14&

72、lt;/p>　　69 OPR 0 15　　70 OPR 0 0　　~~~ RUN PL0 ~~~　　5 5 7 7 5 5 -5 　　~~~ END PL0 ~~~<p

73、>　　B、FOR語句:　　修改STATEMENT就能實現(xiàn)FOR語句的擴充，代碼如下：　　case FORSYM:　　// FOR <變量>:=<表達式> TO <表達式> DO <語句>

74、　　// FOR <變量>:=<表達式> DOWNTO <表達式> DO <語句>　　GetSym();　　FSYS=SymSetUnion(SymSetNew(DOSYM,TOSYM,DOWNTOSYM),FSYS);<

75、;/p>　　if(SYM==IDENT)　　{　　i=POSITION(ID,TX);　　if( i!=0)　　{</p&g

76、t;　　GetSym();　　if(BECOMES==SYM)　　{　　GetSym();　　EXPRESSION(FSYS,LEV,T

77、X);　　GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　if(TOSYM==SYM||DOWNTOSYM==SYM)　　{　　TmpSYM=SYM;<p

78、>　　GetSym();　　EXPRESSION(FSYS,LEV,TX);　　if(DOSYM==SYM)　　{ GetSym();　　TMPADDR=1;　　GEN(STP,1

79、,TMPADDR);　　//循環(huán)體無條件回跳到這里重新判斷循環(huán)條件　　CX1=CX;　　//循環(huán)體條件判斷碼的生成　　switch(TmpSYM)　　{&

80、lt;/p>　　case TOSYM:　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　GEN(GTP,0,TMPADDR);　　Step=1;<b

81、>　　break;　　case DOWNTOSYM:　　GEN(GTP,0,TMPADDR);　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　Step=-1;</b&g

82、t;　　break;　　default: Error(8);　　}　　GEN(OPR,0,10); // 棧頂：原(次棧頂<棧頂?shù)慕Y果)<b&

83、gt;　　//條件碼結束　　CX2=CX; //CX2用于記錄產(chǎn)生跳轉位置的 GEN(JPC,0,0)的位置　　//便于回填時找到該跳轉命令 GEN(JPC,0,0)　　GEN(JPC,0,0);　　//循環(huán)語句 ></b

84、>　　STATEMENT(FSYS,LEV,TX);　　//<循環(huán)語句完　　//步長+1或者-1操作 >　　GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);</p

85、>　　GEN(LIT,0,Step);　　GEN(OPR,0,2);　　GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);　　//<步長+1或者-1操作結束　　GEN(JMP,0,CX1);/

86、/無條件跳回CX1，至此循環(huán)體結束　　CODE[CX2].A=CX; //將跳出循環(huán)體的位置回填　　}　　else Error(38);　　}　　else

87、 Error(39);　　}　　else Error(11);　　}　　else Error(8);　　}</

88、p>　　測試程序：　　FORSYM.PL0;　　PROGRAM EX01;　　VAR A,B,C;　　BEGIN<b&g

89、t;　　C:=0;　　B:=5;　　A:=11;　　FOR A:=0 DOWNTO -5 DO　　BEGIN<

90、;p>　　PRINTLN(A);　　END;　　FOR A:=0 TO 5 DO　　BEGIN　　PRINTLN(A);　　END

91、　　END.　　測試結果：　　***** PL/0 Compiler Demo *****　　=== COMPILE PL0 ===

92、　0 PROGRAM EX01; 　　0 VAR A,B,C; 　　1 BEGIN 　　2 C:=0; 　　4 B:=5; <

93、;p>　　6 A:=11; 　　8 FOR A:=0 DOWNTO -5 DO 　　12 BEGIN 　　17 PRINTLN(A); 　　20 END;

94、;　　25 　　25 FOR A:=0 TO 5 DO 　　28 BEGIN 　　33 PRINTLN(A); 　　36 END 　　36

95、 　　36 END. 　　0 JMP 0 1　　1 INI 0 6　　2 LIT 0 0　　3 STO 0 5

96、;　　4 LIT 0 5　　5 STO 0 4　　6 LIT 0 11　　7 STO 0 3　　8 LIT 0 0　　9 STO 0 3</p&

97、gt;　　10 LIT 0 5　　11 OPR 0 1　　12 STP 1 1　　13 GTP 0 1　　14 LOD 0 3　　15 OPR 0 1

98、0　　16 JPC 0 25　　17 LOD 0 3　　18 OPR 0 14　　19 OPR 0 15　　20 LOD 0 3　　21 LI

99、T 0 -1　　22 OPR 0 2　　23 STO 0 3　　24 JMP 0 13　　25 LIT 0 0　　26 STO 0 3

100、　　27 LIT 0 5　　28 STP 1 1　　29 LOD 0 3　　30 GTP 0 1　　31 OPR 0 10　　32 JPC 0 41&

101、lt;p>　　33 LOD 0 3　　34 OPR 0 14　　35 OPR 0 15　　36 LOD 0 3　　37 LIT 0 1　　38 OPR 0 2</

102、p>　　39 STO 0 3　　40 JMP 0 29　　41 OPR 0 0　　~~~ RUN PL0 ~~~　　0 <b&

103、gt;　　-1 　　-2 　　-3 　　-4 　　0 &

104、lt;p>　　1 　　2 　　3 　　4 　　~~~ END PL0 ~~~

105、　　C、字符類型：　　聲明、因子、語句（變量、輸入、輸出）、解釋等分程序都有涉及，這里不貼代碼，主要處理字符變量的賦值，增加'x'為ACHAR，參加運算以及類型轉換：表達式中如果有char型，則輸出為char型，其它運算int型和char型其實是相通的，只需要處理表達形式和變量的類型，我用了一個全局變量VSTYLE來跟蹤當

106、前棧頂?shù)闹祽摓楹畏N類型。　　測試程序：　　PROGRAM EX01;　　VAR CHAR B;　　VAR A;　　BEGIN</

107、b>　　A:=5;　　READ(B);　　PRINTLN(A,A+B,'A'+1,'H');　　END.</p&g

108、t;　　測試結果：　　=== COMPILE PL0 ===　　0 PROGRAM EX01; 　　0 VAR CHAR B; 　　1 VAR A;

109、　　1 BEGIN 　　2 A:=5; 　　4 READ(B); 　　6 PRINTLN(A,A+B,'A'+1,'H'); <b&g

110、t;　　19 END. 　　0 JMP 0 1　　1 INI 0 5　　2 LIT 0 5　　3 STO 0 4　　4 OPR 1 16&

111、lt;p>　　5 STO 0 3　　6 LOD 0 4　　7 OPR 0 14　　8 LOD 0 4　　9 LOD 0 3　　10 OPR 0 2

112、　　11 OPR 1 14　　12 LIT 0 65　　13 LIT 0 1　　14 OPR 0 2　　15 OPR 1 14　　16 LIT 0 72&l

113、t;/p>　　17 OPR 1 14　　18 OPR 0 15　　19 OPR 0 0　　~~~ RUN PL0 ~~~　　Input: 8

114、;　　5 = B H 　　~~~ END PL0 ~~~　　D、一維數(shù)組：　　初始化：　　void ENTER(OBJECTS K, int LEV, int &TX, i

115、nt &DX) { /*ENTER OBJECT INTO TABLE*/　　TX++;　　strcpy(TABLE[TX].NAME,ID); TABLE[TX].KIND=K;　　TABLE[TX].STYLE=VSTYLE;<p&g

116、t;　　switch (K) {　　case CONSTANT:　　GetSym();　　if(CHCH==VSTYLE)　　{　　TABLE[TX].c

117、CHAR=VALUE;　　}　　else if(INTINT==VSTYLE)　　{　　if (NUM>IMAX) { Error(31); NUM=0; }<

118、;p>　　TABLE[TX].VAL=NUM;　　} else Error(34);　　break;　　case VARIABLE:　　GetSym();<p&

119、gt;　　if(LMPAREN==SYM)　　{　　GetSym();　　if(SYM==NUMBER&&NUM+DX<AMAX)　　{

120、　　TABLE[TX].vp.SIZE=NUM;　　TABLE[TX].vp.ADR=DX;　　DX+=NUM;　　// NEWARRAY(NUM,DX);　　GetSym(

121、);　　if(RMPAREN!=SYM)Error(35);　　else GetSym();　　}　　//數(shù)組的處理　　else Er

122、ror(36);　　}　　else {　　TABLE[TX].vp.LEVEL=LEV; TABLE[TX].vp.ADR=DX;　　TABLE[TX].vp.SIZE=0; //0在這里只是用來

123、標識變量A和數(shù)組A[1]的差別　　DX++;　　}　　break;　　case PROCEDUR:　　TABLE[T

124、X].vp.LEVEL=LEV;　　break;　　}　　} /*ENTER*/　　其它代碼大部分也有涉及，為了能夠使數(shù)組和一般變量一樣參加運算，需要對其偏移地址進行計算，一般偏移地址計算后都會放

125、在棧頂，處理這個偏移量成了一個問題，主要有：如何讓賦值左邊的數(shù)組的偏移量不被先計算的賦值式右邊的數(shù)組偏移量所替代，因此在存儲上我的思路是：將偏移量放在棧頂先不處理，等到要賦值到數(shù)組元素的地址時，有兩種操作：ALD和AST，ALD根據(jù)棧頂這個便宜量+數(shù)組基址取得值放在這個頂上，此時偏移量被沖走；AST是棧頂為表達式算出的值，次棧頂為偏移量，將棧頂?shù)闹蹈鶕?jù)次棧頂?shù)钠屏抠x到正確的位置（有一個操作用于協(xié)助這兩個操作：ACP）。下面是這三個操作

126、的具體代碼：　　case ACP: if(I.L!=0){　　S[T+1]=S[T-I.A]; T++;　　}　　break;　　case ALD: S[

127、T]=S[BASE(I.L,B,S)+I.A+S[T]];　　break;　　case AST: S[BASE(I.L,B,S)+I.A+S[T-1]]=S[T];　　T-=2;

128、　　break;　　對這三個操作的應用在因子，語句中的輸入，變量中；因為時間不足，沒有實現(xiàn)數(shù)組的總體賦值A[2]={1，2}這種形式，只能單個賦值。沒有邊界判斷。　　測試程序：　　PROGRAM EX01;　　VA

129、R A,B[2],C;　　VAR D[10];　　BEGIN 　　B[0]:=1;　　B[1]:=2;　　FOR A

130、:=0 TO 10 DO　　BEGIN　　D[A]:=B[A/2]++;　　PRINTLN(D[A]);　　END;　　PRINTLN(B[0],B[1]

131、);　　END.　　測試結果：　　=== COMPILE PL0 ===　　0 PROGRAM EX01; 　　0 VAR A,B[2],C; </

132、p>　　1 VAR D[10]; 　　1 BEGIN 　　2 B[0]:=1; 　　5 B[1]:=2; 　　8 FOR A:=0 TO 10 DO 　　1

133、1 BEGIN 　　16 D[A]:=B[A/2]++; 　　30 PRINTLN(D[A]); 　　34 END; 　　39 PRINTLN(B[0],B[1]); &

134、lt;b>　　46 END. 　　0 JMP 0 1　　1 INI 0 17　　2 LIT 0 0　　3 LIT 0 1　　4 AST 0 4</p&

135、gt;　　5 LIT 0 1　　6 LIT 0 2　　7 AST 0 4　　8 LIT 0 0　　9 STO 0 3　　10 LIT 0 10<

136、/p>　　11 STP 1 1　　12 LOD 0 3　　13 GTP 0 1　　14 OPR 0 10　　15 JPC 0 39　　16 LOD 0

137、 3　　17 LOD 0 3　　18 LIT 0 2　　19 OPR 0 5　　20 ACP 1 0　　21 ALD 0 4　　22

138、 LIT 0 1　　23 OPR 0 2　　24 AST 0 4　　25 ACP 1 -1　　26 ALD 0 4　　27 LIT 0 -1<p&

139、gt;　　28 OPR 0 2　　29 AST 0 7　　30 LOD 0 3　　31 ALD 0 7　　32 OPR 0 14　　33 OPR 0 15

140、　　34 LOD 0 3　　35 LIT 0 1　　36 OPR 0 2　　37 STO 0 3　　38 JMP 0 12　　39 LIT 0 0&l

141、t;/p>　　40 ALD 0 4　　41 OPR 0 14　　42 LIT 0 1　　43 ALD 0 4　　44 OPR 0 14　　45 OPR

142、 0 15　　46 OPR 0 0　　~~~ RUN PL0 ~~~　　1 　　2 　　2

143、　　3 　　3 　　4 　　4 　　5

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

課程設計---pl0功能擴充

文檔簡介

溫馨提示

最新文檔

評論

課程設計---pl0功能擴充

文檔簡介

溫馨提示

最新文檔

評論

免費下載