Опишем еще одну функцию: возведение натурального числа в нату­ ральную степень (ап).

Function PowerCA, N Longlnt) Longlnt; {файл power.inc>

Var I, St Longlnt;

Begin

St := 1;

For I :■ 1 To N Do

St := St * A;

Power :■ St

End;

А теперь составим основную программу, решающую поставленную задачу. В ней будут использованы описанные выше функции.

Program Example1;

Мтitе('Введите натуральное число: О; ReadLn(N);

{для определения последней цифры числа N берется остаток от деления этого числа на 10, а для определения первой

цифры N делится на 10, возведенное в степень на единицу меньшую, чем количество цифр в записи числа Ст.х. нумерация разрядов начинается с 0)}

S := N Mod 10 + N Div PowerClO, Digits(N) - 1);

WriteLnC*Искомая сумма: », S)

End.

{$1 <зшя файла>} — это директива компилятора, позволяющая в данное место текста программы вставить содержимое файла с ука­ занным именем.

Файлы с расширением .inc можно накапливать на магнитном диске, формируя таким образом личную библиотеку подпрограмм.

Внешние процедуры создаются и внедряются в использующие их программы точно так же, как и функции в рассмотренном примере.

16,2. Создание и использование модулей

Далее речь пойдет о модулях: их структуре, разработке, компиляции и использовании.

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

Р

выполнения следующих операции над обыкновенными дробями вида -Q

(Р — целое, Q — натуральное):

1)сложение;

2)вычитание;

3)умножение;

4)деление;

5)сокращение дроби;

6)возведение дроби в степень N (N — натуральное);

7)функции, реализующие операции отношения (равно, не равно,

больше или равно, меньше или равно, больше, меньше). Дробь представить следующим типом:

Type Frac = Record

Р Integer;

Q 1..32767

End;

Используя этот модуль, решить задачи:

1. Дан массив А, элементы которого — обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое, ответы предста­ вить в виде несократимых дробей.

2. Дан массив А, элементы которого — обыкновенные дроби. От­ сортировать его в порядке возрастания.

Unit Droby;

Interface

Type

Natur = 1..High(Longlnt);

Frac = Record

PLonglnt;

QNatur

End;

Function NeRavnoCA, В Frac) Boolean;

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

Implementation

{Наибольший общий делитель двух чисел - вспомогательная функция, ранее не объявленная}