Practical#15

SOURCE PROGRAM

10 REM DRAW THE FOLOWING GEOMETRICAL SHAPES

20 REM TRIANGLE, HEXAGONE AND RECTANGLE

30 CLS

40 SCREEN 1

50 DRAW "BU50BL140"

60 DRAW "E40F40L80"

70 DRAW "BU40BR100"

80 DRAW "R50F25G25L50H25E25"

90 LINE(200,20) - (300,60), , B

100 LOCATE 10,3 : PRINT "TRIANGLE"; TAB(16) "HEXAGONE"; TAB(28) "RECTANGLE"

110 END


OUTPUT

Return to Top