Паскаль. Рекурсия

[Sergik1977]

Задача у меня не зачтена, здесь требуется использовать рекурсивную функцию, которая в своем теле вызывает сама себя. Надо рекурсией заменить цикл. А то сын родился времени нет читать что такое рекурсия итд.

[{Контрольная работа №3
Вариант №9 Задача №3
Дан массив a: array[1..n] of integer; Напишите рекурсивную программу для вычисления суммы
сумма i=1 до n. 1/a[i]}

const n=50;
var F2, F1, z, s: real;
k,w,i: integer;
a: array[1..n] of integer;
begin
{формируем маcсив}
Writeln('Vvedite razmer massiva):');
Readln(w);
Writeln('Vvedite massiv');
for i:= 1 to w do
begin
Write('Massiv[', i, '] : ');
Readln(a[i]);
end;
z:=0;
for i:= 1 to w do  begin
F1:=1/(a[i]+z);
z:=z+a[i];
F2:=F2+F1;
Writeln('massiv',F2);
end;
readln;
end.

[bill]

Во первых, лучше обьявлять раздел const до раздела var.
1. Рекурсивным вызовом называется ситуация, когда подпрограмма (процедура или функция) вызывает сама себя.
2.При вызове любой (в том числе и рекурсивной) процедуры или функции происходит следующее:
1.Сохраняется адрес возврата, то есть команда, с которой продолжится выполнение программы после того, как процедура или функция закончит работать.
2.Вместе с адресом сохраняются значения всех параметров и локальных переменных.
После окончания работы подпрограммы выполнение продолжается со строки, следующей за ее вызовом.
Теперь еще одна тонкость. Просто так передавать массив в качестве параметра функции нельзя, т.к. программа считает, что это разные типы. Поэтому необходимо обьявить в разделе type уникальный тип, который можно будет передавать нашей функции. Вот код:

program sd;
uses crt;
const n=50;
type df=array[1..n] of integer;
var
k,w,i: integer;
a: df;
function summ (var f:df;w:integer;k:integer):real;
var s:real;
begin
if (k+1)<=w then begin k:=k+1;
result:=1/f[k]+summ(f,w,k);
end;
end;
begin
Writeln('Vvedite razmer massiva):');
Readln(w);
Writeln('Vvedite massiv');
for i:= 1 to w do
begin
Write('Massiv[', i, '] : ');
Readln(a[i]);
end;
Writeln('massiv ',summ(a,w,0));
readln;
end.

[_Dmitry]

Этот пример с контролем от переполнения стека

uses crt;
const
  n = 50;
var
  a: array[1..n] of integer;
  i: integer;

function summa(n: integer): real;
  var
    S: real;
  begin
    if n = 0 then
      summa:=0
    else
      begin
        S:=summa(n-1);
        summa:=S+1/a[n];
      end;
  end;

begin
  randomize;
  for i:=1 to n do a[i]:=1+random(100);
  clrscr;
  writeln('n = ',n);
  write('Massiv [1..n]:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('Summa 1/a[i] =',summa(n));
  readln;
end.

И, насколько я помню, в паскале нет result

[Sergik1977]

Господа ваши программы работают неправильно Bill что это за команда Result? Мой Паскаль ее не воспринимает!

[_Dmitry]

Что значит неправильно? Считает то, что записано в условии

[_Dmitry]

Судя по вашему алгоритму считать нужно это

uses crt;
const
  n = 50;
var
  i: integer;
  a: array[1..n] of integer;

function summa(n: integer): real;
  var
    S,C: real;
  begin
    if n = 0 then
      begin
        summa:=0;
      end
    else
      begin
        S:=summa(n-1);
        C:=0;
        for i:=1 to n do
          C:=C+a[i];
        summa:=S+1/C;
      end;
  end;

begin
  randomize;
  for i:=1 to n do a[i]:=1+random(100); 
  clrscr;
  writeln('n = ',n);
  write('Massiv [1..n]:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('Summa 1/a[i] =',summa(n));
  readln;
end.

[Sergik1977]

Дмитрий ты сделал не через рекурсию, цикла не должно быть!
У тебя сделано тоже самое что у меня но через функцию.

[Stilet]

Дмитрий ты сделал не через рекурсию, цикла не должно
быть!

Неверно, он сделал рекурсией, но судя по твоей задаче тебе нуна что-то вроде этого:

var a:array[1..10] of integer;v,i:integer;
function s(r:integer):integer;
begin
 inc(i);
 if i<=10 then begin
  v:=v+r;
  s:=s(a[i]);
 end;
end;

begin
{Здесь мы набиваем массив, надеюсь сам это сделаешь}
writeln;
v:=1;      
 i:=1;
 s(a[i]);
 write(v);
end.

(...Это на вскидку код, посему помидорами не бросать, и возможные баги подтереть...)

[bill]

Я свой код в компиляторе проверял- работает. Вам надо заменить result на название функции- summ. Все будет работать!