Calculo do Fatorial Utilizando-se de for

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.311 ]

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

programa pra carregear duas matrizes e achar o maior

dizer se o aluno passou ou nao

Menu

Fibonacci (Pascal)


  

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