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

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.161 ]

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

Script Copa do Mundo

média dos numeros informados em posiçoes pares em um vetor

Gerador de senha Pascal/Lazarus

media/record

maior elemento de uma matriz


  

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