Cáculo de Fatorial, utilizando-se de Repeat - Until

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.226 ]

Download exemplo17.pas




programam pra efetuar Cáculo de Fatorial, utilizando-se de Repeat - Until

  



Esconder código-fonte

Program Exemplo;

{C culo de Fatorial, utilizando-se de Repeat - Until}

uses crt;

Var numero,cont: integer;
    fatorial:real;
Begin

   ClrScr;
   fatorial:=1;

   Write('Digite o n£mero do qual se deseja o fatorial: ');
   Readln(numero);

   {C lculo do Fatorial}
   cont:=numero;
   Repeat
     fatorial:=fatorial*cont;
     cont:=cont-1;
   Until cont<2;

   Writeln('O fatorial de ',numero,' ‚: ',Fatorial:0:0);

   readkey;

End.

Scripts recomendados

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

jogo bobo testando com case

armazenar o nome de um aluno e suas notas

diferença entre o maior e o menor numero

Gerador de Senha no Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts