Hi it's me Susan magar and i am gonna tell about my father in father's day Being a father is a tough, but incredibly fulfilling job, and letting Dad know how important he is makes his job even more rewarding. Finding the right words to describe how grateful you are to be able to call your father "Dad" doing difficultly job to make us happy and live peacefully.
SUB SERIES A = 1 B = 2 FOR I = 1 TO 13 PRINT A; C = A+B A = B B = C NEXT I END SUB Wap to check whether the given number is perfect square or not DECLARE FUNCTION PERFECT (S) CLS INPUT "ENTER ANY NUMBER"; N S = SQR(N) PR = PERFECT (S) IF PR = S THEN PRINT "PERFECT SQUARE" ELSE PRINT "NOT PERFECT SQUARE" END IF END FUNCTION PERFECT (S) PERFECT = INT (S) END FUNCTION Wap to find whether the given number is positive negative or zero DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NO.";N CALL CHECK(N) END SUB CHECK(N) IF N>0 THEN PRINT"NUMBER IS POSITIVE" ELSE IF N<0 THEN PRINT"NUMBER IS NEGATIVE" ELSE PRINT"NUMBER IS NEUTRAL" END IF END SUB Wap to erase vowels from given string DECLARE FUNCTION ERA(A$) CLS INPUT"ENTER ANY STRING";A$ PRINT"STRING WITHOUT VOWELS =";ERA(A$) END FUNCTION ERA(A$) FOR I = 1 TO LEN (A$) B$=MID$(A$,I,1) ...
Comments
Post a Comment