segmento(x1,y1,x2,y2,cuantos) {
cuantos:=cuantos-1;
avance_x:=(x2-x1)/cuantos;
avance_y:=(y2-y1)/cuantos;
dibuja_punto(x1,y1,avance_x,avance_y,0,cuantos);
}
dibuja_punto(x1,y1,avance_x,avance_y,contador,cuantos) {
xp:=x1+contador*avance_x;
yp:=y1+contador*avance_y;
ob1:=crear_circulo(xp,yp,0.1);
asignar_color(ob1,negro);
(contador<cuantos)?dibuja_punto(x1,y1,avance_x,avance_y,contador+1,cuantos):'NADA';
}
S
// control de entrada para el valor de x del punto de inicio del segmento;
entrada_x1:=crear_entrada(-8.5,-8,3,1,'p1_x');
asignar_valor(entrada_x1,p1_x);
asignar_color(entrada_x1,blanco);
// control de entrada para el valor de y del punto de inicio del segmento;
entrada_y1:=crear_entrada(-5,-8,3,1,'p1_y');
asignar_valor(entrada_y1,p1_y);
asignar_color(entrada_y1,blanco);
// control de entrada para el valor de x del punto de final del segmento;
entrada_x2:=crear_entrada(-1.5,-8,3,1,'p2_x');
asignar_valor(entrada_x2,p2_x);
asignar_color(entrada_x2,blanco);
// control de entrada para el valor de y del punto de final del segmento;
entrada_y2:=crear_entrada(2,-8,3,1,'p2_y');
asignar_valor(entrada_y2,p2_y);
asignar_color(entrada_y2,blanco);
// control de entrada para el valor cuantos puntos dibujar;
entrada_cuantos:=crear_entrada(7,-8,6,1,'cuantos_puntos');
asignar_valor(entrada_cuantos,cuantos_puntos);
asignar_color(entrada_cuantos,blanco);
// botón para dibujar el segmento, con la acción especial Ejecutar();
dibujar:=crear_boton(0,-9.5,6,1);
asignar_etiqueta(dibujar,'Dibujar segmento');
asignar_accion(dibujar,'Ejecutar');
asignar_color(dibujar,verde);
// se dibuja el segmento;
segmento(p1_x,p1_y,p2_x,p2_y,cuantos_puntos);
S