Fatorial

Publicado por Leonardo 28/05/2007

[ Hits: 5.379 ]

Download fatorial.PAS




Este script faz o fatorial do número digitado.

  



Esconder código-fonte

program fatorial;
uses crt;
var
n, x : integer;
r: longint;

begin
   Writeln('Digite o numero ');
   readln(n);
   x:= n;
   r:= 1;
     while x >= 1 do
     begin

     r:= r *  n ;
     x:= x - 1;
     n:= n-1;
     end;
     writeln ('O valor eh',r);

end.

Scripts recomendados

Calculo do Fatorial Utilizando-se de for

Loops

Script Copa do Mundo

Existência de triângulo, em Pascal

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