Esse é um programa bem simples, que tira o fator de um número.

  



Esconder código-fonte

Program fat;
uses crt;
var
 limite:integer;
Procedure fatorial(n:integer);
var
 i,fat:integer;
Begin
 fat:=1;
 For i:=1 To n Do
  Begin
   fat:=fat * i;
  end;
 Writeln(fat);
 Writeln('Pressione um tecla para continuar...');
 readkey;
end;

Scripts recomendados

armazenar o nome de um aluno e suas notas

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

Matrizes

Multiplicação de Matrizes

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