59 lines
7.1 KiB
HTML
59 lines
7.1 KiB
HTML
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><html><head><rel="stylesheet" type="text/css" href="css/main.css" /><meta http-equiv="content-type" content="text/php; charset=utf-8" /><title>PL0 syntax highlight </title></head><body bgcolor=#C9C7F0><pre ><font color=#505450>VAR</font>
|
|
<font color=#2341ff>x</font><font color=#000000>,</font> <font color=#2341ff>y</font><font color=#000000>,</font> <font color=#2341ff>z</font><font color=#000000>,</font> <font color=#2341ff>q</font><font color=#000000>,</font> <font color=#2341ff>r</font><font color=#000000>;</font>
|
|
|
|
<font color=#502050>PROCEDURE</font> <font color=#2341ff>multiply</font><font color=#000000>;</font>
|
|
<font color=#505450>VAR</font> <font color=#2341ff>a</font><font color=#000000>,</font> <font color=#2341ff>b</font><font color=#000000>;</font>
|
|
|
|
<font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>a</font> <font color=#ff0000>:=</font> <font color=#2341ff>x</font><font color=#000000>;</font>
|
|
<font color=#2341ff>b</font> <font color=#ff0000>:=</font> <font color=#2341ff>y</font><font color=#000000>;</font>
|
|
<font color=#2341ff>z</font> <font color=#ff0000>:=</font> <font color=#bbaaff>0</font><font color=#000000>;</font>
|
|
<font color=#537324>WHILE</font> <font color=#2341ff>b</font> <font color=#00ff00>></font> <font color=#bbaaff>0</font> <font color=#537324>DO</font> <font color=#734699>BEGIN</font>
|
|
<font color=#9F2323>IF</font> <font color=#f020f0>ODD</font> <font color=#2341ff>b</font> <font color=#9F2323>THEN</font> <font color=#2341ff>z</font> <font color=#ff0000>:=</font> <font color=#2341ff>z</font> <font color=#00ff00>+</font> <font color=#2341ff>a</font><font color=#000000>;</font>
|
|
<font color=#2341ff>a</font> <font color=#ff0000>:=</font> <font color=#bbaaff>2</font> <font color=#00ff00>*</font> <font color=#2341ff>a</font><font color=#000000>;</font>
|
|
<font color=#2341ff>b</font> <font color=#ff0000>:=</font> <font color=#2341ff>b</font> <font color=#00ff00>/</font> <font color=#bbaaff>2</font>
|
|
<font color=#2341ff>END</font>
|
|
<font color=#2341ff>END</font><font color=#000000>;</font>
|
|
|
|
<font color=#502050>PROCEDURE</font> <font color=#2341ff>divide</font><font color=#000000>;</font>
|
|
<font color=#505450>VAR</font> <font color=#2341ff>w</font><font color=#000000>;</font>
|
|
<font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>r</font> <font color=#ff0000>:=</font> <font color=#2341ff>x</font><font color=#000000>;</font>
|
|
<font color=#2341ff>q</font> <font color=#ff0000>:=</font> <font color=#bbaaff>0</font><font color=#000000>;</font>
|
|
<font color=#2341ff>w</font> <font color=#ff0000>:=</font> <font color=#2341ff>y</font><font color=#000000>;</font>
|
|
<font color=#537324>WHILE</font> <font color=#2341ff>w</font> <font color=#00ff00><=</font> <font color=#2341ff>r</font> <font color=#537324>DO</font> <font color=#2341ff>w</font> <font color=#ff0000>:=</font> <font color=#bbaaff>2</font> <font color=#00ff00>*</font> <font color=#2341ff>w</font><font color=#000000>;</font>
|
|
<font color=#537324>WHILE</font> <font color=#2341ff>w</font> <font color=#00ff00>></font> <font color=#2341ff>y</font> <font color=#537324>DO</font> <font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>q</font> <font color=#ff0000>:=</font> <font color=#bbaaff>2</font> <font color=#00ff00>*</font> <font color=#2341ff>q</font><font color=#000000>;</font>
|
|
<font color=#2341ff>w</font> <font color=#ff0000>:=</font> <font color=#2341ff>w</font> <font color=#00ff00>/</font> <font color=#bbaaff>2</font><font color=#000000>;</font>
|
|
<font color=#9F2323>IF</font> <font color=#2341ff>w</font> <font color=#00ff00><=</font> <font color=#2341ff>r</font> <font color=#9F2323>THEN</font> <font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>r</font> <font color=#ff0000>:=</font> <font color=#2341ff>r</font> <font color=#00ff00>-</font> <font color=#2341ff>w</font><font color=#000000>;</font>
|
|
<font color=#2341ff>q</font> <font color=#ff0000>:=</font> <font color=#2341ff>q</font> <font color=#00ff00>+</font> <font color=#bbaaff>1</font>
|
|
<font color=#2341ff>END</font>
|
|
<font color=#2341ff>END</font>
|
|
<font color=#2341ff>END</font><font color=#000000>;</font>
|
|
|
|
<font color=#502050>PROCEDURE</font> <font color=#2341ff>gcd</font><font color=#000000>;</font>
|
|
<font color=#505450>VAR</font> <font color=#2341ff>f</font><font color=#000000>,</font> <font color=#2341ff>g</font><font color=#000000>;</font>
|
|
<font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>f</font> <font color=#ff0000>:=</font> <font color=#2341ff>x</font><font color=#000000>;</font>
|
|
<font color=#2341ff>g</font> <font color=#ff0000>:=</font> <font color=#2341ff>y</font><font color=#000000>;</font>
|
|
<font color=#537324>WHILE</font> <font color=#2341ff>f</font> <font color=#2341ff>g</font> <font color=#537324>DO</font> <font color=#734699>BEGIN</font>
|
|
<font color=#9F2323>IF</font> <font color=#2341ff>f</font> <font color=#00ff00><</font> <font color=#2341ff>g</font> <font color=#9F2323>THEN</font> <font color=#2341ff>g</font> <font color=#ff0000>:=</font> <font color=#2341ff>g</font> <font color=#00ff00>-</font> <font color=#2341ff>f</font><font color=#000000>;</font>
|
|
<font color=#9F2323>IF</font> <font color=#2341ff>g</font> <font color=#00ff00><</font> <font color=#2341ff>f</font> <font color=#9F2323>THEN</font> <font color=#2341ff>f</font> <font color=#ff0000>:=</font> <font color=#2341ff>f</font> <font color=#00ff00>-</font> <font color=#2341ff>g</font>
|
|
<font color=#2341ff>END</font><font color=#000000>;</font>
|
|
<font color=#2341ff>z</font> <font color=#ff0000>:=</font> <font color=#2341ff>f</font>
|
|
<font color=#2341ff>END</font><font color=#000000>;</font>
|
|
|
|
<font color=#734699>BEGIN</font>
|
|
<font color=#2341ff>x</font> <font color=#ff0000>:=</font> <font color=#2341ff>m</font><font color=#000000>;</font>
|
|
<font color=#2341ff>y</font> <font color=#ff0000>:=</font> <font color=#2341ff>n</font><font color=#000000>;</font>
|
|
<font color=#2341ff>CALL</font> <font color=#2341ff>multiply</font><font color=#000000>;</font>
|
|
<font color=#2341ff>x</font> <font color=#ff0000>:=</font> <font color=#bbaaff>25</font><font color=#000000>;</font>
|
|
<font color=#2341ff>y</font> <font color=#ff0000>:=</font> <font color=#bbaaff>3</font><font color=#000000>;</font>
|
|
<font color=#2341ff>CALL</font> <font color=#2341ff>divide</font><font color=#000000>;</font>
|
|
<font color=#2341ff>x</font> <font color=#ff0000>:=</font> <font color=#bbaaff>84</font><font color=#000000>;</font>
|
|
<font color=#2341ff>y</font> <font color=#ff0000>:=</font> <font color=#bbaaff>36</font><font color=#000000>;</font>
|
|
<font color=#2341ff>CALL</font> <font color=#2341ff>gcd</font>
|
|
<font color=#2341ff>END</font><font color=#000000>.</font><font color=#40a430>CONST</font>
|
|
<font color=#2341ff>m</font> <font color=#00ff00>=</font> <font color=#bbaaff>7</font><font color=#000000>,</font>
|
|
<font color=#2341ff>n</font> <font color=#00ff00>=</font> <font color=#bbaaff>85</font><font color=#000000>;</font><font color=#000000></font></pre</body><footer><div class="Footer"><b>Copyright - 2013</b></div></footer></html> |