Рекуррентные зависимости

Begin

Begin

Обработка числовых последовательностей

Поиск максимального значения

program maximum;

var x: integer;

i, n, max: integer;

write (’введите количество элементов’);

read (n)

write (’первый элемент’)

readln (max); {первое число – кандидат на max}

for i=1 to n do

write(’введите ’, i:2, ’число’);

readln (x);

if x>max {если значение условия

True}

then max:=x; {то х – новый

кандидат на max}

end;

writeln (’максимальный элемент’, max)

end.

Разработать программу вычисления суммы для заданного x:

Найдем рекуррентное соотношение, чтобы вычислить значение следующего слагаемого, используя значения предыдущего:

Входные данные: х,

Выходные данные: у

program recurrent;

var x, , y: real;

i, n: integer;