const m = 7, n = 85;
var x, y, z, q, r;
procedure multiply;
var a, b;
procedure plus;
var ss;
begin
ss :=x
end;
begin
a := x; b := y; z := 0;
while b > 0 do
begin
if odd b then z := z + a;
a := 2 * a; b := b / 2;
end
end;
procedure divide;
var w;
begin
r := x; q := 0; w := y;
while w > y do
begin
q := 2 * q; w := w / 2;
if w <= r then
begin
r := r - w;
q := q + 1;
end;
end
end;
procedure gcd;
var f, g;
begin
f := x;
g := y;
while f <> g do
begin
if f < g then g := g - f;
if g < f then f := f - g;
end
end;
begin
x := m; y := n; call plus;
x := 25; y := 3; call divide;
x := 34; y := 36; call gcd;
end.
很有用的PL0源代码,是基于C语言运行的!并有自己详细的注释!
4星 · 超过85%的资源 需积分: 12 158 浏览量
2009-06-15
19:59:17
上传
评论 1
收藏 240KB RAR 举报 
PL0编译器.rar （22个子文件） 
PL0编译器 
pl0.dsw 531B pl0.ncb 73KB example.out 4KB set.c 2KB pl0.plg 240B pl0.dsp 3KB
example.txt 707B Debug vc60.pdb 52KB
pl0.exe 184KB pl0.obj 46KB vc60.idb 49KB e1 44B example.txt 707B set.obj 6KB pl0.ilk 198KB pl0.pdb 505KB pl0.pch 212KB pl0.c 21KB pl0.h 5KB pl0.opt 48KB set.h 367B hbin.txt 133B
评论2
最新资源