QBASIC PROGRAMS STRING PATTERNS FUNCTION.....END FUNCTION Download qbasic in android A .Write a program (WAP) using FUNCTION Procedure statement: 👈 click B. Numeric patterns in function procedure:click 👈 C. WAP to make a string patterns: A. *SCIENCE* *CIENC* *IEN* *E* DECLARE FUNCTION a$(n$,I,B) CLS B=1 n$="SCIENCE" FOR I=LEN(N$) TO 1 STEP -2 PRINT TAB(B);"*";A$(N$,I,B);"*" B=B+1 NEXT I FUNCTION A$(N$,I,B) A$=MID$(N$,B,I) END FUNCTION B. C COM COMPU COMPUTE COMPUTERS DECLARE FUNCTION A$(N$,I) CLS N$="COMPUTERS" FOR I=1 TO LEN(N$) STEP 2 PRINT A$(N$,I) NEXT I END FUNCTION A$(N$,I) A$=LEFT$(N$,I) END FUNTION
Qbasic Programs function procedure A .Write a program (WAP) using FUNCTION Procedure statement: C. Wap a qbasic program in string patterns 👈 click Download qbasic in android B. Wap in QBASIC to display the following numeric series using FUNCTION statement. i).1, 8, 27,......upto 10th term Declare function n(i) Cls For i=1 to 10 Print n(i); Next i End Function n(i) n=i^3 End function ii) 2 1 3 4 7 11 ...upto 11th term Declare function s(a,b,c) Cls A=2 B=1 For i=1 to 11 Print s(a,b,c); Next i End Function s(a,b,c) S=A C=A+B A=B B=C END FUNCTION iii). 50, 45, 35,....0 declare function r(a,b) cls a=50 b=5 While a>=0 Print r(a,b); Wend End Function r(a,b) r=a a=a-b b=b+5 end function 4). 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 Declare function n(i) Cls For i=1 to 5 For j=1 to i Print n(i); Next j Print Next i End Function n(i) N=i End function 5)....