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

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.409 ]

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

armazenar estoque em uma matriz

Exemplo de for que mostra 6 números em ordem crescente

Registro

somatório de uma matriz 7x5

calculo da somatoria da diagonal principal


  

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