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

Procedure Chastnoe;

Begin

   {Знаменатель дроби}  C.Q := A.Q * B.P;

   {Числитель дроби}      C.P := A.P * B.Q;

   Sokr(C)

End;

Procedure Stepen; {Степень}

Var I : Natur;

Begin

    C.Q := 1; C.P := 1; Sokr(A);

    For I := 1 To N Do Proizvedenie(A, C, C)

End;

Function Menshe;

Begin Menshe := A.P * B.Q < A.Q * B.P End;

Function Bolshe;

Begin  Bolshe := A.P * B.Q > A.Q * B.P End;

Function Ravno;

Begin Ravno := A.P * B.Q = A.Q * B.P End;

Function BolsheRavno;

Begin BolsheRavno := Bolshe(A, B) Or Ravno(A, B) End;

Function MensheRavno;

Begin MensheRavno := Menshe(A, B) Or Ravno(A, B) End;

Function NeRavno;

Begin  NeRavno := Not Ravno(A, B) End;

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

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





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