Опишите рекурсивную функцию number без параметров для определения количества элементов файл f

@keniseg · Регистрация: 21.12.2014

Author24 — интернет-сервис помощи студентам

Pascal

1
2
3

type
reals = file of real;
var f:reals;

опишите рекурсивную функцию number без параметров для определения количества элементов файл f.

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

@volvo · 21.12.2014, 17:04

Так и посчитать:

Pascal

type
   reals = file of real;
   var f:reals;
 
function number : integer;
var value : real;
begin
  if eof(f) then result := 0
  else 
  begin
    read(f, value);
    result := 1 + number;
  end;
end;
 
// ...

@keniseg · 21.12.2014, 18:03 **[ТС]**

спасибо, почти понял, но только ошибка. К чему value относиться? Пишет что ему присваивается значение но оно нигде не используется

@volvo · 21.12.2014, 19:19

Главное - что оно из файла читается. Это не ошибка, а предупреждение.

@keniseg · 21.12.2014, 20:23 **[ТС]**

Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека.
бесконечное зацикливание получается

@keniseg 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 5
	21.12.2014, 18:03 [ТС]	3
	спасибо, почти понял, но только ошибка. К чему value относиться? Пишет что ему присваивается значение но оно нигде не используется 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	21.12.2014, 19:19	4
	Главное - что оно из файла читается. Это не ошибка, а предупреждение. 0

@keniseg 0 / 0 / 0 Регистрация: 21.12.2014 Сообщений: 5
	21.12.2014, 20:23 [ТС]	5
	Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека. бесконечное зацикливание получается 0