HP SunSoft Pascal 4.0 - Manual (Page 178)

154 Pascal 4.0 User’s Guide
7
Type shortreal
Input and Output
The Pascal function,
RetShortReal.p
function RetShortReal (r: shortreal): shortreal;
begin
RetShortReal := r + 1.0
end;
The C++ main program,
RetShortRealMain.cc
#include
#include
extern "C" float RetShortReal (float);
int main(void)
{
float r, s;
r = 2.0;
s = RetShortReal(r);
printf (" %8.6f \n", s);
}
The commands to compile and
execute
RetShortReal.p
and RetRealMain.cc
hostname% pc -c RetShortReal.p
hostname% CC RetShortReal.o RetShortRealMain.cc -lpc
hostname% a.out
3.000000
The Pascal function, IO.p procedure IO;
begin
writeln ('Hello, Pascal & St.Petersburg !');
end;