49 números que se extraen de problema 7 reinas

Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.

Aunque a distancia... Sigo por aquí.

Feliz Navidad para todos. Sobre todo a los que saben apreciar mis firmas.

Y para los que no...
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
Salva(ALBO2001)
12
12
Mensajes: 1059
Registrado: Vie 26 Dic, 2003 5:34 pm
Ubicación: Zaragoza

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Salva(ALBO2001) »

¡¡¡¡¡Felíz Navidad!!!!!!! Noega, próspero 2018 y muchísima salud, igualmente para todos. :beer: :beer:

Saludos.

Salva
Wandering

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Wandering »

Saludos.

Aunque a distancia... Sigo por aquí.

Feliz Navidad para todos y Prospero año nuevo 2018.
:alcohol: :alcohol: :ola: :alcohol: :alcohol:
P.D. Me copiado el mensaje de Noega. Disculpas por la copia. Soy un vagon mas del
CONVOY

Las reinas no se si tendran solucion, seguro que la comprobación hace los movimientos.
Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.

Gracias Salva. Un placer compartir contigo esa jarra... y por supuesto con los demás.

Wandering... Siempre caballero. Sabes que cuando quieras y donde quieras. Estoy esperando ese " conjunto de vehículos que se desplazan en grupo para apoyarse mutuamente..."

Sería imprudente por mi parte intentar nombraros a todos... Pedro... Victorisaac... Ilutixop... Y muchos más... Que deciros... Lo sabéis...

Un abrazo... Y Feliz Navidad... Hasta Enero...
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
victorisaac
13
13
Mensajes: 3286
Registrado: Dom 13 Mar, 2011 1:06 am

Re: 49 números que se extraen de problema 7 reinas

Mensaje por victorisaac »

A mi tambien me gustaria formar parte del convoy :-D

viewtopic.php?f=42&t=88573&p=2450104#p2449612
El azar es circunstancia y la suerte coincidencia.
Aplicar la circunstancia adecuada provocará la coincidencia

EUREKA
DIVIDE Y VENCERAS, MULTIPLICA Y MAS.
Imagen
Avatar de Usuario
emilrok
11
11
Mensajes: 456
Registrado: Sab 02 Oct, 2010 7:29 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por emilrok »

Yo también quiero desearos felices fiestas a todos sin excepción. Me tomo este foro como un entretenimiento nada más, a pesar de que alguna vez se calienta el dedo. Salud y suerte

Enviado desde mi F3311 mediante Tapatalk
jrsoler
11
11
Mensajes: 544
Registrado: Mié 26 Feb, 2014 5:27 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por jrsoler »

Hola, un Gran Abrazo a Tod@s, Feliz Navidad y Próspero Año 2018 :alcohol: :ok: :aplauso:

Muchísima Salud y que la Fuerza y la Suerte siempre nos acompañen :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D
joker66671
10
10
Mensajes: 207
Registrado: Lun 14 Sep, 2009 6:47 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por joker66671 »

Felices fiestas a todos
kekeke
10
10
Mensajes: 200
Registrado: Mié 23 Ago, 2006 10:12 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por kekeke »

Buenas noches,

Me uno a esos buenos deseos para todos.

Feliz Navidad para tod@s y que en el próximo Año 2018 sigamos estando por aquí!!!
Avatar de Usuario
Pureta
11
11
Mensajes: 349
Registrado: Lun 04 Abr, 2016 11:22 am
Ubicación: Tierra Media

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Pureta »

Feliz Navidad y Prospero Año nuevo 2018.. :alcohol: :alcohol: :alcohol: :alcohol: :-D
A todos los foreros de buena voluntad y que la diosa fortuna nos sonría a tod@s. :ok:
Merry Christmas incluso a los romanos del foro!!!! :romano1: :alcohol: :alcohol: :alcohol: :alcohol: :alcohol: :alcohol: :wink:
Un Saludete
:-D :-D :-D
Yo solo se que no se nada, y me gustaría saber, lo que el sabio mas sabio de la tierra, no sabe.
"Socrates"
pepico68

Re: 49 números que se extraen de problema 7 reinas

Mensaje por pepico68 »

Feliz Navidad y próspero año 2018 a todos ,menos a dos,que ya sabeis quienes sois.

Lo único que no soporto en la vida es la maldad de las personas,y por ahí no entro.

Para los demás,que os toque pronto una de 6, de verdad.

(Algún día os dareis cuenta de que en la vida el dinero es lo último).

Abrazos :alcohol:

P.D. Pureta,te parecerá mentira estar esta Nochebuena en casa,después de lo del hospital... :ok: :wink:
Avatar de Usuario
Pureta
11
11
Mensajes: 349
Registrado: Lun 04 Abr, 2016 11:22 am
Ubicación: Tierra Media

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Pureta »

Digamos que espero que 2018 no se paresca al 2017.
Este año he tenido de todo menos salud, y solo apreciamos lo que tenemos, cuando nos falta. :lloron: :lloron: :lloron:
Así que estoy deseando que llegue 2018. He estado otro semana de baja por un virus y he trabajado semana y media en pleno ataque de gota (cojo), en fin deseo pasar pagina rapidito.
Un Saludete
:-D :-D :-D
Yo solo se que no se nada, y me gustaría saber, lo que el sabio mas sabio de la tierra, no sabe.
"Socrates"
Avatar de Usuario
Salva(ALBO2001)
12
12
Mensajes: 1059
Registrado: Vie 26 Dic, 2003 5:34 pm
Ubicación: Zaragoza

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Salva(ALBO2001) »

Qué te recuperes pronto Pureta, y como muy bien dices...que el próximo 2018 sea mejor y saludable.
Un abrazo y ánimos.
Salva
Wandering

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Wandering »

Cuidese Sr. Pureta.

Para el 2018, va a ser un desastre para mi.
Espero que para ustedes sea lo mejor de lo mejor.
Nos leeremos en el 2018.
Mientras tanto a disfrutar de las fiestas.
:alcohol: :alcohol: :wink: :ok:
pepico68

Re: 49 números que se extraen de problema 7 reinas

Mensaje por pepico68 »

Sr.Pureta,y Sr. Wandering.
Siento mucho el estado de salud de ustedes.
Espero que mejoren pronto,y en el próximo año,la salud la tengan perfecta.
Lamentablemente,en la vida, las cosas malas siempre les tocan a los buenos.
Mis mejores deseos. :winke: :ok:
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

las 16 Reinas (16R), tiene la friolera de 14772512 soluciones ¡¡

aquí una de ellas:
16 6 15 5 14 8 13 4 1 3 11 9 2 12 10 7

... seguimos investigando

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Wandering

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Wandering »

Seguimos en la utilidad, trabajando.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

:saludo:

hasta el infinito, Wandering.. :ok:

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
dav_s_mart
10
10
Mensajes: 2
Registrado: Mié 24 Jul, 2019 8:11 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por dav_s_mart »

Hola, he desarrollado un metodo que sirve para sacar soluciones particulares del problema de las 1000
reinas.
Esta en el link:
https://problema-de-las-1000-reinas-resuelto.blogspot.com/

Saludos.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Saludos,

una petición sobre el código Qbasic del problema de las 8 reinas, me ha hecho revisarlo y he confirmado que el reparto de apariciones de las mismas en el tablero de 8x8 casillas NO es homogéneo, es decir hay casillas con solo 4 apariciones, sumando todas las 92 soluciones y otras con 18 apariciones, lo que limita el uso de las soluciones como posible reducción, o no? si deseamos dar mas peso a ciertos números,....

pongo el código actualizado que lo lista y graba en fichero seguidamente y la aparición por casillas, éstas:

Apariciones de las 8 Reinas, en las 92 soluciones en un tablero de 8x8:

