Lenguaje simple Dibuje un rayo en el tablero de dibujo (es decir, comenzando desde un punto, pasando por otro punto y luego extendiéndose infinitamente). ¿Puede algún experto darme algún consejo?

.Subrutina _botón1_clicked

.Variable local x, entero

.Variable local y, entero

. Variable local yy, número entero

. Variable local xx, número entero

. Variable local k, número decimal de doble precisión

Variable local ax, entero

. Variable local sí, número entero

. Variable local v, entero

Panel 1.clear (, , , )

x = toma un número aleatorio (5, ancho del panel 1)

y = Toma un número aleatorio (5, la altura del panel 1)

xx = Toma un número aleatorio (5, el ancho del panel 1)

yy = Toma un número aleatorio ( 5, altura del panel 1)

Panel 1.color del pincel = #rojo

Panel 1. Dibuja una elipse (x - 3, y - 3, x 3, y 3)

Panel 1.color del pincel = #azul

Panel 1. Dibujar elipse (xx - 3, yy - 3, xx 3, yy 3)

k = (y - yy) ÷ (x - xx)

v = seleccionar (x > xx, -10000, 10000)

ay = y v × k

ax = v x

Ax = y v × k

Ax = v x

Tablero 1.

Tablero 1. Dibuja una línea (x, y, ax, ay)

Dibuja una línea más larga que el panel... El código anterior no encuentra el caso en el que x - xx sea igual a 0.