Computer-7 Computer

 




       Write the program of the following

a. To calculate area of a rectangle.
REM PROGRAM TO DISPLAY AREA OF RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
A = L * B
PRINT “AREA OF RECTANGLE”; A
END

b. To calculate perimeter of a rectangle.
REM PROGRAM TO DISPLAY PERIMETER OF A RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
P=2(l+b)
PRINT “AREA OF RECTANGLE ”; P
END

c. To calculate area of a circle.
REM PROGRAM TO DISPLAY AREA OF CIRCLE
CLS
INPUT “ENTER RADIUS”; R
A = 3.14 * R ^ 2
PRINT “AREA OF CIRCLE ”; A
END

d. To calculate perimeter of a circle.
CLS
REM PROGRAM TO DISPLAY PERIMETER OF A CIRCLE
INPUT" ENTER THE RADIUS " ;R
LET PERIMETER =22/7*R*2
PRINT " THE AREA OF CIRCLE =" ;PERIMETER
END

e. To calculate sum of two different numbers.
REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS
CLS
INPUT “ENTER THE FIRST NUMBER”; A
INPUT “ENTER THE SECOND NUMBER”; B
C = A + B
PRINT “SUM OF TWO NUMBERS ”; C
END

F. To calculate product of two different numbers.
REM PROGRAM TO DISPLAY PRODUCT OF TWO NUMBERS
CLS
INPUT “ENTER THE FIRST NUMBER”; A
INPUT “ENTER THE SECOND NUMBER”; B
C = A * B
PRINT “PRODUCT OF TWO NUMBERS ”; C
END

g. To calculate difference of two different numbers.
REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS
CLS
INPUT “ENTER THE FIRST NUMBER”; A
INPUT “ENTER THE SECOND NUMBER”; B
C = A - B
PRINT “DIFFERENCE OF TWO NUMBERS ”; C
END

H. To input three different numbers and decide the smallest number amongst the three using IF…THEN statement.
REM program to enter any three numbers and find the smallest number
CLS
INPUT "ENTER THE FIRST NUMBER"; A
INPUT "ENTER THE SECOND NUMBER";B
INPUT "ENTER THE THIRD NUMBER"; C
IF A<B AND A<C THEN
PRINT "FIRST NUMBER IS SMALLEST";A
ELSEIF B<A AND B<C THEN
PRINT "SECOND NUMBER IS SMALLEST";B
ELSEIF C<A AND C<B THEN
PRINT "THIRD NUMBER IS SMALLEST";C
ELSE
PRINT "ALL ARE EQUAL"
ENDIF
END

I . To input days of a week and decide "school day" or "holiday" using IF ….THEN statement.
REM PROGRAM TO ENTER ANY DAY FROM SUNDAY TO SATURDAY AND PRINT "SCHOOL DAY" OR "HOLIDAY".
CLS
INPUT "ENTER ANY DAY";DAY$
IF DAY$="SUNDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="MONDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="TUESDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="WEDNESDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="THURSDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="FRIDAY" THEN
PRINT "SCHOOL DAY"
ELSEIF DAY$="SATURDAY" THEN
PRINT "HOLIDAY"
ELSE
PRINT "INVALID INPUT"
ENDIF
END
J. To decide whether an input number is divided by 5 and 3 or not?
CLS
INPUT "ENTER THE NUMBER";N
IF N/5=0 AND N/3=0 THEN
PRINT "DIVISIBLE"
ELSE
PRINT "NOT DIVISIBLE"
END IF
END