Programa Ficha de Domino

setscreen ("graphics:v16")
procedure dibuja_pto (n : int, x, y : int)
var h, k : int
case n of
label 1 :
h := x + 5
k := y + 5
label 2 :
h := x + 13
k := y + 5
label 3 :
h := x + 21
k := y + 5
label 4 :
h := x + 5
k := y + 13
label 5 :
h := x + 13
k := y + 13
label 6 :
h := x + 21
k := y + 13
label 7 :
h := x + 5
k := y + 21
label 8 :
h := x + 13
k := y + 21
label 9 :
h := x + 21
k := y + 21
end case
drawfilloval (h, k, 3, 3, 4)
end dibuja_pto
procedure dibuja_cuadrado (n : int, x, y, p : int)
if p = 0 then
if n = 2 or n = 3 then
dibuja_pto (7, x, y)
dibuja_pto (3, x, y)
end if
if n = 6 then
dibuja_pto (2, x, y)
dibuja_pto (8, x, y)
end if
else
if n = 2 or n = 3 then
dibuja_pto (1, x, y)
dibuja_pto (9, x, y)
end if
if n = 6 then
dibuja_pto (4, x, y)
dibuja_pto (6, x, y)
end if
end if
if n = 1 or n = 5 or n = 3 then
dibuja_pto (5, x, y)
end if
if n = 4 or n = 5 or n = 6 then
dibuja_pto (1, x, y)
dibuja_pto (3, x, y)
dibuja_pto (7, x, y)
dibuja_pto (9, x, y)
end if
end dibuja_cuadrado
procedure dibuja_ficha (n, m, x, y, p : int)
if p = 0 then
drawfillbox (x, y, x + 50, y + 25, 0)
drawbox (x, y, x + 50, y + 25, 12)
drawline (x + 25, y, x + 25, y + 25, 12)
drawfilloval (x + 25, y + 13, 2, 2, 12)
dibuja_cuadrado (n, x, y, p)
dibuja_cuadrado (m, x + 25, y, p)
else
drawfillbox (x, y, x + 25, y + 50, 0)
drawbox (x, y, x + 25, y + 50, 12)
drawline (x, y + 25, x + 25, y + 25, 12)
drawfilloval (x + 13, y + 25, 2, 2, 12)
dibuja_cuadrado (n, x, y, p)
dibuja_cuadrado (m, x, y + 25, p)
end if
end dibuja_ficha

Falta la parte de solicitud de numeros...
al dibujar ficha, el ultimo parametro p indica si es vertical u horizontal... prueben ustedes el funcionamiento

Trabajo con Nota Turing

Escriba un programa que realice las siguientes tareas:

1.- Pantalla de Seleccion


1.- Cuadrado
2.- Círculo
3.- Rectángulo

2.- Pantalla de Datos

Pedir medidas de la figura que eligio en 1

3.- Desplegar

Dibujar la figura al centro de la pantalla
Moverla
Al presionar ENTER fijar.

Trabajo Turing

Dado el siguiente programa

setscreen ("graphics:v16")
var x,y :int
var op : string (1)
loop
getch (op)
put ord (op)
exit when ord (op) = 10
end loop
x:=320
y:=240
drawfilloval (x, y, 5, 5, 5)
procedure arriba
end arriba
procedure abajo
end abajo
procedure derecha
end derecha
procedure izquierda
end izquierda
loop
getch (op)
if ord (op) = 200 then
arriba
elsif ord (op) = 208 then
abajo
elsif ord (op) = 205 then
derecha
elsif ord (op) = 203 then
izquierda
elsif ord (op) = 10 then
exit
end if
end loop

Copiarlo a turing (copiar-pegar)

Analizarlo... ejecutalo y infiere que hace cada parte del programa

Diseña los procedimientos arriba, abajo, derecha e izquierda, para que el ovalo central siga el movimiento de las flechas.

Indicación
recuerda que el movimiento en pantalla NO EXISTE, es solo una apariencia...
se crea BORRANDO la imagen anterior y volviendo a dibujarla en otro lugar próximo.

Por ejemplo para subir... se puede usar

drawfilloval(x,y,5,5,0)
y:=y+1
drawfilloval(x,y,5,5,5)

Ustedes modifican para los las otras direcciones...
Tambiens e podria modificar para que se mueva en diagonal, segun las flechas de teclado numérico

Problemas Conductuales y Disciplina Aporte del Profesor Luis J. Christian Guerrero

Vamos a Conversar de Problemas Conductuales, Disciplina y Normas.

Material de Jornada de Trabajo del día Sábado 2 de Agosto.

Dirigido especialmente a apoderados.