Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
No, no es eso, es que todavía estoy intentando entender el enunciadoDebemos ser bichos raros porque nadie se ha interesado por el problema de los siete puentes
Si es que sólo de pensar que fue el mismísimo Euler quien lo resolvió ya me quita las ganas ni de intentarlo...Ala, a darle vueltas al coco! jejejeje
Debemos ser bichos raros porque nadie se ha interesado por el problema de los siete puentes
Apunto el libro ése para leérmelo en cuanto disponga de más tiempo.
Saludos!
[B]mientras (numero_novias_en_potencia > 0) do[/B]
[B] aspirante = sacar_de_conjunto (novias_en_potencia);[/B]
[B] Si es_guapa (aspirante) entonces[/B]
[B] preguntar_nombre (aspirante);[/B]
[B] invitar_salir (aspirante);[/B]
[B] pagar_cena;[/B]
[B] si gusta_relojes (aspirante) entonces[/B]
[B] novia_oficial = aspirante;[/B]
[B] pedir_mano (novia_oficial);[/B]
[B] regalar_anillo (Novia_oficial);[/B]
[B] novia_oficial.regalar_speedmaster;[/B]
[B] casamiento_por_la_iglesia_de_blanco; //parada optima[/B]
[B] si no[/B]
[B] presentar_amigo (aspirante);[/B]
[B] end if;[/B]
[B] si no[/B]
[B] presentar_amigo (aspirante);[/B]
[B] end if;[/B]
[B] numero_novias_en_Potencia --;[/B]
[B]end while;
[/B]
if (sexo = null) then
begin
GOTO CASA
end;
numero_novias_en_potencia EQU 0x10
novia_oficial EQU 0x11
aspirante EQU 0x12
indice_novias EQU 0x13
#include boda.inc
#include sexo.inc
#include amigos.inc
ORG 0
GOTO Main
ORG 6969
Main:
Movlw 0x01
Movwf indice_novias ; Indice de novias = 1
Movf numero_novias_en_potencia, f
Btfsc STATUS, Z ; Si novias en potencia=0
GOTO Eres_un_fracaso ; Eres un fracaso
Bucle_busca_cita: ; Buscar cita
Movf indice_novias, W
CALL tabla_novias ; Buscar novia en la tabla
movwf aspirante ; Cargarla como aspirante
CALL es_guapa_aspirante
Btfsc STATUS, Z ; ¿Es guapa?
GOTO presentar_amigo ; No...
CALL preguntar_nombre ; Si, pregunta nombre
CALL invitar_salir ; Invitala a salir
CALL pagar_cena ; Pagale una cena ( sin pasarte... )
CALL gusta_relojes ; ¿Le gustan los relojes?
Btfsc STATUS, Z
GOTO presentar_amigo ; No, que le den
CALL tener_sexo ; ¿Sexo en la 1ª cita?
Btfss STATUS, Z
GOTO vamos_bien ; Si, jode... lo tiene todo...
CALL levantar_coche ; No, levanta un par de coches para desahogar...
GOTO presentar_amigo ; y pasala a un amigo
vamos_bien:
Movf aspirante, W ; Ya es aspirante
Movwf novia_oficial ; Y novia oficial... que lo tiene todo!
CALL pedir_mano ; pidele la mano
CALL regalar_anillo ; Regalale un anillo
CALL recoger_speedmaster ; y recoge tu reloj de prometido
CALL delay_tomar_aire ; una pausa despues de ver el reloj...
CALL casar_de_blanco ; y bodorrio!!!
Clrf Wdt ;Refrescar perro guardian (WatchDog o suegra)
GOTO La_has_cagao: ; si lo piensas bien... la has cagao ya...
presentar_amigo:
Dec indice_novias ; una menos en la agenda
Btfsc STATUS, Z ; ¿ Es la ultima? noo.., no puede ser...
GOTO Eres_un_fracaso ; pues si, eres patetico
GOTO Bucle_busca_cita ; aun tienes otra oportunidad, sigue probando
Eres_un_fracaso: ; Je, algoritmo concurrente vayas por donde vayas siempre acabas igual
La_has_cagao:
END.
Sólo 16 novias en potencia??? Hay muchas más!
Este hilo es solo para EXPERTOS Informaticos.... los demás sobramos xq n0o nos enteramos ni de la misa la media.
por cierto, para expertos:Thomasina ¿No eras tú quien tenía que enseñarme el verdadero significado de las cosas?<o😛>
</o😛> Septimus Ah. Sí, estoy avergonzado. Abrazo carnal equivale a un acuerdo tácito de índole sexual que consiste en la inserción del órgano genital masculino en el órgano genital femenino con el propósito de perpetuar la especie y obtener placer. El último teorema de Fermat, por su parte, asegura que cuando x, y y z son números enteros y cada uno elevado al exponente n, la suma de los dos primeros nunca puede ser igual al tercero cuando n es mayor que 2.<o😛> </o😛>
(Pausa)<o😛>
</o😛> Thomasina ¡Aarggh!<o😛>
</o😛> Septimus Te guste o no te guste, así es el teorema.
<o😛> </o😛>
Thomasina Lo encuentro asqueroso e incomprensible. Cuando sea lo bastante grande como para ponerlo en práctica ya nunca podré hacerlo sin pensar en ti.
novio* noviete;