const m = 7, n = 85;
var x, y, z, q, r;
procedure multiply;
var a, b;
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 multiply;
x := 25; y := 3; call divide;
x := 34; y := 36; call gcd;
end.
PL0词法分析器（java实现）
5星 · 超过95%的资源 需积分: 25 171 浏览量
2011-12-15
13:05:56
上传
评论 1
收藏 9KB RAR 举报 
Compiler.rar （8个子文件） 
Compiler src com word 
Word.java 20KB Analyzer.java 157B bin com word Word.class 12KB Analyzer.class 443B .classpath 301B .settings org.eclipse.jdt.core.prefs 629B .project 384B
program.txt 657B
- 1
- 2
前往页