Преобразование типов

Преобразование элементарных типов возможно через несколько встроенных функций:

FLOOR(x)  REAL                 INTEGER          округлить до меньшего
FLT(x)    INTEGER              REAL             тождественно
ORD(x)    CHAR, BOOLEAN, SET   INTEGER          порядковый номер x
CHR(x)    INTEGER              CHAR             литера с порядковым номером x

(ПРИвести примеры)

либо через системный механизм преобразования типов SYSTEM.VAL после импорта модуля SYSTEM

MODULE ExamplesSystemVal;

	IMPORT SYSTEM;

	VAR i: INTEGER; s: SET;

BEGIN

	i := SYSTEM.VAL(INTEGER, s)

END ExamplesSystemVal.

Комбинации преобразований позволяют решить почти любую задачу. Например, узнать битовую карту литеры:

MODULE ExamplesCharBits;

	IMPORT SYSTEM;

	VAR char: CHAR; bits: SET;

BEGIN

	bits := SYSTEM.VAL(SET, ORD(char));

END ExamplesCharBits.