Sucessão por recorrência

[Super.D]

Bom imaginando o seguinte:

[1ª Figura]
1

[2ª Figura]
3

[3ª Figura]
6

[4ª Figura]
10

[5ª Figura]
15

...
-> pontos.

Sucessão por recorrência define-se em: Para definir o termo de ordem n de uma sucessão se recorre à relação com termos anteriores à sua ordem de sequência.

Vamos imaginar que queríamos calcular quantos pontos tinha a 6ª figura, então: Tn = n + Tn-1.

Para a sexta figura Tn-1 é o termo anterior ao termo n. n = 6, então Tn-1 = 15.

Tn = n + Tn-1 <=> 6 + 15 <=> Tn = 21 -> T6 = 21.

Porque não fazer de uma forma mais simplificada?

program sequencia;
uses crt;
var
  tn, n, tnm1 : integer;

begin
 repeat
	   writeln('Calculo de sucessão por recorrencia...');
	   writeln('Digite a ordem n');
	   readln(n);
	   writeln('Digite o termo anterior (tn-1), ou seja, o termo anterior ao termo de ordem n');
	   readln(tnm1);
	   tn := n + tnm1;
	   writeln('O termo seguinte e: ', tn);
	   readkey;
 until (n >= 1);
end.

Para o primeiro programa em pascal não está nada mau 🙂

Edited July 10, 2013 at 03:53 PM by Super.D

[thoga31]

A sequência não deve começar em 1? É que esse programa não é mais do que uma forma pomposa de fazer "A+B". Pedes N e pedes TNM1, e soma-los. Como sabe o utilizador o elemento TNM1? Inventa um nº qualquer...

Aqui o verdadeiro desafio seria começar a sequência em 1 e obter o nº elemento.