Cáculo de Fatorial, utilizando-se de Repeat - Until
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.317 ]
programam pra efetuar Cáculo de Fatorial, utilizando-se de Repeat - Until
Program Exemplo; {C culo de Fatorial, utilizando-se de Repeat - Until} uses crt; Var numero,cont: integer; fatorial:real; Begin ClrScr; fatorial:=1; Write('Digite o n£mero do qual se deseja o fatorial: '); Readln(numero); {C lculo do Fatorial} cont:=numero; Repeat fatorial:=fatorial*cont; cont:=cont-1; Until cont<2; Writeln('O fatorial de ',numero,' : ',Fatorial:0:0); readkey; End.
encontrar o menor valor em um vetor
Existência de triângulo, em Pascal
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Mikrotik não abre o webmail-segur... da Locaweb (11)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (3)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (1)