![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
Gracias a todos, ya hice el codigo y ya me funciona perfectamente, mañana lo ponga para que lo chequen, no lo pongo ahora porque el codigo lo hice en la pc de la escuela el idiota de mi se le olvido copiarlo.
__________________
''Ya se lo que tengo que hacer, pero tengo miedo de hacerlo''
|
|
#2
|
|||
|
|||
|
Pues esto fue lo que hice:
Código:
var Primo: Boolean; cols, reng, numero, Buscando: integer; begin randomize; Buscando:= StrToInt(E_1.text); for cols:=0 to 9 do for reng:=0 to 9 do begin Primo:= True; Numero:=random(101); SG_1.Cells[Cols,Reng] := IntToStr(Numero); If numero = Buscando then M_1.Lines.Add(IntToStr(Cols) + ',' + IntToStr(Reng)); end; end; end.
__________________
''Ya se lo que tengo que hacer, pero tengo miedo de hacerlo''
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|