• Lunes 29 de Abril de 2024, 12:09

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 - jlcboado

Páginas: [1]
1
PHP / Visualizar Dato En Celda Determinda Por Una Bd
« en: Martes 15 de Abril de 2008, 17:38 »
Hola haber si alguien me puede ayudar.

En una BD, tengo estos campos: ID, X, Y

Me gustaría poder visualizar en una tabla el contenido de ID en su respectiva celda siendo esta el valor de X (Columna), Y(Fila)

Ejemplo:

ID   X    Y
---  ---  ---
1     2    3
2     4    3
3     1    1
...   ...   ...

Lo que quiero que me haga, es que en una tabla de tamaño fijo (ejemplo 10x10), en la posicion 2x3 me visualice 1

Hice esto:

Código: Text
  1.  
  2.  
  3. <table width="100%" height="100%" border="1" align="center">
  4.    <?php for($i=$X-3; $i<=$X+3; $i++) { ?>
  5.     <tr>
  6.          <?php for($j=$Y-3; $j<=$Y+3; $j++) { ?>
  7.          <td title="<?php  echo $i.'|'.$j; ?>" align="center" width="30" height="30">              
  8.             <?php
  9.                if(($row_Tabla['X'] == $i) AND ($row_Tabla['Y'] == $j)){ ?>
  10.                echo $row_Tabla['ID'];
  11.             } ?>
  12.              
  13.          </td>
  14.          <?php }?>
  15.      </tr>
  16. <?php }?>
  17. </table>
  18.  
  19.  
  20.  

 pero solo me visualiza la primera entrada en la BD y se le pongo un:
Código: Text
  1.  
  2. <?php do { ?>
  3.  
  4.  
  5.  
  6. <?php } while ($row_Tabla = mysql_fetch_assoc($Tabla)); ?>
  7.  
  8.  

Me repite la tabla tantas veces como ID existan

Alguien sabe como se haría bien????

Gracias

2
Pascal / Re: Duda En Pascal
« en: Jueves 17 de Enero de 2008, 13:21 »
No puedo, porque deben ser con números largos (de
hasta 200 cifras) y con un integer o un longint no permiten 200 cifras.
la unica manera de hacerlo es con string o con arrays

Gracias

3
Pascal / Re: Duda En Pascal
« en: Miércoles 16 de Enero de 2008, 23:39 »
La practica consiste en Sumar 2 numeros de igual base, y esta (la base) varia entre 2 y 10.
Ejemplo, base 2: 1110101010101
             base 8: 237651237765
             base 3: 1022211101

Para eso lo que hago es en un procedimiento anterior leer los datos en un String.
Mira, esta es la declaracion de tipos:
Código: Text
  1.  
  2. Const
  3.         Nmax = 200;
  4.         Base_ini = 2;
  5.         Base_fin = 10;
  6.  
  7.  
  8. Type
  9.         T_Numero = Record
  10.                 Numero: array[1..Nmax] of byte;
  11.                 Base: integer;
  12.                 Longitud: 1..Nmax;
  13.         End;
  14.         T_Sol = array[1..Nmax] of byte;
  15.  
  16.  

Despues voy pasando cada caracter del string a un array (ahora que pienso este paso lo escusaba, lo podia ir metiendo directamente en el array xD)
Y ahora tengo que hacer la suma, tal y cmo ves en el codigo, pero no va!!!

No se si lo estoy haciendo bien o mal. Si sabes otra solucion más eficiente.


Y la 2ª parte es multiplicar un numero de base tambioen comprendida entre 2 y 10   por un numero de una cifra
Ejemplo:
  1101010101010101 (en base 2      por        5
 
Este no tengo ni la remota idea de como se hace.

4
Pascal / Duda En Pascal
« en: Miércoles 16 de Enero de 2008, 00:09 »
Ola, tengo una duda, como puedo hacer para Sumar 2 numeros que estan en un array, en cada casilla del array un numero. Ademas esa suma se realizará con numeros de bases comprensidas entre 2 y 10 (ambos numeros con la misma base)
Yo lo que he hecho a sido esto,
Código: Text
  1.  
  2. Procedure Suma(Num1, Num2: T_Numero);
  3.  
  4. Var
  5.         i,j,z :integer;
  6.         sum, acarreo :integer;
  7.         Sol: T_Sol;
  8.         max : integer;
  9.  
  10. Begin
  11.         sum := 0;
  12.         acarreo := 0;
  13.         z := 0;
  14.         If Num1.Longitud >= Num2.Longitud then
  15.                 max := Num1.Longitud
  16.         Else max := Num2.Longitud;
  17.  
  18.         for i := max + 1 downto 1 do begin //for
  19.  
  20.                         if (i=max+1) AND (acarreo = 1) then begin
  21.                                 Num1.Numero[i] := 0;
  22.                                 Num2.Numero[i] := 0;
  23.                         end;
  24.  
  25.                         sum := Num1.Numero[i]+Num2.Numero[i]+acarreo;
  26.                         writeln('i ',i,  ' sum:  ',sum,' acarreo' ,acarreo);
  27.                         acarreo := 0;
  28.                         z := z+1;
  29.  
  30.  
  31.                         if sum >= Num1.Base then begin //if
  32.                                 Sol[z] := (sum - Num1.Base);
  33.                                 sum := 0;
  34.                                 acarreo := 1;
  35.                         end //if
  36.                         else Sol[z] := sum;
  37.                         writeln(' VECTOR ES :    ',Sol[i]); //Pongo esto para que me muestre
  38.                                                                        // los datos temporales del array
  39.  
  40.  
  41.         end; //for
  42.  
  43.         for i:=1 to max+1 do
  44.                 write(Sol[i],' ');
  45.  
  46. End;
  47.  
  48.  

Ademas tengo que hacer la multiplicacion de 1 numero cuya base esta comprendida entre 2 y 10  POR un numero de 1 cifra.
No pido a la solucion de este ejercicio, sino como hacerlo.

Si alguien me puede ayudar, se lo agradezco.
Que sea rápido

Gracias

Páginas: [1]