|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »EKS5«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »EKS5«
0010 // brug af færdige procedurer - her med brug af CIRK 0020 //-------------------------------------------------- 0030 OPEN GRAPHICS 0040 WINDOW 0,60,0,40 0050 INPUT "indtast A's koordinater (mellem 0-60 og 0-40): ": xa,ya 0060 INPUT "indtast trekantens grundlinie og højde: ": g,h 0070 INPUT "indtast radius i de tre cirkler: ": r 0080 CLEAR 0090 MOVETO xa,ya 0100 EXEC trekant(g,h) 0110 EXEC cirk(xa,ya,r) 0120 EXEC cirk(xa+0.5*g,ya+h,r) 0130 EXEC cirk(xa+g,ya,r) 0140 END //--------------- slut hovedprogram ------------------ 1200 PROC trekant(g,h) 1210 DRAW g,0 1220 DRAW -0.5*g,h 1230 DRAW -0.5*g,-h 1240 ENDPROC trekant 1250 // 1600 PROC cirk(x0,y0,r) 1610 MOVETO x0+r,y0 1620 CIRCLE r,0,2*PI 1630 MOVETO x0,y0 1640 ENDPROC cirk «eof»