Версия для печати темы

Автор: nadea 28.04.2008 14:51

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

Автор: nadea 6.05.2008 19:49

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

Автор: nadea 10.05.2008 20:42

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 10.05.2008 21:00

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

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

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;

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