PL0-compiler/test.pl0 at master · datvithanh/PL0-compiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program asdkk;
const m=7,n=85;
var x,y,z,q,r,k[50];
procedure multiply;
   var a,b;
   procedure divide;
   var w;
   begin r:=x; q:=0; w:=y;
      while w <= r do w:=2*w;
      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;
   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 <= r do w:=2*w;
      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;
   z:=f
   end;

begin
   x:=m; y:=n; call multiply;
   x:=25; y:=3; call divide;
   x:=84; y:=36; call gcd;
   call gcd;
end.