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:=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;

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

Begin

End.

Теперь подключаем модуль к программе, в которой выполняем суммирование массива дробей:

Program Sum;

Uses Droby;

var A: array [1..100] of Frac;

I, N: integer;

S: Frac;

Begin

write (′Введите количество элементов массива:′);

readln (N);

S.P:=0; S.Q:=1; {Первоначально сумма равна нулю}

for I:=1 to N do{Вводим и суммируем дроби}

Begin

write (′Введите числитель′, I, ′-й дроби:′);

readln (A[I].P);

write (′Введите знаменатель′, I, ′-й дроби:′);

readln (A[I].Q);

Summa (A[I], S, S);

end;

write (′Ответ: ′, S.P, ′/′, S.Q)

End.

2. Проанализируйте работу программ

3. Запустите программы на выполнение и проверьте их работу:Ctrl-F9

4. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

5. Сохраните программу на своем диске:<F2> A:\P13PR1

3. Выполнить самостоятельно: