source:
liacs/coco/tests/varia/expressions.p0@
7
| Last change on this file since 7 was 2, checked in by , 15 years ago | |
|---|---|
| File size: 196 bytes | |
| Rev | Line | |
|---|---|---|
| [2] | 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.
