Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programas

Se regresa a la codificacion

alexpro96
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.



Página:1

Respuestas relacionadas:

Se regresa al menu siempreSe regresa al menu siempreForo
CodificacionCodificacionForo
Codificación de dvdCodificación de dvdForo
Solucion al escribir alt + 64 regresa al anteriorSolucion al escribir alt + 64 regresa al anteriorForo
Mi impresora r290 regresa el discoMi impresora r290 regresa el discoForo
Windows no arranca, se ve escritorio y regresa a bvnWindows no arranca, se ve escritorio y regresa a bvnForo
La hora de la computadora se regresa al 2002La hora de la computadora se regresa al 2002Foro
Codificacion de textoCodificacion de textoForo
Codificacion binaria  :-(Codificacion binaria :-(Foro
Codificacion de textoCodificacion de textoForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos22 Noviembre 2024