Рекурсия: найти сумму чисел в файле

@demonns · Регистрация: 22.12.2011

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

Помогите решить плз пару задачек. Одна программа должна быть с рекурсией , вторая без.
Условие: В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.

@cdkrot · 28.12.2012, 13:02

как-то так:

Pascal

program p;
 
uses crt;
var
cur:LongInt=0;
sum: Cardinal=0;
 
 
begin
 
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
////////
while  sum >0 do begin
Inc(sum, cur);
read(cur);
end;            
writeln(sum);
 
close(input);
close(output);
END.

@demonns 0 / 0 / 1 Регистрация: 22.12.2011 Сообщений: 44
		1
	Рекурсия: найти сумму чисел в файле 25.12.2012, 23:01. Показов 1997. Ответов 1 Метки нет (Все метки) Помогите решить плз пару задачек. Одна программа должна быть с рекурсией , вторая без. Условие: В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел. 0

	28.12.2012, 13:02

Рекурсия: найти сумму чисел в файле

Решение