PL0 language 源代码

var a,b,x,y,g,m; procedure swap; var temp; begin temp := x; x := y; y := temp end; procedure mod; x := x-x/y*y; …

var x,y,rem; begin read(x); read(y); repeat rem = x-y*(x/y); x = y; y = rem until rem=0; write(x) …

#pragma once #ifndef __PL0_H #define __PL0_H class CSymtax; class CWording; class CForm; class CCode; class CErrors; cla…

const a=10; var b,c; procedure p; begin c:=b*a end; begin read(b); while b0 do begin call p; …

#include "StdAfx.h" #include ".\pl0.h" #include "Wording.h" #include "Errors.h" #include "Form.h" #include "Code.h" #include…

var a,b,c; begin read(a,b,c); if a>=b then if a>=c then write(a) else write(c) else if b>=c then write(b)…

const c = 10; var a,b,d; procedure p; var e,f; begin b:=b+1; e:=2*b; f:=3*e end; procedure q; var x,y; beg…

const a=10; var b,c; procedure p; begin c:=b+a; end; begin read(b); while b#0 do begin call p; …

var a,b,c; procedure common; var c; procedure rest; begin c:=a / b; c:=a-c*b end; begin call rest;…