|
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: 1024 (0x400)
Types: TextFile
Names: »TRETRAP«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »TRETRAP«
0010 // programnavn TRETRAP (tegner Trekant eller Trapez) 0020 //-------------------------------------------------- 0030 OPEN GRAPHICS // (i Metanic: GRAFIK) 0040 WINDOW 0,100,0,100 0050 MOVETO 0,0 0060 INPUT "hvilken figur ønskes? (tast 1 for trekant og 2 for trapez):": svar 0070 IF svar=1 THEN 0080 INPUT "indtast trekantens grundlinie (0-100): ": g 0090 INPUT "indtast trekantens højde (0-100): ": h 0100 CLEAR 0110 EXEC trekant(g,h) 0120 ELSE 0130 INPUT "indtast trapez'ets grundlinie: ": g 0140 INPUT "indtast trapez'ets højde: ": h 0150 CLEAR 0160 EXEC trapez(g,h) 0170 ENDIF 0180 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 1400 PROC trapez(g,h) 1410 DRAW g,0 1420 DRAW -h,h 1430 DRAW -(g-2*h),0 1440 DRAW -h,-h 1450 ENDPROC trapez «eof»