PROGRAMACIÓN MSWLOGO

EJERCICIOS MSWLOGO

1) Ejercicio cuadrado,círculo y triángulo.

 para circulo
sl
ponpos[-150 0]
gd 90
bl
repite 360[av 1 gi 1]
gi 90
sl
av 5
poccr [255 0 0]
rellena

gd 90
ponpos[-178 -30]
rotula [Circulo]

fin

para cuadrado
ponpos[230 0]
bl
repite 4[av 110 gi 90]
sl
ponpos[235 4]
poccr [444 342 1211]
rellena

ponpos[240 -30]
rotula [Cuadrado]

fin

para fondo
ponpos[-300 4]
poccr (3)
rellena

fin

para triangulo
gi 90
ponpos[0 0]
bl
gd 90
repite 3[av 130 gi 120]
sl
ponpos[10 4]
poccr [0 0 255]
rellena

ponpos[25 -30]
rotula [Triangulo]


fin

2) Ejercicio polígono.

para poligon
bp
gd 90
rotula [Programa per dibuixar poliogons]
sl
ponpos[0 -20]
bl
rotula [De quants costats es el poligon?]
haz "num1 leepalabra
sl
ponpos[0 -40]
bl
rotula [De que longitud vols els costats?]
haz "num2 leepalabra
bp
repite :num1[av :num2 gd 360/:num1]


fin

3) Ejercicio multiplica.

para multiplica
bp
gd 90
rotula [Quin és el primer factor?]
haz "num1 leepalabra
bp
gd 90
rotula [Quin és el segon factor?]
haz "num2 leepalabra
bp
gd 90
rotula [Quin és el tercer factor?]
haz "num3 leepalabra
bp
gd 90
bl
rotula (lista "El "producte "de :num1 "* :num2 "* :num3 "és :num1*:num2*:num3)

fin 

4) Ejercicio  semáforo

para Amarillo
sl
ponpos [70 150]
poccr [252 195 0]
rellena
espera :num2 * 60
nonaranja
alto

fin

para cercle
sl
ponpos [200 -35]
repite 360[av 0.2 gd 1]

fin

para circulo
gi 180
repite 360[av 0.5 gi 1]

fin

para incorrecto
sl
ponpos [-50 365]
bl
rotula [Escoge una opción correcta]

fin

para negro
sl
poccr [6 6 6]
rellena

fin

para nonaranja
sl
ponpos [70 150]
poccr [6 6 6]
rellena
semaforo
fin

para norojo
sl
ponpos [70 250]
poccr [6 6 6]
rellena
semaforo
fin

para noverde
sl
ponpos [70 50]
poccr [6 6 6]
rellena
semaforo
fin

para questio
sl
ponpos [-50 440]
gd 90
rotula [Qué color quieres que se encieda?]
sl
ponpos [-50 415]
rotula [A = Rojo,B = Amarillo,C = Verde]
haz "num1 leepalabra
sl
ponpos [-50 390]
bl
rotula [Cuanto tiempo quieres que se encieda?]
haz "num2 leepalabra
fin

para rect1
bl
ponpos [0 0]
repite 4[av 300 gd 90 av 90 gd 90]
sl
ponpos [3 3]
poccr [255 165 0]
rellena
sl

fin

para rect2
sl
ponpos [50 0]
bl
gd 180
repite 2[av 130 gd 90 av 15 gd 90]
sl
ponpos [49 -3]
bl
poccr [6 6 6]
rellena
sl

fin

para Rojo
sl
ponpos [70 250]
poccr [255 0 0]
rellena
espera :num2 * 60
norojo
alto

fin

para semaforo
trafico
questio
si :num1 = "A [rojo] [si :num1 = "B [amarillo] [si :num1 = "C [verde]]]
sl
incorrecto
sl
semaforo

fin

para trafico
bp
gd 90
ponpos [-50 370]
rotula [Procediment per a fer un semàfor]
espera 120
bp

rect1
rect2
sl
ponpos [72.5 50]
bl
circulo
sl
ponpos [72.5 150]
bl
gi 180
circulo
sl
ponpos [72.5 250]
bl
gi 180
circulo
sl
ponpos [70 150]
negro
ponpos [70 250]
negro
ponpos [70 50]
negro

fin

para Verde
sl
ponpos [70 50]
poccr [0 255 0]
rellena
espera :num2 * 60
noverde

fin

5) Ejercicio raiz

para raiz
bp
sl
ponpos [0 300]
gd 90
bl
rotula [Procedimiento para raiz]
espera 60
bp
sl
ponpos [0 250]
gd 90
rotula [De que número quieres hacer la raiz cuadrada?]
haz "var1 leepalabra
ponpos [0 200]
bl
si :var1>0 [Rotula (Lista "La "raíz "cuadrada "de :var1 "es: rc :var1)]
espera 80
si :var1<0 [Rotula [No se puede hacer la raiz de un numero negativo]]
espera 120
raiz 

fin 

6) Ejercicio circuito

para borde
si pixel = [0 0 0] [juego]
av 1 repite 80000[]
si pixel = [237 28 36] [alto]
borde

fin

para control
haz "tecla car lc
si :tecla = 4 [gi 20]
si :tecla = 6 [gd 20]
fin

para corredor
bp
cuestion
fin

para cuestion
sl
ponpos [-275 275]
bl gd 90
rotula [¿Quien es el corredor?]
haz "var1 leepalabra
espera 120
juego
fin

para final
si pixel = [237 28 36] [activa 1]
ot
sl
ponpos [100 275]
bl gd 90
rotula [¡¡VICTORIA,JORGE ES EL MEJOR!!]
espera 240
bp
cuestion

fin

para juego
bp
sl
ponpos [-275 0] gd 90
ponfoco [Pantalla de MSWLogo]
ponteclado [control]
cargadib "circuito.bmp
espera 150
borde
final



fin