• Viernes 3 de Mayo de 2024, 06:28

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - luisagpe

Páginas: [1]
1
Delphi / permutaciones, factoriales...etc.
« en: Viernes 24 de Octubre de 2008, 00:26 »
Hola chic@s aqui de nuevo yo
lo siento soy una preguntona -.-
tengo este codigo

Código: Text
  1.  
  2. uses Unit1;
  3.  
  4. {$R *.dfm}
  5. function Factorial(n : integer) : LongWord;
  6. begin
  7.         result := 1;
  8.         if (n = 1)or(n = 0) then exit;
  9.         result := n*Factorial(n-1);
  10. end;
  11. procedure TFormClasif1.btnCalcularFac1Click(Sender: TObject);
  12. var
  13.   n, n2, factorial, factorial2, i, i2, acumulador:integer;
  14.   RS:double;
  15. begin
  16.   n:=strtoint(edit1.Text);
  17.   n2:=strtoint(edrs.Text);
  18.   acumulador := 1;
  19.   factorial := 1;
  20.   factorial2 := 1;
  21. for i:=1 to n do
  22.   factorial := factorial*i;
  23.   ResN.Caption := inttostr(factorial);
  24. for i2 :=1 to n2 do
  25.   factorial2 := factorial2*i2;
  26.   acumulador := acumulador*factorial2;
  27.   factR.Caption:=inttostr(acumulador);
  28.   RS := factorial/factorial2;
  29.   resultadoFinal.Caption := FormatFloat('0.000000000',RS);
  30. end;
  31.  
  32.  


el programa hace una division, que es esta:

npr= n!/(r1!*r2!*r3!....rn!)


el problema es que no puedo multiplicar las rn! por que el acumulador que estoy usando no me funciona, lo que quiero es que al insertar un nuevo valor en edit1 me saque nuevamente el factorial y lo multiplique por el anterior y asi sucesivamente hasta que el usario quiera xP
espero me puedan ayudar, y si se puede que sea alguna correccion en mi codigo, por que en otro lado me sigirieron un memo pero me dio mas problemas, por que soy nueva en esto :hitcomp:

2
Delphi / Re: Denegar acceso a una ventana en Delphi 7?
« en: Martes 21 de Octubre de 2008, 19:29 »
muchas gracias O:!!!!
se nota que tengo mucho que aprender T-T
me pasa seguido por aca :comp:

3
C/C++ / Re: Laberinto; ¿validar Entradas ?
« en: Lunes 20 de Octubre de 2008, 00:00 »
Hola solo pasaba a dar la vuelta por el tema, y dar las gracias  :beer:
el ejemplo que me dieron me sirvio muy bien
habia perdido el link de la web por eso no me pase a hacerlo antes :P
pero ya me veran seguido por aca, si no pierdo el link de nuevo... aunque yo creo que pidiendo mas ayuda que dandola, no es que no quiera
es solo que no soy muy buena que digamos  :lol:

4
Delphi / Denegar acceso a una ventana en Delphi 7?
« en: Domingo 19 de Octubre de 2008, 23:57 »
Hola!! :hola:
eh mi nombre es Luisa, y quisiera hacer una consulta aca  ^_^
me preguntaba si se puede denegar acceso a una ventana en Delphi 7 hasta que no haya realizado un procedimiento en otra, donde lo quiero aplicar es en esto:

tengo un programa que resuelve permutaciones y combinaciones, para saber que clasificación es utilizo check box y eh puesto como condición que únicamente se puede elegir "SI" o "NO" al momento de que alguna de las preguntas sea contestada con ambas respuestas me aparece un nueva ventana que me nombra el error, con dos opciones nuevas bajo la pregunta "Desea intentar de nuevo?"
1. No, Sale del programa completamente
2. Si, regreso al formulario principal y los check box estan de nuevo en blanco..

Lo que quiero hacer es que no se pueda clickear sobre el formulario principal hasta haber dado la respuesta en la segunda ventana...

¿es posible? si es así ¿podrían darme un ejemplo del código que se utiliza por favor?


bueno espero sea posible, ^^
me retiro esperando respuestas ;P

5
C/C++ / Laberinto; ¿validar Entradas ?
« en: Sábado 7 de Junio de 2008, 19:51 »
hola que tal, estoy trabajando en un laberinto en c++, diria que tengo el 70% del programa :P y quisiera que me ayudaran a completar el otro porcentaje jeje

lo que pasa es que .. no se me ocurre como validar el movimiento del * dentro del laberinto, por que este puede atravesar las paredes, cosa que no quiero que haga, :blink:

espero me ayuden... les dejo mi codigo por si acaso,



atte..
universitaria :smartass: en apuros :comp:

Páginas: [1]