![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395119x1.png)
6
The Pascal procedure, SimVar.p
The C main program, SimVarMain.c
Simple Types without –xl
Without
procedure SimVar(
var t, f: boolean;
var c: char;
var si: integer16;
var i: integer;
var sr: shortreal;
var r: real); begin
t := true; f := false; c := 'z'; si := 9;
i := 9;
sr := 9.9; r := 9.9; end; { SimVar }
#include <stdio.h>
extern void SimVar(char *, char *, char *, short *, int *, float *, double *);
int main(void) |
|
{ |
|
char | t, f, c; |
short | si; |
int | i; |
float | sr; |
double | r; |
SimVar(&t, &f, &c, &si, &i, &sr, &r); printf(" %08o %08o %c %d %d %3.1f %3.1f \n",
t, f, c, si, i, sr, r);
}
The | 95 |