dougllascda

Bom pra você identificar qual linguagem é utilizada normalmente é só conhecendo a linguagem mais vou postar 2 códigos que fazem a mesma coisa em 2 linguagens diferentes pra você ter uma idéia...
 
A respeito da Sequência de Fibonacci que é um algoritmo simples que apenas gera numeros inteiros que são feitos apartir da somas dos seus 2 anteriores, então o resultado vai ser sempre o mesmo a partir da sequencia de {0,1,1,2,3,5,8,12} Sempre o numero da frente é o resultado dos seus 2 anteriores.
 
Então vamos aos códigos:
 
Esse exemplo é na linguagem C:
// Inclui o arquivo <"stdio.h"> // stdio.h é responsável pelas funções de entrada e saída. #include "stdio.h" // A função main() é obrigatória em todo programa C. void main() {   // Declaração de variáveis.   int a, b, auxiliar, i, n;   // Aqui foi necessário atribuir valores as variáveis a e b.   a = 0;   b = 1;   // A função printf() escreve na tela.   printf("Digite um número: ");   // A função scanf obtém um valor digitado.   scanf("%d", &n);   printf("Série de Fibonacci:\n");   printf("%d\n", b);   // Com a estrutura de controle for() gero a sequência.   for(i = 0; i < n; i++)   {     auxiliar = a + b;     a = b;     b = auxiliar;     // Imprimo o número na tela.     printf("%d\n", auxiliar);   } }  Esse aqui é um exemplo em Java aonde para utilizar em java Script basta apenas converter pra linguagem HTML e chamar com a tag da <função> </função>
public class fibonacci { public static void main(String[] args){ int n1 = 0; int n2 = 1; int resultado = n1 + n2; //Essa linha é só pra imprimir o ZERO inicial. System.out.println(n1); while(resultado <= 100){ System.out.println(resultado); n1 = n2; n2 = resultado; resultado = n1 + n2; } } } Agora aqui uma função recursiva feita em Delphi para fazer a mesma função:
// função recursiva para calcular o Fibonacci // de um determinado número function fibonacci(n: Integer): Integer; begin if n < 2 then Result := n else Result := fibonacci(n - 2) + fibonacci(n - 1); end; // vamos chamar a função recursiva para calcular // os 10 primeiros termos da sequencia de Fibonacci procedure TForm1.Button1Click(Sender: TObject); var i: Integer; res: String; begin res := ''; for i := 0 to 9 do begin res := res + IntToStr(fibonacci(i)) + ' '; end; ShowMessage(res); end;