SEMAFORO

PROCEDIMIENTO

para rectangulo

poncl 6

repite 2[av 150 gd 90 av 50 gd 90]

gd 10

av 10

rellena

re 10 gi 10

fin

rectangulo

bp

para circulo

repite 360 [av 0.3 gd 1]

fin

circulo

para circuloambar

poncl 45

circulo

gd 90

av 10

rellena

re 10

gi 90

fin

circuloambar

Repite 360 [av 0.3 gd 1]

Fin

rectangulo av 30

re 10

gi 10

fin

circulo rojo

bp

av 30

gd 90

av 10

para semaforo

rectangulo

sl

av 30

gd 90

av 10

gi 90

bl

circuloverde

sl

av 50

bl

circuloambar

sl

av 50

bl

circulorojo

fin

semaforo

Poling

El tablero

COMO HACER UN TABLERO :

para cuadn

repite 4 [ av 50 gd 90 ]

gd 45 av 10

rellena

re 10 gi 45

fin

cuadn

para cuadb

repite 4 [ av 50 gi 90 ]

fin

cuadb

bp

para filan

repite 4 [ cuadn gd 90 av 50 cuadb av 50 gi 90 ]

fin

filan

para filab

repite 3 [ cuadb cuadn gd 90 av 50 cuadb av 50 gi 90 cuadn ]

fin

filab

para tablero

repite 4 [ filab gi 90 av 350 gd 90 re 50 filan gd 90 re 350 gi 90 re 50]

fin

tablero

ultimo ejercico

procedimiento

para rayo :n :l

repite :n [av :l re :l gd 360/ :n]

fin

rayo 10 100

procedimiento

para polig :n

repite :n [av 100 gd 360/:n]

fin

polig 6

polig 9

Winlogo

WinLogo

para pitag :x :y

haz "hipo rc(:x*:x + :y*:y )

(es [la hipotenusa es] :hipo )

fin

pitag 2 3