Skip to main content

QBASIC OUTPUT  PROGRAMS

[SEE 2072]
DECLARE SUB DISPLAY (T$)
CLS
T$="COMPUTER"
CALL DISPLAY(T$)
END

SUB DISPLAY(T$)
FOR C=1 TO LEN(T$)
D$=MID$(T$,C,1)
PRINT D$
NEXT C
END SUB

O/P
C  M  U  E

Comments

Post a Comment

Popular posts from this blog

                                  ORPHANAGE VISIT                                      BY SEE BATCH 2075 “Don’t give to eat, give to inspire others” With this motto in our mind, we reflected the sense of the above mentioned statement in our actions. On March 4 2019(Monday) on the special occasion of Shivaratri, we visited Nepal Children’s Home, Siphal, Kathmandu  which has been actively  working since 2021 BS for raising orphans, disables & needy ones. There  were 108 orphans & disabled above 4 years to 35 years old. There also lived 6  orphans of our age, appearing for SEE this year.   With help & support from our class teacher Deepak Sir & cooperation among students of Grade X, we were able to help the children living there with various educ...
Post a Comment
Read more
DECLARE FUNCTION REVE$(S$) S$="NEPS" PRINT REVE$(S$) END FUNCTION REVE$(S$) C$=MID$(S$,1,1) IF C$=" " THEN REVE$=" " ELSE FOR I = 1 TO LEN(S$) VE$=MID$(S$,I,1) + VE$ NEXT I REVE$=VE$ END IF  END FUNCTION O/P SPEN
Post a Comment
Read more

PROGRAMMING 8

WAP TO INPUT ANY STRING & COUNT TOTAL NUMBER OF VOWELS CLS INPUT"ENTER ANY WORD";A$ FOR I=1 TO LEN(A$) B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN V=V+1 NEXT I PRINT"TOTAL NO. OF VOWELS=";V END
Post a Comment
Read more