4.　初等幾何学の作図例題

10 REM  三辺の長さを与えて三角形を作図する
20 DPERAS
30 LET L1,L2,L3=150,200,250
40 DEF2PT P
50 DEF2CR R
60 DEF2ED E
70 PA=-120:PB=PA+L3
80 LET X,Y=PA: DPTEXT X,Y,"PA"
90 LET X,Y=PB: DPTEXT X,Y,"PB"
100 LET R1,R2=PA,L2,PB,L1
110 R1=R1:R2=R2:REM circle drawing
120 PC=R1&R2
130 LET X,Y=PC: DPTEXT X,Y,"PC"
140 E1=PA@PB:E2=PB@PC:E3=PC@PA
150 DPTEXT -100,250,"三辺を与えて"
160 DPTEXT -100,225,"三角形の作図"
170 PRINT "PC= ";PC

図4.1　三辺の長さを与えて三角形を作図する