PRINT
PRINT "底辺の長さが１０、高さが１０の三角形"
PRINT
INPUT PROMPT "頂点のχ座標値？ ":Q
PRINT
SET WINDOW -1,11,-1,11
DRAW GRID
SET LINE WIDTH 3
PLOT LINES:0,0;10,0
PLOT LINES:0,0;Q,10
PLOT LINES:10,0;Q,10
INPUT PROMPT "底辺上の点のχ座標値？ ":W
INPUT PROMPT "左辺上の点のｙ座標値？ ":E
PRINT
LET R=10*E*(10-W)/(W*(10-E)+E*(10-W))
PRINT "右辺上の点（赤色）の座標は (";ROUND(10-(10-Q)*R/10,2);",";ROUND(R,2);") です。"
PRINT
DRAW DISK WITH SCALE(0.1)*SHIFT(W,0)
DRAW DISK WITH SCALE(0.1)*SHIFT(E*Q/10,E)
PLOT LINES:W,0;Q,10
PLOT LINES:10,0;E*Q/10,E
SET COLOR 4
DRAW DISK WITH SCALE(0.1)*SHIFT(10-(10-Q)*R/10,R)
PLOT LINES:0,0;10-(10-Q)*R/10,R
END