Mercurial > lcfOS

comparison python/tests/testproject/test.mod @ 63:32078200cdd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Several move action
author windel
date Sun, 07 Oct 2012 17:04:10 +0200
parents python/ide/testproject/test.mod@fd7d5069734e
children
comparison
equal deleted inserted replaced
62:fd7d5069734e 63:32078200cdd6
1 module test;
2 var
3 a,b,c : integer;
4
5 procedure test(x:integer);
6 var y,z:integer;
7 begin
8 y := x * 3 + 2;
9 z := x + y + a;
10 end test;
11
12 procedure add(a:integer; b:integer):integer;
13 var
14 tmp : integer;
15 begin
16 tmp := a + b;
17 return tmp
18 end add;
19
20 begin
21 a := 12;
22 b := a * 12 + 33;
23 c := a div b + a * b * 99;
24 end test.
25