20
PrintBuoyTemparatureMessage()
(^) 12-3
,
PrintBuoyTemperatureMessage()
,
, Pascal , :
var
FiledTypes = ( FloatingPoint, Integer, CharString,
TimeOfDay, SingleFlag, BitField );
( )
20 ( )
Pascal :
Message[Type1].NumFields := 5
Message[Type1].MessageName := ′Buoy Temperature Message′
Message[Type1].FieldType[1] := FloatingPoint
Message[Type1].FieldLabel[l] := ′Average Temperature′
Message[Type1].FieldType[2] := FloatingPoint