pl0編譯程序設(shè)計(jì)說明書-資料下載頁
2025-05-23 18:07本頁面
【正文】 eadsym( Type:lparenb Type:ident) Type:rparen。 Type:semicolonwhile Type:whilesymb Type:ident Type:neq0 Type:numberdo Type:dosymbegin Type:beginsymcall Type:callsymp Type:ident。 Type:semicolonwrite Type:writesym( Type:lparen2 Type:number* Type:timesc Type:ident) Type:rparen。 Type:semicolonread Type:readsym( Type:lparenb Type:ident) Type:rparenend Type:endsymend Type:endsym. Type:periodSyntaxing...中間代碼如下： 0: JMP 0 8 1: JMP 0 2 2: INT 0 3 3: LOD 1 3 4: LIT 0 10 5: OPR 0 2 6: STO 1 4 7: OPR 0 0 8: INT 0 5 9: OPR 0 1610: STO 0 311: LOD 0 312: LIT 0 013: OPR 0 914: JPC 0 2415: CAL 0 216: LIT 0 217: LOD 0 418: OPR 0 419: OPR 0 1420: OPR 0 1521: OPR 0 1622: STO 0 323: JMP 0 1124: OPR 0 0運(yùn)行結(jié)果如下：Running....:122:224:326:428:530:632:734:836:938:224:326:428:0Program end normally!Press any key to continue可以看到結(jié)果與預(yù)期相同，程序通過。本程序有測試了許多其他的文件，全部通過，與預(yù)期相同。所有測試的源文件及結(jié)果均附上。l 錯誤文件測試：PL/0源文件：const m=7,n=85var x,y,z,q,r。procedure multiply。 var a,b。begin a:=u。 b:=y。 z:=c while b0 do begin if odd b do z:=z+a。 a:=2a。 b:=b/2。 endend。procedure divide const two = 2, three:=3。 var w。begin r=w。 q:=0。 w:=y。 while w=r do w:=two*w。 while wy begin q:=(2*q。w:=w/2)。 if w=r then begin r:=r2 q:q+1 endendend。procedure gcd。var f,g。begin f:=x。g:=y while fg dobegin if fg then g:=gf。if gf then g:=fg。z:=fend。begin x:=m。y:=n。call multiply。 x:25。y:=3。call divide。 x:=84。y:36。call gcd。 call x。 x:=gcd。gcd=xend.程序運(yùn)行情況如下：可以看出，程序很好的報(bào)告了出現(xiàn)的錯誤。
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1