Оптимизация программы

[Arigato]

Если a и k сделать глобальной, то немного сэкономим место в стеке.

[BDA]

Arigato, вы правы
Тогда уж можно и sum сделать глобальной, и оставить на стеке только адреса возврата (вроде бы)

[GoldSieg]

красиво.
Спасибо!

[Arigato]

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

Arigato, вы правы
Тогда уж можно и sum сделать глобальной, и оставить на стеке только адреса возврата (вроде бы)

Ну да, если в виде процедуры сделать.

[Step_UA]

оно не устраивает моего преподавателя...

возможно преподаватель подразумевал оптимизировать количество вызовов ... для вашего примера:

if k = 1 then Sum := x[1] else Sum := x[k] + Sum(k - 1, x)

для кода от BDA :

function Sum(k: integer): longint;
var
  a: integer;
begin
  a := Random(20);
  write(a, ' ');
  if k = 1 then  sum := a
    else Sum := a + Sum(k - 1);  
end;

[s-andriano]

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

а как можно сделать так чтоб функция не держала в памяти весь массив.?

Передать массив по ссылке, тогда будет передаваться его адрес.
Кстати, действительно существенная оптимиз0ация, т.к. в первой реализации из-за передачи массива фактическая сложность O(n^2) вместо O(n).

[Stilet]

Не пойму, зачем тут процедуры?
Это что капризы препода?

[s-andriano]

Еще более непонятно, зачем здесь рекурсия.
Но специфика учебных задач в том, что она должна быть сделана вполне определенным методом.