1

2

3

4

5

6

7

8

9

Daniela

Gonzalo

Juegan:

y:

tu

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

10

Otra partida

No entiendo un problema al exportar al applet:
Si exporto tal cual, hay botones de 2 tamaños.
Lo evito alterando esos tamaños y entonces
al guardar, cambia el tamaño de la letra.
SOLUCIÓN: cambiar el tamaño, exportar y luego 
deshacer el cambio de tamaño.

anterior = 1
elegido = 2
multiplo: Mod[elegido, anterior] ≟ 0
divisor: Mod[anterior, elegido] ≟ 0
A1:1
A2:2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
A13 = 13
A14 = 14
A15 = 15
A16 = 16
A17 = 17
A18 = 18
A19 = 19
A20 = 20
A21 = 21
CasillaDeEntrada1 = Textfield(j1)
CasillaDeEntrada2 = Textfield(j2)
turnouno:true
textoTurno1: "Turno de " + j1 + ": elige un múltiplo o un divisor del número: "
textoMotivoBien = If(divisor, elegido + " es divisor de " + anterior, multiplo, elegido + " es múltiplo de " + anterior, "mal")
textoTurno2: "Turno de " + j2 + ": elige un múltiplo o un divisor del número: "
textoBien: "Bien jugado: " + textoMotivoBien + ""
textoMal: "Mal jugado: " + elegido + " no es ni múltiplo ni divisor de " + anterior
textoGana1: "Ha ganado " + j1 + ""
textoGana2: "Ha ganado " + j2 + ""
fin: (¬divisor) ∧ (¬multiplo)
textoElegido: " " + elegido + " "
empiezauno:true
lista1 = Sequence("SetVisibleInView[botón" + (k) + ", 1, true]", k, 1, 40)
A = (-2.14, 0.16)
a = Ray(A, A + (1, 0))
b = Ray(A, A + (0, -1))
B = Point(a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(B, a)
D = Intersect(c, d)
polígono1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
retirados:0
texto2: "Retirados:
 " + retirados + " números"