4 8 16 18 18 16 8 4
8 16 14 8 8 14 16 8
16 14 4 12 12 4 14 16
18 8 12 8 8 12 8 18
18 8 12 8 8 12 8 18
16 14 4 12 12 4 14 16
8 16 14 8 8 14 16 8
8 16 14 8 8 14 16 8

el resultado de ejecución del código QBasic (se archiva automáticamente en fichero: CAS_REIN.TXT) es éste:


92 Soluciones al problema: Ubicación de 8 Reinas en tablero de 8x8 casillas:

1 5 8 6 3 7 2 4
1 6 8 3 7 4 2 5
1 7 4 6 8 2 5 3
1 7 5 8 2 4 6 3
2 4 6 8 3 1 7 5
2 5 7 1 3 8 6 4
2 5 7 4 1 8 6 3
2 6 1 7 4 8 3 5
2 6 8 3 1 4 7 5
2 7 3 6 8 5 1 4
2 7 5 8 1 4 6 3
2 8 6 1 3 5 7 4
3 1 7 5 8 2 4 6
3 5 2 8 1 7 4 6
3 5 2 8 6 4 7 1
3 5 7 1 4 2 8 6
3 5 8 4 1 7 2 6
3 6 2 5 8 1 7 4
3 6 2 7 1 4 8 5
3 6 2 7 5 1 8 4
3 6 4 1 8 5 7 2
3 6 4 2 8 5 7 1
3 6 8 1 4 7 5 2
3 6 8 1 5 7 2 4
3 6 8 2 4 1 7 5
3 7 2 8 5 1 4 6
3 7 2 8 6 4 1 5
3 8 4 7 1 6 2 5
4 1 5 8 2 7 3 6
4 1 5 8 6 3 7 2
4 2 5 8 6 1 3 7
4 2 7 3 6 8 1 5
4 2 7 3 6 8 5 1
4 2 7 5 1 8 6 3
4 2 8 5 7 1 3 6
4 2 8 6 1 3 5 7
4 6 1 5 2 8 3 7
4 6 8 2 7 1 3 5
4 6 8 3 1 7 5 2
4 7 1 8 5 2 6 3
4 7 3 8 2 5 1 6
4 7 5 2 6 1 3 8
4 7 5 3 1 6 8 2
4 8 1 3 6 2 7 5
4 8 1 5 7 2 6 3
4 8 5 3 1 7 2 6
5 1 4 6 8 2 7 3
5 1 8 4 2 7 3 6
5 1 8 6 3 7 2 4
5 2 4 6 8 3 1 7
5 2 4 7 3 8 6 1
5 2 6 1 7 4 8 3
5 2 8 1 4 7 3 6
5 3 1 6 8 2 4 7
5 3 1 7 2 8 6 4
5 3 8 4 7 1 6 2
5 7 1 3 8 6 4 2
5 7 1 4 2 8 6 3
5 7 2 4 8 1 3 6
5 7 2 6 3 1 4 8
5 7 2 6 3 1 8 4
5 7 4 1 3 8 6 2
5 8 4 1 3 6 2 7
5 8 4 1 7 2 6 3
6 1 5 2 8 3 7 4
6 2 7 1 3 5 8 4
6 2 7 1 4 8 5 3
6 3 1 7 5 8 2 4
6 3 1 8 4 2 7 5
6 3 1 8 5 2 4 7
6 3 5 7 1 4 2 8
6 3 5 8 1 4 2 7
6 3 7 2 4 8 1 5
6 3 7 2 8 5 1 4
6 3 7 4 1 8 2 5
6 4 1 5 8 2 7 3
6 4 2 8 5 7 1 3
6 4 7 1 3 5 2 8
6 4 7 1 8 2 5 3
6 8 2 4 1 7 5 3
7 1 3 8 6 4 2 5
7 2 4 1 8 5 3 6
7 2 6 3 1 4 8 5
7 3 1 6 8 5 2 4
7 3 8 2 5 1 6 4
7 4 2 5 8 1 3 6
7 4 2 8 6 1 3 5
7 5 3 1 6 8 2 4
8 2 4 1 7 5 3 6
8 2 5 3 1 7 4 6
8 3 1 6 2 5 7 4
8 4 1 3 6 2 7 5

