Создание библиотек подпрограмм в Turbo Pascal
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Янчевский.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата
If A.P <> 0 Then
Begin
If A.P < 0 Then M := Abs(A.P)
Else M := A.P; {Совмещение типов, т.к. A.P - LongInt}
N := NodEvklid(M, A.Q); A.P := A.P Div N; A.Q := A.Q Div N
End
End;
Procedure Summa; {Сумма дробей}
Begin
{Знаменатель дроби} C.Q := (A.Q * B.Q) Div NodEvklid(A.Q, B.Q);
{Числитель дроби} C.P := A.P * C.Q Div A.Q + B.P * C.Q Div B.Q;
Sokr(C)
End;
Procedure Raznost; {Разность дробей}
Begin
{Знаменатель дроби} C.Q := (A.Q * B.Q) Div NodEvklid(A.Q, B.Q);
{Числитель дроби} C.P := A.P * C.Q Div A.Q - B.P * C.Q Div B.Q;
Sokr(C)
End;
Procedure Proizvedenie;
Begin
{Знаменатель дроби} C.Q := A.Q * B.Q;
{Числитель дроби} C.P := A.P * B.P;
Sokr(C)
End;
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата
Главная