source:
liacs/coco/tests/varia/expressions.p0@
62
Last change on this file since 62 was 2, checked in by , 15 years ago | |
---|---|
File size: 196 bytes |
Line | |
---|---|
1 | program unarplus; |
2 | |
3 | var a,b,c,d,e :integer; |
4 | var f,g,h,i,j :real; |
5 | |
6 | begin |
7 | a := a - (- a); |
8 | e := c or b; |
9 | |
10 | f := g*h; |
11 | i := a div b; { div on reals } |
12 | f := b/c { no type problem: coercion } |
13 | end. |
Note:
See TracBrowser
for help on using the repository browser.