Total de apariciones de las 8 reinas por casillas:

A B C D E F G H
-- -- -- -- -- -- -- --
1 - 4 8 16 18 18 16 8 4
2 - 8 16 14 8 8 14 16 8
3 - 16 14 4 12 12 4 14 16
4 - 18 8 12 8 8 12 8 18
5 - 18 8 12 8 8 12 8 18
6 - 16 14 4 12 12 4 14 16
7 - 8 16 14 8 8 14 16 8
8 - 4 8 16 18 18 16 8 4


y el código QBasic que lo genera (se dan errores en el listado adjunto, si alguien lo quiere, me lo solicita por privado):


OPEN "CAS_REIN.TXT" FOR OUTPUT AS #1
PRINT #1, " 92 Soluciones al problema: Ubicacion de 8 Reinas en tablero de 8x8 casillas": PRINT #1, " "

FOR s1 = 1 TO 8
FOR s2 = 1 TO 8: IF s2 - s1 = 1 OR s1 - s2 = 1 THEN GOTO noo
FOR s3 = 1 TO 8: IF s3 - s2 = 1 OR s2 - s3 = 1 THEN GOTO noo
FOR s4 = 1 TO 8: IF s3 - s4 = 1 OR s4 - s3 = 1 THEN GOTO noo
FOR s5 = 1 TO 8: IF s4 - s5 = 1 OR s5 - s4 = 1 THEN GOTO noo
FOR s6 = 1 TO 8: IF s5 - s6 = 1 OR s6 - s5 = 1 THEN GOTO noo
FOR s7 = 1 TO 8: IF s6 - s7 = 1 OR s7 - s6 = 1 THEN GOTO noo
FOR s8 = 1 TO 8: IF s7 - s8 = 1 OR s8 - s7 = 1 THEN GOTO noo


IF s1 = s2 OR s1 = s3 OR s1 = s4 OR s1 = s5 OR s1 = s6 OR s1 = s7 OR s1 = s8 THEN GOTO noo
IF s2 = s3 OR s2 = s4 OR s2 = s5 OR s2 = s6 OR s2 = s7 OR s2 = s8 THEN GOTO noo
IF s3 = s4 OR s3 = s5 OR s3 = s6 OR s3 = s7 OR s3 = s8 THEN GOTO noo
IF s4 = s5 OR s4 = s6 OR s4 = s7 OR s4 = s8 THEN GOTO noo
IF s5 = s6 OR s5 = s7 OR s5 = s8 THEN GOTO noo
IF s6 = s7 OR s6 = s8 THEN GOTO noo
IF s7 = s8 THEN GOTO noo

caza_diagonales:
IF s1 = s2 + 1 OR s1 = s3 + 2 OR s1 = s4 + 3 OR s1 = s5 + 4 OR s1 = s6 + 5 OR s1 = s7 + 6 OR s1 = s8 + 7 THEN GOTO noo
IF s2 = s3 + 1 OR s2 = s4 + 2 OR s2 = s5 + 3 OR s2 = s6 + 4 OR s2 = s7 + 5 OR s2 = s8 + 6 THEN GOTO noo
IF s3 = s4 + 1 OR s3 = s5 + 2 OR s3 = s6 + 3 OR s3 = s7 + 4 OR s3 = s8 + 5 THEN GOTO noo
IF s4 = s5 + 1 OR s4 = s6 + 2 OR s4 = s7 + 3 OR s4 = s8 + 4 THEN GOTO noo
IF s5 = s6 + 1 OR s5 = s7 + 2 OR s5 = s8 + 3 THEN GOTO noo
IF s6 = s7 + 1 OR s6 = s8 + 2 THEN GOTO noo
IF s7 = s8 + 1 THEN GOTO noo

