Пример представления на языке EXPRESS:
*)
ГОСТ Р МЭК 61360-2—2013
FUNCTION string_for_SI_unit(unit: si_unit):STRING;
LOCAL
prefix_string, unit_string: STRING;
END LOCAL;
END IF;
•E’
•
.p.
«pi
’G*
’M*
’k’
’h’
’da
’d’
’c’
’m’
*u’
•n*
•p*
•f•
•a*
(unit.prefix) THEN
E unit.prefix OF
exa:prefix_string
peta: prefix_string
tera: prefix_atring
giga:prefix_3tring
mega: prefix_st.ring
kilo:prefix_string
hecto: prefix_string
deca:prefix_string
deci:prefix_string
centi:prefix_atring
milli:prefix_string
micro:prefix_string
nano:prefix_string
pico:prefix_string
femto:prefix_string
atto:prelix_string
_CASE;
ELSE
fix_string
•
t.
1
CASE unit.name OF
metre:unit_string:
„
m’;
:-
•g’;
:- ’s’;
gram
second
ampere
kelvin
mole
candela
radian
steradian
hertz
newton
pascal
:unit_string
:
unit_string
: unit_string
: unit_string
: unit_string
: unit_string
: unit_string
:
unit_strir.g
:
unit_strir.g
:unit_string
;unit_string
:-
•A’;
:- •K’;
:- ’mol’;
:- ’cd’;
:- ’rad’;
:- ’sr’;
’Hz
’ :
:- •N*;
’Pa’;
joule:unit_string
!-
’J*;
:- •W’;
:- ’C ’;
•V’;
’V..
watt
coulomb
volt
farad
ohm
siemens
weber
tesla
:unit_string
:
unit_strir.g
:unit_strir.g
; unit_3trir.g
: unit_strir.g
:
unit_string
: unit_string
: unit_string
:- •Ohm’;
’S’;
:- ’Wb’;
Iml,
a
t
81