DIM L AS SINGLE DIM B AS SINGLE DIM SHAPE AS STRING CLS PRINT "PERIMETER FINDER BY NAMAN SAIKIA. PRESS ENTER TO CONTINUE" PRINT "THIS ONLY ACCEPTS LENGTH IN CENTIMETER AND NOTHING ELSE THE PERIMETER OF SHAPES THAT THIS PROGRAM FINDS ARE PARALLELOGRAM, SQUARE,RECTANGLE,RHOMBUS " DO WHILE REPE$ <> "N" INPUT "ENTER SHAPE "; SHAPE$ IF SHAPE$ = "RECTANGLE" THEN INPUT "ENTER LENGTH"; L INPUT "ENTER BREADTH"; B PERI = 2 * (L + B) PRINT "ANSWER IS"; PERI END IF IF SHAPE$ = "SQUARE" THEN INPUT "ENTER LENGTH OF ONE SIDE"; L PERI = L * 4 PRINT "ANSWER IS"; PERI END IF IF SHAPE$ = "RHOMBUS" THEN INPUT "ENTER LENGTH OF ONE SIDE"; L PERI = L * 4 PRINT "ANSWER IS"; PERI END IF IF SHAPE$ = "PARALLELOGRAM" THEN INPUT "ENTER LENGTH"; L INPUT "ENTER BREADTH"; B PERI = 2 * (L + B) PRINT "ANSWER IS"; PERI END IF IF SHAPE$ = "EQUILATERAL TRIANGLE" THEN INPUT "ENTER LENGTH"; L6 PERI = L6 * 3 END IF IF SHAPE$ = "ISOCELES TRIANGLE" THEN INPUT "ENTER LENGTH"; LN INPUT "ENTER LENGTH"; L0 INPUT "ENTER LENGTH"; LP PERI = LN * 2 + LP OR L0 * 2 + LN OR LP * 2 + LN PRINT "ANSWER IS"; PERI END IF IF SHAPE$ = "SCALENE TRIANGLE" THEN INPUT "ENTER 1ST SIDE"; S1 INPUT "ENTER 2ND SIDE"; S2 INPUT "ENTER 3RD SIDE"; S3 PERI = S1 + S2 + S3 PRINT "ANSWER IS"; PERI END IF INPUT "AGAIN(Y/N)"; REPE$ LOOP PRINT "THANK YOU FOR TRYING. RATE IF IMPRESSED" INPUT "ENTER NUMBER OF STARS"; R INPUT "MESSAGE FOR RATING"; RAT$ PRINT "THANK YOU FOR RATING US. OUR FOUNDER NAMAN SAIKIA WILL VIEW IT LATER" INPUT "ENTER SUGGESTION IF ANY"; RATE$ PRINT "THANK YOU FOR YOUR SUGGESTION" END