代码大全

Type

EmployeeName_t = arrayy[1..3] of char;

Const

Namelenght_c = 30

Type

EmployeeName_t = array[1..NameLength_c] of Char

C Coordinate_t
float double C Pascal

Coordinate_t C Pascal
Ada C++ Ada
Coordinate_t
package Transformation is
type Coordinate_t is private; coordinate_t

Coordinate_t

with Transformation:

...

procedure Routine1

latitude: Coordinate_t;

longitude: Coordinate_t;

begin

-- statements using latitude and longitude

...

end Routine1;

Coordinate_t Transformation
Coordinate_t
Coordinate_t