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

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.132 ]

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

escreve os números de 1 a 9 com repeat - until

Calculadora básica em Pascal

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

jogo bobo testando com case

Calculadora utilizando until e case


  

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