Program ( 5 Exercicios do Pascal)

1) Faça um algoritmo que imprima todos os números inteiros de 1 a N, onde N é um número fornecido pelo usuário.

Program Todos_numeros_de_Um_a_N;

Var

  N, num : integer ;

Begin

   

    writeln('informe um numero para o fim do intervalo');

    readln(N); 

  num:=0;

  repeat

    num := num + 1

    writeln(num);

  until num = N;

End.

 

2) Faça um algoritmo que receba um número N, some todos os números inteiros de 1 a N, e mostre o resultado obtido.

Program Soma_dos_inteiros_de_Um_a_N;

Var

  i, N, total : integer ;

Begin

   

    writeln('informe um numero');

   readln(N); 

  for i := 1 to N do begin
    total:=total + i

  end;

  writeln('A soma dos números é', total);

End.

 

3) Elabore um algoritmo que imprima todos os múltiplos de 4 compreendidos entre 5 e 87.

Program Multiplos_de_Quatro;

Var

  i : integer ;

Begin

  i := 5;

  while (i <= 87) do begin
    if(i mod 4 = 0) then begin

      writeln( i, ' é multiplo de 4');

    end;

    i := i + 1;

  end;

End.

 

4) A série de Fibonacci é formada pela seguinte seqüência: 1, 1, 2, 3, 5, 8, 13, 21, 34, ... etc. Nesta série, o próximo elemento é obtido através soma dos dois anteriores. Escreva um algoritmo que exiba a série de Fibonacci até o vigésimo termo.

Program Fibonacci;

Var

  i, anterior1, anterior2, proximo: integer ;

Begin

  proximo:=1;

  anterior1:=1;
  anterior2:=1;

  for i := 1 to 20 do begin
    if(i <= 2) then begin

      proximo:= 1;

    end else begin

      proximo:=anterior1+anterior2;
      anterior2:= anterior1;
      anterior1:= proximo;
    end;

    writeln('Termo ', i, ' é igual ', proximo);

  end;

End.

 

5) Faça um algoritmo que calcule o fatorial de um número N fornecido pelo usuário.

Program Fatorial ;

var

    fat, i, N: Integer; 

Begin
    

   write('Informe o Valor de N: ');
   readln(N);

   fat:= 1;
  

   for i:= 1 to N do
   begin
      fat:= fat * i;
   end;
   
   write('O Valor de ', N, ' Fatorial é: ', fat);

End.