Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Procedure Sokr(Var A : Frac);

Procedure Summa(A, B : Frac; Var C : Frac);

Procedure Raznost(A, B : Frac; Var C : Frac);

Procedure Proizvedenie(A, B : Frac; Var C : Frac);

Procedure Chastnoe(A, B : Frac; Var C : Frac);

Procedure Stepen(A : Frac; N : Natur; Var C : Frac);

Function Menshe(A, B : Frac) : Boolean;

Function Bolshe(A, B : Frac) : Boolean;

Function Ravno(A, B : Frac) : Boolean;

Function MensheRavno(A, B : Frac) : Boolean;

Function BolsheRavno(A, B : Frac) : Boolean;

Function NeRavno(A, B : Frac) : Boolean;

{Раздел реализации модуля}

Implementation

{Наибольший общий делитель двух чисел - вспомогательная функция, ранее не объявленная}

Function NodEvklid(A, B : Natur) : Natur;

Begin

  While A B Do

B Then

       If A Mod B 0 Then A := A Mod B Else A := B

      Else

       If B Mod A 0 Then B := B Mod A Else B := A;

    NodEvklid := A

End;

Procedure Sokr; {Сокращение дроби}

Рекомендуем скачать другие рефераты по теме: антикризисное управление предприятием, шпори на телефон.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата