HP SunSoft Pascal 4.0 Bedienungsanleitung PDF herunterladen (Seite 135)

100

101

The C–Pascal Interface 111

Pascal intset Type

The Pascal intset type is predeﬁned as set of [0..127]. A variable of

this type takes 16 bytes of storage.

The Pascal procedure,

IntSetVar.p, which has an

intset of the elements

[1, 3, 7, 8]

procedure IntSetVar(var s: intset);

begin

s := [1, 3, 7, 8]

end; { IntSetVar }

The C main program,

IntSetVarMain.c

#include <stdio.h>

extern void IntSetVar(unsigned int *);

int main(void)

{

int w ;

unsigned int *p, *s ;

s = (unsigned int *) malloc(16);

IntSetVar(s) ;

for (w = 0, p = s ; w < 4 ; w++, p++)

printf("%012o %3d \n", *p, w);

printf(" 110 001 010 (binary, word 4) \n");

printf(" 876 543 210 (bits, word 4)" \n");

}

The commands to compile and

execute IntSetVar.p and

IntSetVarMain.c. The

output of this example depends

on the architecture of your

machine.

hostname% pc -c IntSetVar.p

hostname% cc IntSetVar.o IntSetVarMain.c -lpc

hostname% a.out

000000000000 0

000000000000 1

000000000000 2

000000000612 3

110 001 010 (binary, word 4)

876 543 210 (bits, word 4)

1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 332 333

Kommentare zu diesen Handbüchern

Keine Kommentare

HP SunSoft Pascal 4.0 Bedienungsanleitung Seite 135

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Software HP SunSoft Pascal 4.0