Free Pascal задание по ПРОЦЕДУРОАМ!!

[Vika_0_0]

A(1)=1, A(2)= 1, A(3)=2, ... , A(2n)=n, A(2n+1)=A(n)+A(n+1).

ВЫЧИСЛИТЬ n-ЫЙ ЧЛЕН ПОСЛЕДОВАТЕЛЬНОСТИ!!!



в скобках указан номер члена в последовательности

[whatever]

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

a_1=1, a_2= 1, a_3=2, ... , a_2n=n, a_2n+1=a_n+a_n+1.

ВЫЧИСЛИТЬ n-ЫЙ ЧЛЕН ПОСЛЕДОВАТЕЛЬНОСТИ!!!

Ты бы хоть скобки расставила чтоли... Я рискну предположить, что "каждый следующий элемент равен сумме двух предыдущих". Если так, то вбивай в поиск "Числа Фибоначчи", решалось неоднократно.

Update:нет, что то не вяжется

a_2n=n, a_2n+1=a_n+a_n+1.

не Фибоначчи это... Так вообще не бывает:

a_12=a_(11+1)=a_5,5 + a_6,5

Пререпиши формулу нормально.

[Vika_0_0]

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

Ты бы хоть скобки расставила чтоли... Я рискну предположить, что "каждый следующий элемент равен сумме двух предыдущих". Если так, то вбивай в поиск "Числа Фибоначчи", решалось неоднократно.

Update:нет, что то не вяжется

не Фибоначчи это... Так вообще не бывает:

Пререпиши формулу нормально.

теперь сойдет?

[Stilet]

var a:array[1..100] of integer;
 procedure _in; var n:integer;  begin for n:=1 to 100 do a[2*n+1]:=a[n]+a[n+1]; end;
 procedure _out; var n:integer; begin for n:=1 to 100 do write(a[n]:5);         end;
begin a[1]:=1;a[2]:=1; _in; _out; readln; end.

Пойдет?

[TinMan]

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

Пойдет?

Боюсь, что нет..
Виталик, у тебя, прежде всего, очевидный (запланированный) выход за границы массива. У тебя массив до 100, и ты делаешь цикл до 100, обращаясь к элементам 2*i+1. Но, даже если от этого абстрагироваться, я все равно совсем не понимаю, что ты хотел этим сказать..

Вика, извини за трездеж, но я последний раз отвечаю в тему, где на меня ОРУТ (на всякий случай: CapsLock отключается повторным нажатием), при этом ни сказав ни одного вежливого слова (обратись за обучением вежливости к маме, это на другом форуме..). ЯСНО ТЕБЕ??

В условии я усматриваю явный намек на рекурсию. И хотя задача не стоит выеденного яйца и реально сводится к одной строчке:

  writeln((n+1) div 2);

- я все-таки приведу рекурсивное решение. Оно использует, правда, не процедуру, а функцию, но я не вижу между этими понятий никаких принципиальных различий. Короче, enjoy yourself..

function Ai(n: integer): integer;
begin
  if n=1 then Ai:= 1
  else if Odd(n) then
    Ai:= Ai(n div 2) + Ai(n div 2+1)
  else
    Ai:= n div 2
end;

var
  i: integer;

begin
  readln(i);
  write(Ai(i));
  readln
end.

Если будут вопросы - пожалуйста, спрашивай, я буду рад ответить.
Успехов тебе.

[Stilet]

очевидный (запланированный) выход за границы массива

Ага, согласен, как-то не подумал.
Ну парочка IF в циклах исправят это положение )