Qbasic Programs
WAP to find the area of rectangle. =)CLS INPUT "ENTER LENGTH" ; L INPUT "ENTER BREADTH" ; B AREA = L * B PRINT "AREA OF RECTANGLE IS=" ; AREA END 2. WAP to display the area of circle. =)CLS INPUT "ENTER RADIUS " ; R A = 22/7^2 PRINT "AREA OF CIRCLE" ; A END 3. WAP to find the area of square. =)CLS INPUT "ENTER LENGTH" ; L A = L^2 PRINT "AREA OF SQUARE=" ; A END 4. WAP to find the area of triangle. =)CLS INPUT "ENTER BASE" ; B INPUT "ENTER HEIGHT" ; H A = 1/2*B*H PRINT "AREA OF TRIANGLE=" ;A END 5. WAP to find the volume of cylinder. =)CLS INPUT "ENTER RADIUS" ; R INPUT "ENTER HEIGHT" ; H V = 22/7 * R ^ 2 * H PRINT " VOLUME OF CYLINDER =" ; V END 6. WAP to input percentage and display pass or fail. =)CLS INPUT "ENTER PERCENTAGE" ; P IF P > = 40 THEN PRINT "PASS" ELSE PRINT "FAI