Создание библиотек подпрограмм в Turbo Pascal
Категория реферата: Рефераты по информатике, программированию
Теги реферата: тесты, диплом
Добавил(а) на сайт: Янчевский.
Предыдущая страница реферата | 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 | Следующая страница реферата