Calculo do Fatorial Utilizando-se de for

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.054 ]

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

Primo_for

Raiz Quadrada.

controle de notas de uma clase com vetor e registro

calcular o percentual de pessoas que sao maiores de idade

Calculadora de décimo terceiro salário(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