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

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.246 ]

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

Extenso em dll, com parâmetros adicionais

Script que verifica se um número é primo ou não

soma de um intervalo

Registro

cadastro de multiplos clientes com registro


  

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