Fatorial

Publicado por Leonardo 28/05/2007

[ Hits: 5.177 ]

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

média de uma turma

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Script Tabuada

Extenso em dll, com parâmetros adicionais

Multiplicação de Matrizes


  

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