source:
liacs/coco/tests/varia/expressions.p0@
256
| Last change on this file since 256 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.
