Порядок выполнения работы:

1. Запустите программу Turbo Pascal.

2. Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над обык­новенными дробями вида P/Q (Р — целое, Q — натуральное):

1. сложение; 2) вычитание; 3) умножение; 4) деление; 5) сокращение дроби;

5) возведение дроби в степень TV (7V — натуральное);

6) функции, реализующие операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше).

Дробь представить следующим типом: Type Frac=Record

Р: Integer;

Q: 1..32767; End;

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

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

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

Откомпилируйте программу. Проверьте правильность решения задачи.

3. Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над векторами:

1. сложения;

2. вычитания;

3. скалярного умножения векторов;

4. умножения вектора на число;

5. нахождения длины вектора.

Вектор представить следующим типом:

Type Vektor=Record

X, Y: Real;

End;

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

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

Откомпилируйте программу. Проверьте правильность решения задачи.

4. Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

4. Выйдите из программы Turbo Pascal.