Saved Bookmarks
| 1. |
Write program in Q Basics to find the area of circle and rectangle |
|
Answer» Answer:
CLS INPUT "ENTER LENGTH OF RECTANGLE"; L INPUT "ENTER BREADTH OF RECTANGLE"; B INPUT "ENTER RADIUS OF A CIRCLE"; R PRINT "AREA OF THE RECTANGLE "; L*B PRINT "AREA OF THE CIRCLE"; 2*3.14*R
CLS INPUT "ENTER LENGTH OF RECTANGLE"; L INPUT "ENTER BREADTH OF RECTANGLE"; B INPUT "ENTER RADIUS OF A CIRCLE"; R PRINT "TYPE 'A' TO GET TOTAL AREA OF THE RECTANGLE" PRINT "TYPE 'B' TO GET AREA OF THE CIRCLE" INPUT "ENTER YOUR CHOICE:"; CH CH = UCASE(CH) SELECT CASE CH CASE "A" PRINT "AREA OF THE RECTANGLE "; L*B CASE "B" PRINT "AREA OF THE CIRCLE"; 2*3.14*R CASE ELSE PRINT "INVALID ENTRY, TRY AGAIN !" END SELECT |
|