Реализовать в виде модуля набор подпрограмм для выполнения операций над обыкновенными дробями

Type Frac=Record
P: Integer;
Q: 1..32767
End;

Unit Droby;
 
Interface
 
Type
 
Natur=l..High(Longint) ;
 
Frac=Record
 
Р: Longint;
 
Q: Natur
 
End;
 
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
 
If A>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;
 
Var M,N: Natur;
 
Begin
 
If A. P<>O
 
Then
 
Begin
 
If A.P<0
 
Then M:=Abs(A.P)
 
Else M:=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;
 
(Числитель дроби)
 
С.Р:=А.Р*В.Р;
 
Sokr(C)
 
End;
 
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:=l 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(А,В) Or Ravno(A,B)
 
End;
 
Function MensheRavno; {отношение '<=' между дробями)
 
Begin
 
MensheRavno:=Menshe(А,В) Or Ravno(A,B)
 
End;
 
Function NeRavno; {отношение '<>' между дробями)
 
Begin
 
NeRavno:=Not Ravno(A,B)
 
End;
 
{Раздел инициализации модуля)
 
Begin
 
End.