IF s1 = s2 - 1 OR s1 = s3 - 2 OR s1 = s4 - 3 OR s1 = s5 - 4 OR s1 = s6 - 5 OR s1 = s7 - 6 OR s1 = s8 - 7 THEN GOTO noo
IF s2 = s3 - 1 OR s2 = s4 - 2 OR s2 = s5 - 3 OR s2 = s6 - 4 OR s2 = s7 - 5 OR s2 = s8 - 6 THEN GOTO noo
IF s3 = s4 - 1 OR s3 = s5 - 2 OR s3 = s6 - 3 OR s3 = s7 - 4 OR s3 = s8 - 5 THEN GOTO noo
IF s4 = s5 - 1 OR s4 = s6 - 2 OR s4 = s7 - 3 OR s4 = s8 - 4 THEN GOTO noo
IF s5 = s6 - 1 OR s5 = s7 - 2 OR s5 = s8 - 3 THEN GOTO noo
IF s6 = s7 - 1 OR s6 = s8 - 2 THEN GOTO noo
IF s7 = s8 - 1 THEN GOTO noo

cas = cas + 1: PRINT cas,: PRINT s1; s2; s3; s4; s5; s6; s7; s8:
PRINT #1, s1; s2; s3; s4; s5; s6; s7; s8
IF s1 = 1 THEN tcas(1, 1) = tcas(1, 1) + 1
IF s1 = 2 THEN tcas(2, 1) = tcas(2, 1) + 1
IF s1 = 3 THEN tcas(3, 1) = tcas(3, 1) + 1
IF s1 = 4 THEN tcas(4, 1) = tcas(4, 1) + 1
IF s1 = 5 THEN tcas(5, 1) = tcas(5, 1) + 1
IF s1 = 6 THEN tcas(6, 1) = tcas(6, 1) + 1
IF s1 = 7 THEN tcas(7, 1) = tcas(7, 1) + 1
IF s1 = 8 THEN tcas(8, 1) = tcas(8, 1) + 1

IF s2 = 1 THEN tcas(1, 2) = tcas(1, 2) + 1
IF s2 = 2 THEN tcas(2, 2) = tcas(2, 2) + 1
IF s2 = 3 THEN tcas(3, 2) = tcas(3, 2) + 1
IF s2 = 4 THEN tcas(4, 2) = tcas(4, 2) + 1
IF s2 = 5 THEN tcas(5, 2) = tcas(5, 2) + 1
IF s2 = 6 THEN tcas(6, 2) = tcas(6, 2) + 1
IF s2 = 7 THEN tcas(7, 2) = tcas(7, 2) + 1
IF s2 = 8 THEN tcas(8, 2) = tcas(8, 2) + 1

IF s3 = 1 THEN tcas(1, 3) = tcas(1, 3) + 1
IF s3 = 2 THEN tcas(2, 3) = tcas(2, 3) + 1
IF s3 = 3 THEN tcas(3, 3) = tcas(3, 3) + 1
IF s3 = 4 THEN tcas(4, 3) = tcas(4, 3) + 1
IF s3 = 5 THEN tcas(5, 3) = tcas(5, 3) + 1
IF s3 = 6 THEN tcas(6, 3) = tcas(6, 3) + 1
IF s3 = 7 THEN tcas(7, 3) = tcas(7, 3) + 1
IF s3 = 8 THEN tcas(8, 3) = tcas(8, 3) + 1

IF s4 = 1 THEN tcas(1, 4) = tcas(1, 4) + 1
IF s4 = 2 THEN tcas(2, 4) = tcas(2, 4) + 1
IF s4 = 3 THEN tcas(3, 4) = tcas(3, 4) + 1
IF s4 = 4 THEN tcas(4, 4) = tcas(4, 4) + 1
IF s4 = 5 THEN tcas(5, 4) = tcas(5, 4) + 1
IF s4 = 6 THEN tcas(6, 4) = tcas(6, 4) + 1
IF s4 = 7 THEN tcas(7, 4) = tcas(7, 4) + 1
IF s4 = 8 THEN tcas(8, 4) = tcas(8, 4) + 1

