Algoritmia - Enésimo número de la sucesión 1,1,2,3,5,8,13,21...

   
Vista:

Enésimo número de la sucesión 1,1,2,3,5,8,13,21...

Publicado por Mahuencho (1 intervención) el 21/06/2016 05:56:33
Programa en Pascal que busque el enésimo número de la sucesión 1,1,2,3,5,8,13,21...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Enésimo número de la sucesión 1,1,2,3,5,8,13,21...

Publicado por dario (49 intervenciones) el 22/06/2016 05:53:08
Te dejo esta solucion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
    a,b,c,i,n:longint;
begin
    clrscr;
    i:=3;
    a:=1;
    b:=1;
    write('Ingrese numero limite (<=45): ');
    readln(n);
    write(a,' ',b);
    while i<=n do
    begin
        c:=a+b;
        write(' ',c);
        b:=a;
        a:=c;
        inc(i);
    end;
    readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Enésimo número de la sucesión 1,1,2,3,5,8,13,21...

Publicado por viviana (1 intervención) el 23/06/2016 18:10:37
esta serie es conocida como la serie de Fibonacci la que se saca la secuencia sumando el ultimo con el penúltimo la serie comienza en 0,1,1,2,3,5,8,13,21..........
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program;
uses crt;
var
n,contador:integer;
a,b,c:longint;
begin
repeat
clrscr;
writeln ('introduzca la posicion de la serie de fibonacci');
readln (n);
if (n>10) then
begin
writeln;
writeln ('tiene que ser un numero menor a 10');
readln;
end;
until (n<=10);
if (n=3) or (n=6) or (n=9) then
begin
writeln ('ERROR, numero par');
end
else
begin
contador:=1;
a:=0;
b:=1;
c:=0;
while (contador<=n) do
begin
a:=b;
b:=c;
c:=a+b;
contador:=contador+1;
end;
writeln ('el numero correspondiente a esa posicion es el ',c);
end;
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar