Лабораторная: Pascal — файлы, рекурсия и односвязные списки

Лабораторная работа № 3. «Программирование» (Вариант 10)
Задание (общее):
Лабораторная работа № 3 состоит из двух задач. Первая задача посвящена созданию программ, отражающих приемы работы с файлами. Необходимо в начале программы создать файл (элементы файла вводятся с клавиатуры или генерируются случайным образом), а в конце программы сначала вывести на экран содержимое созданного файла, а затем отразить полученные результаты. Во второй задаче необходимо составить программу, реализующую рекурсивный алгоритм.
Задача №1
Type fr = file of real;
Описать функцию s3(f), значением которой является сумма последних трех элементов файла f, имеющего тип fr и содержащего не менее 3 элементов.
Указание: введите файл f (последний элемент = 0) и вычислите функцию s3(f).
Требования к оформлению отчета:
1.1 Описание алгоритма решения задачи.
1.2 Описание используемых переменных и обоснование выбора типа для всех переменных.
1.3 Блок-схема алгоритма.
1.4 Тестирование программы.
Задача №2
type
reals = file of real;
var f : reals;
Опишите рекурсивную функцию sum (n) для нахождения суммы:
$sum_{i = 1}^{}{(albrack irbrack)}^{n}$, где aii — элемент файла f.
Указание. Пусть функция f(k) вычисляет сумму a11^n^+a22^n^+...+akk^n^ .
Нам надо вычислить f(n).
Определим f(k) рекурсивно:

1. если k=1, то f(k)=a11^n^ ;
2. если k>1, то значение функции равно сумме akk^n^ и f(k--1)

Требования к оформлению отчета:
2.1 Описание алгоритма решения задачи.
2.2 Описание используемых переменных и обоснование выбора типа для всех переменных.
2.3 Блок-схема алгоритма.
2.4 Тестирование программы.


Показать/скрыть дополнительное описание