N NE NEP NEPA NEPAL PATTERN 251. WAP to display N NE NEP NEPA NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT LEFT$(S$, I) NEXT I END SUB 252. WAP to display L AL PAL EPAL NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT RIGHT$(S$, I) NEXT I END SUB 253. WAP to display NEPAL EPAL PAL AL L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT RIGHT$(S$, I) NEXT I END SUB 253. WAP to display NEPAL NEPA NEP NE N USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT LEFT$(S$, I) NEXT I END SUB 254. WAP to display N E P A L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB P...
Easy Qbasic Programs 3)Write a program to find the area of rectangle. Cls Input " enter the length " ;l Input " enter the breadth " ;b let A = l*b Print" the area of rectangle=" ;a End 4)Write a program to find the area of the triangle. Cls Input " enter the base" ;b Input " enter the height" ;h let T = 1/2*b*h Print" The area of triangle=" ;T End 5)Write a program to find the area of the circle. Cls Input" Enter the radius " ;R Let C=22/7*R^2 Print " The area of circle =" ;C End 6)Write a program to find the circumference of the circle. Cls Input" Enter the radius " ;R Let Circumference=22/7*R*2 Print " The area of circle =" ;Circumference End 7)Write a program to find the area of the square. Cls Input" Enter the number" ;n Let square= n^2 Print" The area of square=" ;Square End
Write an algorithm to do selction sort on an array to put the number in descending order
ReplyDelete