Good For Nothing : Amrit's blog

1. WAP to modify division identification program using SELECT CASE. => CLS      INPUT "Enter secured percentage"; P      SELECT CASE P      CASE IS >= 60      PRINT "First Division"      CASE 50 TO 59.9      PRINT "Second Division"      CASE 40 TO 49.9      PRINT "Third Division"      CASE ELSE      PRINT "Failed"      END SELECT      END 2. WAP to check whether the number is positive or negative or zero. => CLS      INPUT "Enter any number"'; A      SELECT CASE A      CASE IS > 0      PRINT "Number is positive"      CASE IS< 0      PRINT "Number is zero"      CASE ELSE      END SELECT      END 3. WAP to find area of circle asking the ...

1. WAP to find the are of four walls. => CLS      INPUT "Enter length"; l      INPUT "Enter breadth"; b      INPUT "Enter height"; h      A = 2 * h* (l + b)      PRINT "Area of four walls = "; A      END 2. WAP to display are of triangle. => CLS      INPUT "Enter height"; h      INPUT "Enter base"; b      A =1/2 * b * h      PRINT "Area of triangle = "; A      END 3. WAP to display area of parallelogram. => CLS      INPUT "Enter base"; b      INPUT "Enter height"; h      A = b * h      PRINT "Area of parallelogram = "; A      END 4. WAP to display volume of cylinder. => CLS      INPUT "Enter radius of base "; b      INPUT "Enter height of cylinder" ; h      V =...