![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395182x1.png)
7
Simple Types
Simple types match with value parameters. See the following example:
The C++ function, SimVal.cc | extern "C" void SimVal( |
|
| |
| char | t, |
|
|
| char | f, |
|
|
| char | c, |
|
|
| short | si, |
|
|
| int | i, |
|
|
| float | sr, |
|
|
| double | r, |
|
|
| int& | Reply) |
|
|
| { |
|
|
|
| Reply = 0; |
|
| |
| if (t) |
| Reply += | 01; |
| if (! f) | Reply += | 010; | |
| if (c == 'z') | Reply += | 0100; | |
| if (si | == 9) | Reply += | 01000; |
| if (i == 9) | Reply += | 010000; | |
| if (sr | == (float)9.9) Reply += | 0100000; | |
| if (r == 9.9) | Reply += 01000000; | ||
| } |
|
|
|
|
|
|
|
|
158 | Pascal 4.0 User’s Guide |