QBASIC PROGRAMMING

WAP TO DISPLAY:


1.     J
        JA
        JAG
        JAGA
        JAGAT



    ANS: 

            REM

             CLS

                   S$="JAGAT"

                          FOR I= 1 TO 5

                PRINT LEFT$(S$,I)

              NEXT I

             END   

 

 

2.   T

      AT

     GAT

     AGAT

     JAGAT

 

      ANS:

                REM

                       CLS

                      S$="JAGAT"

                         FOR I= 1 TO 5

                PRINT RIGHT$(S$,I)

                      NEXT I

                   END

 

 

 

3.  JAGAT

     JAGA

     JAG

     JA

    J

 

     ANS:

              REM

                   CLS

                         S$="JAGAT"

                        FOR I= 5 TO 1 STEP -1

                    PRINT LEFT$(S$,I)

                        NEXT I

                   END

 

 

 

 

4.     JAGAT

        AGAT

        GAT

        AT

        T

 

      ANS:

             REM

                CLS

                         S$= "JAGAT"

                               FOR I= 5 TO 1 STEP -1

                    PRINT RIGHT$(S$,I)

                        NEXT I

                   END

 

 

5.   J

     A

     G

     A

     T

 

     ANS:

         REM

                CLS

                         S$= "JAGAT"

                               FOR I= 1 TO 5

                    PRINT MID$(S$,I,1)

                        NEXT I

                   END

 

 

 

 

6.  T

     A

     G

     A

     J

 

      ANS:

           REM

                CLS

                         S$= "JAGAT"

                                 FOR I=  5 TO 1 STEP -1

                    PRINT MID$(S$,I,1)

                        NEXT I

                   END

  

 

 

7.   JAGAT

      AGA

      G

 

      ANS:

                  REM

                CLS

                         S$= "JAGAT"

                           A=5

                               FOR I=  1 TO 3

                          PRINT MID$(S$,I,A)

                   A=A-2

                        NEXT I

                   END

           

 

 

8.   G

      AGA

      JAGAT

 

     ANS:

              REM

                CLS

                         S$= "JAGAT"

                           A=1

                                  FOR I=  3 TO 1 STEP -1

                          PRINT MID$(S$,I,A)

                   A=A+2

                        NEXT I

                   END

 

 

9.   *

      **

      ***

      ****

      *****

 

     ANS: 

          REM

             CLS

                      A$="*****"

                  FOR I= 1 TO 6

                   PRINT LEFT$(A$,I)

              NEXT I

                        END

 

 

 

 

10.   *****

        ****

        ***

        **

        *

 

 

ANS:

         REM

             CLS

                      A$="*****"                 

                        FOR I=  6 TO 1 STEP -1

                   PRINT LEFT$(A$,I)

              NEXT I

                        END

                 

 

  WAP TO ENTER ANY NUMBER AND DISPLAY


1)       SUM OF DIGITS

               ANS: 
                         REM
                            CLS
                                S=0
                                      INPUT"ENTER ANY NUMBER";N
                          WHILE N<>0
                                 R=NMOD10
                                   S=S+R
                                    N=N|10
                                         WEND
                                  PRINT"SUM OF DIGITS";S
                                                  END



2)       SUM OF EVEN NUMBERS

             ANS:

                          REM
                      CLS
                            S=0
                       INPUT"ENTER ANY NUMBER";N
                             WHILE N<>0
                   R=NMOD10
                          IF RMOD2=0 THEN S=S+R
                          N=N|10
                                  WEND
                          PRINT"SUM OF EVEN DIGITS";S
                                 END


3)       SUM OF ODD DIGITS

                   ANS:

                               REM
                                     CLS
                                         S=0
                                  INPUT"ENTER ANY NUMBER";N
                                      WHILE N<>0
                               R=NMOD10
                     IF RMOD2=1 THEN S=S+R
                                    N=N|10                                                
                                         WEND
                             PRINT"SUM OF ODD DIGITS";S
                                 END



4)        SUM OF SQUARE OF DIGITS

               ANS:

                          REM
                                   CLS
                                 S=0
                                    INPUT"ENTER ANY NUMBER";N
                           WHILE N<>0
                       R=NMOD10
                              S=S+R^2
                                    N=N|10
                          WEND
                               PRINT"SUM OF SQUARE OF DIGITS";S
                                END


5)          SUM OF CUBE OF DIGITS

                ANS:

                         REM
                              CLS
                                    S=0
                                     INPUT"ENTER ANY NUMBER";N
                                  WHILE N<>0
                                R=NMOD10
                                     S=S+R^3
                                             N=N|10
                                          WEND
                              PRINT"SUM OF CUBE OF DIGITS";S
                                    END



6)          SUM OF SQUARE OF EVEN DIGITS

               ANS:

                      REM
                            CLS
                                  S=0
                                 INPUT"ENTER ANY NUMBER";N
                                        WHILE N<>0
                                      R=NMOD10
                            IF RMOD2=0 THEN S=S+R^2
                                         N=N|10
                              WEND
                          PRINT"SUM OF SQUARE OF EVEN DIGITS";S
                                                END