IF s5 = 1 THEN tcas(1, 5) = tcas(1, 5) + 1
IF s5 = 2 THEN tcas(2, 5) = tcas(2, 5) + 1
IF s5 = 3 THEN tcas(3, 5) = tcas(3, 5) + 1
IF s5 = 4 THEN tcas(4, 5) = tcas(4, 5) + 1
IF s5 = 5 THEN tcas(5, 5) = tcas(5, 5) + 1
IF s5 = 6 THEN tcas(6, 5) = tcas(6, 5) + 1
IF s5 = 7 THEN tcas(7, 5) = tcas(7, 5) + 1
IF s5 = 8 THEN tcas(8, 5) = tcas(8, 5) + 1

IF s6 = 1 THEN tcas(1, 6) = tcas(1, 6) + 1
IF s6 = 2 THEN tcas(2, 6) = tcas(2, 6) + 1
IF s6 = 3 THEN tcas(3, 6) = tcas(3, 6) + 1
IF s6 = 4 THEN tcas(4, 6) = tcas(4, 6) + 1
IF s6 = 5 THEN tcas(5, 6) = tcas(5, 6) + 1
IF s6 = 6 THEN tcas(6, 6) = tcas(6, 6) + 1
IF s6 = 7 THEN tcas(7, 6) = tcas(7, 6) + 1
IF s6 = 8 THEN tcas(8, 6) = tcas(8, 6) + 1

IF s7 = 1 THEN tcas(1, 7) = tcas(1, 7) + 1
IF s7 = 2 THEN tcas(2, 7) = tcas(2, 7) + 1
IF s7 = 3 THEN tcas(3, 7) = tcas(3, 7) + 1
IF s7 = 4 THEN tcas(4, 7) = tcas(4, 7) + 1
IF s7 = 5 THEN tcas(5, 7) = tcas(5, 7) + 1
IF s7 = 6 THEN tcas(6, 7) = tcas(6, 7) + 1
IF s7 = 7 THEN tcas(7, 7) = tcas(7, 7) + 1
IF s7 = 8 THEN tcas(8, 7) = tcas(8, 7) + 1

IF s8 = 1 THEN tcas(1, 8) = tcas(1, 8) + 1
IF s8 = 2 THEN tcas(2, 8) = tcas(2, 8) + 1
IF s8 = 3 THEN tcas(3, 8) = tcas(3, 8) + 1
IF s8 = 4 THEN tcas(4, 8) = tcas(4, 8) + 1
IF s8 = 5 THEN tcas(5, 8) = tcas(5, 8) + 1
IF s8 = 6 THEN tcas(6, 8) = tcas(6, 8) + 1
IF s8 = 7 THEN tcas(7, 8) = tcas(7, 8) + 1
IF s8 = 8 THEN tcas(8, 8) = tcas(8, 8) + 1

'PRINT #1, " ": cas, s1; s2; s3; s4; s5; s6; s7; s8

noo:

NEXT s8, s7, s6, s5, s4, s3, s2, s1
PRINT: PRINT #1, " "

PRINT " Total de apariciones de las 8 reinas por casillas: ": PRINT
PRINT #1, " Total de apariciones de las 8 reinas por casillas: ": PRINT #1, " "

PRINT " A B C D E F G H": PRINT #1, " A B C D E F G H"
PRINT " -- -- -- -- -- -- -- --": PRINT #1, " -- -- -- -- -- -- -- --"
FOR w = 1 TO 8: PRINT USING " # - "; w;: PRINT #1, USING " # - "; w;
FOR w2 = 1 TO 8
PRINT USING " ##"; tcas(w, w2);: PRINT #1, USING " ##"; tcas(w, w2);
'PRINT #1, tcas(w);

NEXT w2: PRINT: PRINT #1, " "
NEXT w


CLOSE #1
PRINT
LOCATE 25, 1: INPUT " Pulsa una tecla para finalizar. "; h: CLS: STOP

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Responder