HP SunSoft Pascal 4.0 Type shortreal, Input and Output

Type shortreal

The Pascal function,

RetShortReal.p

The C++ main program,

RetShortRealMain.cc

function RetShortReal (r: shortreal): shortreal;

begin

RetShortReal := r + 1.0 end;

#include <stdio.h> #include <math.h>

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 -lpchostname% a.out

3.000000

	Input and Output
The Pascal function, IO.p
The Pascal function, IO.p	procedure IO;
	begin
	writeln ('Hello, Pascal & St.Petersburg !');
	end;

154	Pascal 4.0 User’s Guide