7)           SUM OF SQUARE OF ODD DIGITS

                 ANS:

                                REM
                                       CLS
                                        S=0
                                       INPUT"ENTER ANY NUMBER";N
                           WHILE N<>0
                                       R=NMOD10
                     IF RMOD2=1 THEN S=S+R^2
                                  N=N|10
                         WEND
                                         PRINT"SUM OF SQUARE OF ODD DIGITS";S
                                 END



8)          SUM OF CUBE OF EVEN DIGITS

               ANS:

                           REM
                                CLS
                                   S=0
                                       INPUT"ENTER ANY NUMBER";N
                             WHILE N<>0
                                       R=NMOD10
                                              IF RMOD2=0 THEN S=S+R^3
                                           N=N|10
                                         WEND
                                   PRINT"SUM OF CUBE OF EVEN DIGITS";S
                                                 END


9)          SUM OF CUBE OF ODD DIGITS

                ANS:

                           REM
                                  CLS
                                     S=0
                               INPUT"ENTER ANY NUMBER";N
                             WHILE N<>0
                                       R=NMOD10
                              IF RMOD2=1 THEN S=S+R^3
                                              N=N|10
                                    WEND
                                          PRINT"SUM OF CUBE OF ODD DIGITS";S
                                                    END



10)        EVEN DIGITS

                 ANS:

                          

                            REM
                                   CLS
                                INPUT "ENTER ANY NUMBER";N

                                WHILE N<>0
                            R= N MOD 10
                                  IF RMOD 2=0 THEN PRINT R

                            N=N\10
                                  WEND
                            END

 

 

11)        ODD  DIGITS

                ANS:

                            REM
                                     CLS
                            INPUT "ENTER ANY NUMBER";N

                                     WHILE N<>0
                                 R= N MOD 10
                                      IF RMOD 2=1  THEN PRINT R

                                            N=N\10
                                                WEND
                                                      END

    

                   
                   
                 
 

President

 Isabel Martinez de Peron

Isabel Martinez de Peron is the first women to be president of the world. She became president of Argentina. She was born on4 February 1931. Her real name is Maria Estela Martinez Cartas de Peron. She was the third wife of the former President, Juan Peron. During her husband's third term as president from 1973 to 1974, Isabel served as both vice president and First Lady. Following her husband's death in office in 1974, Isabel served as president from 1 July 1974 to 24 March 1976. She was the first non-royal female head of state and head of     government in the Western Hemisphere in modern times.

Maria Estela Martinez Cartas was born in La Rioja, Argentina, into a lower-middle-class family, daughter of Maria Josef Cartas Olguín and Carmelo Martinez. She dropped out of school after the fifth grade. In the early 1950s she became a nightclub dancer, adopting a variant of Saint Isabel, as her stage name.

Juan Peron suffered a series of heart attacks on 28 June 1974. Isabel was summoned home from a European trade mission and secretly sworn in as acting president the next day. Juan Peron died on 1 July 1974, less than a year after his third election to the presidency. Isabel Peron formally assumed the office, becoming the first non-royal female head of state and head of government in the Western Hemisphere. She was popularly known as La Presidente.

 

Although she lacked Evita's charisma, the grieving widow at first attracted support from the nation. She pledged to uphold the social market economy policies embodied in the 1973 "Social Pact" as well her husband's long-held economic nationalism, making her first significant economic policy decisions the enactment of a new, pro-labor employment contract law and the granting of YPF a monopoly over filling stations. Even extremist groups were publicly offering her support, following their falling out with Juan Peron between May and June. She cancelled meetings with various constituent and political groups, however, and the sympathy resulting from her husband's death soon dissipated. Her government purged most leftists from the administration and university posts and, as her husband another Argentine presidents had done, used Federal intervention powers to unseat leftist governors. Following a string of political murders and a break by the Montenegro's with the government, on 30 September Peron signed the Anti-Terrorism Law - the first in a series of measures which eroded constitutional rights for the sake of combating leftist violence.
 

Lopez Rega left the country on 19 July; shortly afterward, Peron dismissed his protégés in the Economy Ministry, Celestino Rodrigo, and in the Armed Forces High Command, General Alberto Numa Laplane, whom she replaced with General Jorge Videla, a quiet career officer with an uneventful military record.

A judge in Mendoza, Argentina in November 2006 demanded testimony from Isabel Peron, along with other Peronist ministers of her government, in a case involving forced disappearances during her presidency; on 12 January 2007, she was arrested in Madrid. She was charged by the Argentine authorities with the disappearance of Hector Aldo Fagetti Gall ego on February 25, 1976, and for crimes related to her issuance of the 6 October 1975, decree calling the Armed Forces to "annihilate subversive elements." The Nunca Mas ("Never Again") report released in 1984 by the National Commission on the Disappearance of Persons recorded 600 disappearances and 500 assassinations under the Peronist governments from 1973–76, and it is acknowledged that the Triple A alone murdered some 600 people.
 

The 2006 capture in Spain of Triple A death-squad overseer Rodolfo Almiron (then also in charge of Lopez Rega's and Isabel Peron's personal security) shed further light on the extent of Triple A involvement. Isabel Peron's extradition to Argentina was denied in Spain on 28 March 2008. In two rulings, Spain's National Court decided the charges against her did not constitute crimes against humanity, adding that the statute of limitations for her charges expired 20 years ago.