2009-09-19 19:30 - Respuestas: 0 - Tema nº: 2621908
Windows Vista .
program facto;
uses crt;
var
fa, numero : longint;
procedure proceso(numero : longint);
begin
if numero < 0 then
write('No se puede obtener el factorial de un numero negativo')
else if numero > 12 then
write('El numero es muy grande.')
else if numero = 0 then
write('0! = 1 (Por regla general)')
else if numero = 1 then
write('1! = 1')
else
begin
write(numero, '! = ');
for fa:= numero-1 down to 1 do
begin
write(numero);
numero := (numero * fa);
writeln(' x ', fa, ' = ',numero);
end;
end;
writeln;
writeln;
end;
begin
clrscr;
gotoxy(20,11);
write('Entre un Numero entre 0 y 12: ');
readln(numero);
proceso(numero);
end.
|
