ФДО ТУСУР Программирование Лабораторная работа 3 Вариант 2 УМП Потаповой Е.А.

ФДО ТУСУР Программирование Лабораторная работа 3 Вариант 2 УМП Потаповой Е.А.

В готово работе, файл отчета, и 2 программы на Pascal'е.

Задача 1

type fr = file of real;

Описать процедуру predlast(f), значением которой является предпоследний элемент файла f, имеющего тип fr и содержащего не менее двух элементов. Указание: введите файл f (последний элемент = 0) и вычислите функцию predlast(f).

Задача 2

type reals = file of real;

var f : reals;

Опишите рекурсивную функцию sum без параметров для нахождения суммы элементов файла f.