Calculo do Fatorial Utilizando-se de for

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.148 ]

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

Programa lê nome (básico) - Pascal para iniciantes

cadastro de multiplos clientes com registro

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Tocador de Vídeo (Lazarus)

Cronômetro feito no Lazarus(Delphi 7 para Linux)


  

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