Exercício de algoritmo: Sequência de Fibonacci

Fala galera da programação, tudo beleza?

Agora vamos a programação utilizando este tema!

Implemente um programa em Pascal para gerar e exibir os primeiros n termos da Sequência de Fibonacci, onde n é um número fornecido pelo usuário.

Exemplo em Pascal ( Lazarus e Delphi )

(*

Criado pelo Professor Giovani Da Cruz
Gráfico da sequência de Fibonacci

*)
program FibonacciSequence;

var
  n, a, b, c, i: integer;

begin
  writeln('Digite a quantidade de termos da Sequência de Fibonacci: ');
  readln(n);

  // Inicialização dos primeiros dois termos
  a := 0;
  b := 1;

  writeln('Os primeiros ', n, Utf8ToAnsi(' termos da Sequência de Fibonacci são:'));

  // Exibir os primeiros n termos
  for i := 1 to n do
  begin
    write(a, ' ');

    // Calcular o próximo termo
    c := a + b;
    a := b;
    b := c;
  end;

  readln;
end.

Instruções:

1. Execute o programa e insira um número n para determinar quantos termos da Sequência de Fibonacci deseja exibir.
2. O programa calculará e mostrará os primeiros n termos da sequência.

Explicação:

• O programa utiliza três variáveis (a, b, c) para rastrear os termos da sequência.
• Um loop for é utilizado para calcular e exibir os primeiros n termos.
• Cada termo é obtido somando os dois termos anteriores.

Agora vamos montar um exemplo simples de como você pode representar a sequência visualmente em um gráfico de barras no console.

Exemplo em Pascal ( Lazarus e Delphi )

(*

Criado pelo Professor Giovani Da Cruz
Gráfico da sequência de Fibonacci

*)
program FibonacciGraph;

var
  n, a, b, c, i, j: integer;

begin
  writeln(Utf8ToAnsi('Digite a quantidade de termos da Sequência de Fibonacci: '));
  readln(n);

  // Inicialização dos primeiros dois termos
  a := 0;
  b := 1;

  writeln(Utf8ToAnsi('Gráfico da Sequência de Fibonacci para os primeiros '), n, ' termos:');

  // Exibir o gráfico
  for i := 1 to n do
  begin
    // Calcular o próximo termo
    c := a + b;
    a := b;
    b := c;

    // Exibir uma barra proporcional ao valor do termo
    for j := 1 to c do
      write('#');

    writeln;
  end;

  readln;
end.

Este programa usa o caractere ‘#’ para representar visualmente a magnitude de cada termo na sequência. Quanto maior o termo, mais cerquilhas (#) serão exibidas. Lembre-se de que a qualidade visual pode variar dependendo do console que está sendo usado.

Veja um exemplo de resultado:

Beleza pessoal? Espero que tenham gostado.

Dúvidas e sugestões de outras linguagens? Deixe o seu comentário!

Um abraço e até o próximo post. Valeu!