Programming Concept

QBASIC:

                                                  

1)NEPAL                                 ::::    CLS                               
   NEPA                                            A$="NEPAL"
   NEP                                               FOR I =LEN(A$) TO 1 STEP-1
   NE                                                 PRINT LEFT$(A$,I)
   N                                                    NEXT I
                                                          END
    




2) L                                          ::::    CLS
    AL                                                A$="NEPAL"
    PAL                                              FOR I = 1 TO LEN(A$)
    EPAL                                            PRINT RIGHT$(A$,I)
    NEPAL                                         NEXT I
                                                          END





 3)E                                           ::::     CLS
    ME                                                 A$=''WELCOME''
    OME                                              FOR I = 1 TO LEN(A$)
    COME                                           PRINT RIGHT$(A$,I)
    LCOME                                         NEXT I
    ELCOME                                       END
    WELCOME                                         





4)WELCOME                           ::::    CLS  
       ELCOME                                    A$="WELCOME"                                              
          LCOME                                    FOR I =LEN(A$) TO 1 STEP-1                                   
            COME                                     PRINT RIGHT$(A$,I)                                               
               OME                                     NEXT I              
                  ME                                     END
                     





5)P                                                ::::   CLS  
   EPA                                                    A$=''NEPAL''
   NEPAL                                              B=3
                                                               FOR I= 1 TO LEN(A$) STEP 2
                                                               PRINT MID$(A$,B,I)
                                                               B=B-1
                                                               NEXT I
                                                               END




6)C                                               ::::  CLS
   CO                                                   A$=''COMPUTER''
   COM                                                FOR I=1 TO LEN(A$)
   COMP                                              LEFT$(A$,I)
   COMPU                                           NEXT I 
   COMPUT                                         END
   COMPUTE
   COMPUTER




7)KATHMANDU                       ::::    CLS
   KATHMAND                                   A$=''KATHMANDU''
   KATHMAN                                      FOR I= LEN(A$) TO 1 STEP-1
   KATHMA                                         PRINT LEFT$(A$,I)
   KATHM                                            NEXT I
   KATH                                                END
   KAT
   KA
   K





8)M                                              ::::   CLS
   HMA                                                  A$=''KATHMANDU''  
   THMAN                                            B=5 
   ATHMAND                                       FOR I=1 TO LEN(A$) STEP 2 
   KATHMANDU                                 PRINT MID$(A$,B,I) 
                                                                B=B-1        
                                                                NEXT I         
                                                                END   




9)*                                                ::::    CLS
   **                                                       A$=''*****''
   ***                                                     FOR I=1 TO LEN(A$)
   ****                                                   PRINT LETF$(A$,I)
   *****                                                 NEXT I
                                                              END





11)*                                              ::::   CLS
     ***                                                  A$=''*********'' 
     *****                                              FOR I=1 TO LEN(A$)  STEP 2
     *******                                           PRINT LEFT$(A$,I)
     *********                                      NEXT I
                                                             END



12)*NEPAL*                               ::::    CLS
     *NEPA*                                          A$=''NEPAL''
     *NEP*                                             FOR I=LEN(A$) TO 1 STEP -1
     *NE*                                               PRINT ''*'' ; LEFT$(A$,I) ; "*"
     *N*                                                  NEXT I
                                                              END



13)*N*                                         ::::    CLS
     *NE*                                                A$=''NEPAL''
     *NEP*                                             FOR I=1 TO LEN(A$)
     *NEPA*                                          PRINT ''*'' ; LEFT$(A$,I) ; "*"
     *NEPAL*                                        NEXT I
                                                              END



14)         *NEPAL*                      ::::   CLS
            **NEPAL**                            A$=''*****''
          ***NEPAL***                           FOR I=1 TO LEN(A$)
        ****NEPAL****                         PRINT LEFT$(A$,I) ; ''NEPAL'' ; LEFT$(A$,I)
      *****NEPAL*****                       NEXT I
                                                              END

Comments

Post a Comment

Popular posts from this blog

Networking  [Match the Following] 1. a) Wi-Fi  ===============    Network within a building b) Linear Bus  ===========    Topology c) BNC   ===============     Media connector  d) Device Driver =========    Software component                                                               2. a) Protocol  =============     Rules to exchange data.                                                                               b) LAN  ===============     Network within a building. c) MAN ===============     Network within a city. d) Coaxial  =============    BNC e) Cat 5  ===============    RJ-45 f) Hub    ===============    Central device for star topology. 3. a) Radio Wave  ==========    Wireless media b) Cyber ethics  ==========    Professionally guided principles                       c) Spike guard ===========    Power protection device   d) Gateway =============    Device to connect network having different  technology                                                    
Read more
Image
Bhoto Jatra Bhoto Jatra (the traditional Bhoto display ceremony of Macchindranath). Bhoto means sleeveless vest and Jatra means festival. According to the Jatra rituals, the head of the state has to worship the deity .With the "bhoto display ceremony" ends the month-long Machhindranath festival and the idols then are taken back to their own places (Machhindranath to Bungmati and Minnath to Patan) It is believed that this Bhoto (vest ) was rewarded to a farmer by Karkot Naga (king of serpents) for curing the eye ailment of his Queen. But the farmer lost the Bhoto while working in his field. A year later when the farmer went to attend the Machhindranath festival at Jawalakhel, he saw the same giant wearing his vest. The farmer then started a fight with the giant.The Karkot Naga was also there . He then submitted the Bhoto to Machhindranath for safe keeping until someone claims it with evidence.   July 29, 2016 The month long chariot pulling festival of Rato Machindr
Read more

PROJECT 'B'

Programming Concept QBASIC: 1.        Input any string and reverse it. CLS INPUT "ENTER ANY STRING"; A$ FOR I = LEN(A$) TO 1 STEP -1 B$ = MID$(A$, I, 1) C$ = C$ + B$ NEXT I PRINT "REVERSED STRING IS "; C$ END 2.        Input any string and check whether the given string is palindrome or not. CLS INPUT "ENTER ANY STRING"; A$ FOR I = LEN(A$) TO 1 STEP -1 B$ = MID$(A$, I, 1) C$ = C$ + B$ NEXT I IF A$ = C$ THEN PRINT  A$; “IS PALINDROME” ELSE PRINT A$; “IS NOT PALINDROME” END IF END 3.        Count total no. of vowels in a given string . CLS INPUT "ENTER ANY STRING"; A$ VC = 0 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 VC = VC + 1 END IF NEXT I PRINT "TOTAL NO. OF VOWELS= "; VC END 4.        Count total no. of consonants
Read more