Справочное руководство по языку Ада-83


Тела пакетов - часть 2


-- приведение Х и Y к общему знаменателю; end;

function EQUAL(X,Y : RATIONAL) return BOOLEAN is

U,V : RATIONAL; begin

U := X; V := Y; SAME-DENOMINATOR (U,V); return ENUMERATOR = V.NUMERATOR; end EQUAL;

function "/" (X,Y : INTEGER) return RATIONAL is begin

if Y > 0 then

return (NUMERATOR => X, DENOMINATOR => Y); else

return (NUMERATOR => -X, DENOMINATOR => -Y); end if;

end"/";

function "+" (X,Y RATIONAL) return RATIONAL is ... end "+"; function "-" (X,Y RATIONAL) return RATIONAL is ... end "-"; function "*" (X,Y RATIONAL) return RATIONAL is ... end "*"; function "/" (X,Y RATIONAL) return RATIONAL is ... end "/";

end RATIONAL_NUMBERS;

Ссылки:

видимый раздел 7.2, имя 4.1, исключение 11, исключение PROGRAM-ERROR 11.1, ДЮЗ обработчик исключения 11.1, описание 3.1, переменная 3.2.1, подпрограмма б, последовательность операторов 5.1, Предвыполнение 3.1, 3.9, .программный модуль 6, раздел описаний 3.9, спецификация пакета 7.1.

Пред. 

Уровень выше  След.

7.2. СПЕЦИФИКАЦИИ И ОПИСАНИЯ ПАКЕТОВ

 

Начало  

7.4. ОПИСАНИЯ ЛИЧНЫХ ТИПОВ И СУБКОНСТАНТ




Начало  Назад  Вперед



Книжный магазин