Задача на текстовый фаил

[nadea11]

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

[alexBlack]

Вы хотя-бы начните. Сформируйте текстовый файл с данными, сделайте процедуру чтения, суммирования. Покажите, что не получается.


[off]
Вот интересно, чему может научить такое задание ? Как правильно применять рекурсию или где не применять.
[/off]

[Greblin]

Ну что-то такое

function Add: integer;
var i: integer;
begin
read(i);
if (i >= 0) then
  Add := Add + i
else
  Add := 0;
end;

begin
reset(input, 'in.txt');
writeln(Add);
end.

[Stilet]

Вот интересно, чему может научить такое задание ?

А ты думаеш что преподаватели сами понимают зачем это надо?

[Greblin]

Я вообще-то и так полный код написал, можешь ещё до кучи добавить в начало

program ProgName;
uses crt;

[nadea11]

Program P100;
uses crt;
var i:integer;
f:text;
c,h:longint;
function sum:longint;
begin
while not eof do
begin
readln(f,c);
if c>=0 then sum:=sum+c else
if c<0 then sum:=0;
end;
end;
begin
assign(f,'file.txt');
reset(f);
h:=sum;
close(f);
writeln('summa=',h);
end.
Написала сама(но не уверена)
Прошу специалистов прокомментировать и подсказать,если что-то не так :search

а вы не подскажете,как рекурсивную программу составить,а то мой пример рекурсией не является

[Stilet]

А ты поиском поработай - примеров на рекурсию тут куча.

[alexBlack]

Сообщение от nadea11

Написала сама(но не уверена)
Прошу специалистов прокомментировать и подсказать,если что-то не так :search
а вы не подскажете,как рекурсивную программу составить,а то мой пример рекурсией не является

Я понял, что нужно получить сумму чисел файла ДО первого отрицательного. Ваш пример вычисляет ЗА последним отрицательным.

var f:text;

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);
   readln;

   assign(f, 'file.txt');
   reset(f);
   h := sum_R;
   close(f);
   writeln('summa=',h);
   readln;
end.