Dashain homework

WAP to find area of rectangle 

CLS
INPUT "INTER LENGTH";L
INPUT "INTER BREADTH";B
A=L*B
PRINT "AREA OF RECTANGLE=";A
END


WAP to find area of circle

CLS
INPUT "ENTER RADIUS";R
A=22/7 *R^2
PRINT"AREA OF CIRCLE=";A
END


WAP to find a area of square

CLS
INPUT "ENTER Length";L
A=L^2
PRINT "area of square =";A
END


WAP to find a area of triangle

CLS
INPUT "ENTER base";B
INPUT "ENTER height";H
A=1/2 *B*H
PRINT "AREA of triangle";A
END



WAP to find a volume of cylinder

CLS
INPUT "ENTER Radius";R
INPUT "INTER Height";H
V=22/7 *R^2*H
PRINT "Volume of cylinder =";V
END


WAP to find input percentage and display pass or fail

CLS
INPUT "ENTER Percentage";P
IF P> =40 THEN
PRINT"PASS"
ELSE
PRINT" FAIL"
END


WAP to find area of rectangle 

CLS
INPUT "INTER LENGTH";L
INPUT "INTER BREADTH";B
A=L*B
PRINT "AREA OF RECTANGLE=";A
END

WAP to find area of circle

CLS
INPUT "ENTER RADIUS";R
A=22/7 *R^2
PRINT"AREA OF CIRCLE=";A
END


WAP to find a area of square

CLS
INPUT "ENTER Length";L
A=L^2
PRINT "area of square =";A
END


WAP to find a area of triangle

CLS
INPUT "ENTER base";B
INPUT "ENTER height";H
A=1/2 *B*H
PRINT "AREA of triangle";A
END



WAP to find a volume of cylinder

CLS
INPUT "ENTER Radius";R
INPUT "INTER Height";H
V=22/7 *R^2*H
PRINT "Volume of cylinder =";V
END


WAP to find input percentage and display pass or fail

CLS
INPUT "ENTER Percentage";P
IF P> =40 THEN
PRINT"PASS"
ELSE
PRINT" FAIL"
END


WAP to input any number and check odd or even

CLS
INPUT "ENTER any number";N
IF N MOD 2=O THEN
PRINT "EVEN NUMBER"
ELSE
PRINT "ODD NUMBER"
END IF
END

WAP to display 5,10,15............50
CLS
For I =5 to 10 50 STEPS
PRINT I
NEXT I
END

WAP to display 100,90,80.........10
CLS
I =100
WHILE I =10 
PRINT I
I = I-10
WEND
END

WAP to display 2,4,6,8...........20
CLS
I =2
DO WHILE I<=20
PRINT I
I= I+2
LOOP
END
END

WAP to display 100,90,80...10 
CLS
FOR 1= 100 To 10 STEP-10 
PRINT I 
NEXT I 
END 

WAP to display 2,4,6,8,...20

CLS 
FOR I=2TO20 STEP 2
PRINT I 
NEXT I 
END 

WAP TO DISPLAY 50,45,40...5
CLS 
FORI=50TO5 STEP5
PRINT I 
NEXT I 
END .T "ENTER any number";N
IF N MOD 2=O THEN
PRINT "EVEN NUMBER"
ELSE
PRINT "ODD NUMBER"
END IF
END

WAP to display 5,10,15............50
CLS
For I =5 to 10 50 STEPS
PRINT I
NEXT I
END

WAP to display 100,90,80.........10
CL S
I =100
WHILE I =10 
PRINT I
I = I-10
WEND
END

WAP to display 2,4,6,8...........20
CLS
I =2
DO WHILE I<=20
PRINT I
I= I+2
LOOP
END
END

WAP to find area of rectangle 

CLS
INPUT "INTER LENGTH";L
INPUT "INTER BREADTH";B
A=L*B
PRINT "AREA OF RECTANGLE=";A
END



WAP to find area of circle

CLS
INPUT "ENTER RADIUS";R
A=22/7 *R^2
PRINT"AREA OF CIRCLE=";A
END


WAP to find a area of square

CLS
INPUT "ENTER Length";L
A=L^2
PRINT "area of square =";A
END


WAP to find a area of triangle

CLS
INPUT "ENTER base";B
INPUT "ENTER height";H
A=1/2 *B*H
PRINT "AREA of triangle";A
END



WAP to find a volume of cylinder

CLS
INPUT "ENTER Radius";R
INPUT "INTER Height";H
V=22/7 *R^2*H
PRINT "Volume of cylinder =";V
END


WAP to find input percentage and display pass or fail

CLS
INPUT "ENTER Percentage";P
IF P> =40 THEN
PRINT"PASS"
ELSE
PRINT" FAIL"
END


WAP to input any number and check odd or even

CLS
INPUT "ENTER any number";N
IF N MOD 2=O THEN
PRINT "EVEN NUMBER"
ELSE
PRINT "ODD NUMBER"
END IF
END
WAP to display 5,10,15............50
CLS
For I =5 to 10 50 STEPS
PRINT I
NEXT I
END

WAP to display 100,90,80.........10
CLS
I =100
WHILE I =10 
PRINT I
I = I-10
WEND
END

WAP to display 2,4,6,8...........20
CLS
I =2
DO WHILE I<=20
PRINT I
I= I+2
LOOP
END
END

WAP to display 100,90,80...10 
CLS
FOR 1= 100 To 10 STEP-10 
PRINT I 
NEXT I 
END 

WAP to display 2,4,6,8,...20
CLS 
FOR I=2TO20 STEP 2
PRINT I 
NEXT I 
END 

WAP TO DISPLAY 50,45,40...5
CLS 
FORI=50TO5 STEP5
PRINT I 
NEXT I 
END 

WAP to display 2,4,6,8,...20

CLS 
FOR I=2TO20 STEP 2
PRINT I 
NEXT I 
END 

WAP TO DISPLAY 50,45,40...5

CLS 
FORI=50TO5 STEP5
PRINT I 
NEXT I 
END 

Comments

Popular posts from this blog

Experiance of dashain

Project work