Calculo do Fatorial Utilizando-se de for

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.149 ]

Download Exemplo14.pas




Programa para efetuar o Calculo de Fatorial Utilizando-se de for

  



Esconder código-fonte

program exemplo;
{Calculo do Fatorial Utilizando-se de for}

uses crt;
var x,i,f,a : integer;
begin
  clrscr;

  write('Digite um numero: ');
  readln(i);

  for x := i downto 1 do begin
      write(x, '*')
  end;
  readln;
  a:=1;
  
  for x := i downto 1 do begin
    a:=a*x;
  end;

   write('Fatorial de  ',i,' = ');

   writeln(a);
   readkey;
end.

Scripts recomendados

SpaceAllience_Animation

registro de turma com record

Conjuntos

Fatorial

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