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

[nadea]

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

[nadea]

ак как рекурсию составить,не подскажете

[nadea]

function sum : longint;
var c:integer;
sm:longint;
begin
c := 0; sm := 0;
while (not eof(F)) and (c >= 0) do begin
readln(f, c);
if c >= 0 then sm := sm + c;
end;
sum := sm;
end;

// Это с рекурсией
function sum_R : longint;
var c:integer;
sm:longint;
begin
sm := 0;
if not eof(F) then begin
readln(f, c);
if c >= 0 then sm := c + sum_R;
end;
sum_R := sm;
end;

var h:longint;
begin
assign(f, 'file.txt');
reset(f);
h := sum;
close(f);
writeln('summa=',h);
end;

// Это с рекурсией
assign(f, 'file.txt');
reset(f);
h := sum_R;
close(f);
writeln('summa=',h);
end.
БЕЗ РЕКУРСИИ программа пашет,а с рекурсией-НЕТ.Подскажите,где может быть ошибка[u]

[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 21:01