Задача на текстовый фаил(паскаль) Опции

[nadea]

ПОжалуйста,напишите полный текст проги:
Дан текстовый фаил натуральных чисел,за которыми следует целое отрицательное число.
Используя рекурсивную подпрограмму,вычислиье сумму натуральных чисел файла
Заранее спасибо=))

[volvo]

БЕЗ РЕКУРСИИ программа пашет,а с рекурсией-НЕТ

Что значит "нет"? Только что проверил, правильный ответ выдается, что еще нужно?

Хотя я бы переписал рекурсию вот так:

function sum_R : longint;
var
  c: integer;
begin
  if not eof(F) then readln(f, c);

  if c < 0 then sum_R := 0
  else sum_R := c + sum_R;

end;

(при условии, что файл не пустой)

Сообщение отредактировано: volvo - 10.05.2008 17:01