Sunday, January 14, 2024

3.2.1. QBASIC Modular Programming Find Output With Dry Run Solutions - SEE COMPUTER SCIENCE 2080

3.2.1. QBASIC Modular Programming  Find Output With Dry Run Solutions - SEE COMPUTER SCIENCE 2080






1.     Write the output of the given program: Show with dry run in table.                     [2]

DECLARE SUB SHOW(A)

CLS

N=87

CALL SHOW(N)

END

 

SUB SHOW(A)

DO

B=A MOD 6+3

IF B MOD 4=0 THEN GOTO AA

PRINT B;

AA:

A=A-10

LOOP WHILE A>=50

END SUB

 

Dry run table

N

A

B=A MOD 6 + 3

IS B MOD 4=0 ?

PRINT B

A=A-10

WHILE A>=50

87

87

87 MOD 6 + 3

=3 + 3 = 6

 6 MOD 4=0 ?

2 = 0 No

6

87-10=77

77>=50 YES

 

77

77 MOD 6 + 3

5+3=8

8 MOD 4=0?

0=0 YES

 

77-10=67

67>=50 YES

 

67

67 MOD 6+3

1+3=4

4 MOD 4=0?

0=0 YES

 

67-10=57

57>=50 YES

 

57

57 MOD 6+3

3+3=6

6 MOD 4=0?

2=0 NO

 6

57-10=47

47>=50

NO Loop Exits

 

47

 

 

 

 

 

 

The output of the program is:

6   6

 

2.     Write the output of the given program: (Workout with dry run)              [2]

DECLARE FUNCTION OUTPUT1(A)

CLS

N=135

CALL OUTPUT1(N)

END

 

SUB OUTPUT1(A)

DO WHILE A < > 0

R = A MOD 10

T = T + R

A = A \ 10

LOOP

PRINT T

END SUB

 

 

Dry run Table

N

A

DO WHILE A < > 0

R=A MOD 10

T=T + R

 A=A\10

PRINT T

135

135

135 < > 0 Yes

135 MOD 10 = 5

0+5=5

 135\10=13

9

 

13

13 < > 0 Yes

13 MOD 10=3

5+3=8

 13\10=1

 

 

1

1 < > 0 Yes

1 MOD 10=1

8 + 1=9

 1\10=0

 

 

0

0 < > 0 No

Loop Exits

 

 

 

 

 

 The output of the program is:

9

 

3. Write down the output of the given programs. [2]

               DECLARE SUB DISPLAY (A)

               CLS

               A= 3

               CALL DISPLAY (A)

END

SUB DISPLAY (A)

FOR X = 1 TO 6

PRINT A;

IF A MOD 2 = 0 THEN

A=A/2

ELSE

A= (A*3)+1

END IF

NEXT X

END SUB

 

Dry Run

A

X=1 TO 6

PRINT A;

IS A MOD 2=0 ?

Yes (A=A/2)

No(A=A*3+1)

 

3

1 To 6 Yes

 3

3 MOD 2=0

1=0 NO

 

3*3+1=10

10

2 To 6 Yes

 10

10 MOD 2=0

0=0 YES

10/2=5

 

5

3 To 6 Yes

 5

5 MOD 2=0

1=0 NO

 

5*3+1=16

16

4 To 6 Yes

 16

16 MOD 2=0

0=0 YES

16/2=8

 

8

5 To 6

 8

8 MOD 2=0

0=0 YES

8/2=4

 

4

6 To 6

4 MOD 2=0

0=0 YES

4/2=2

 

2

7 To 7 No

Loop terminates

 

 

 

 The output of the program is:

3  10  5  16  8  4 

 

4. Write down the output of the given program. Show with the dry run in table.

DECLARE SUB SERI ( )

CLS

CALL SERI

END

SUB SERI

               A$ = "SCIENCE"

               B = LEN (A$)

               FOR I = 1 TO 4

                              PRINT TAB(I); MID$(A$, I, B)

                              B =B-2

               NEXT I

END SUB

DRY RUN TABLE:

A$

B=LEN(A$)

I=1 TO 4

 PRINT TAB(I);MID$(A$, I, B)

B=B-2

SCIENCE

7

1

SCIENCE

7-2=5

 

5

2

   CIENC

5-2=3

 

3

3

     IEN

3-2=1

 

1

4

       E

1-2=-1

 

-1

5  

LOOP EXITS

 

 

The output of the program is:

SCIENCE

   CIENC

     IEN

      E

 

5. What will be output?

DECLARE FUNCTION FACT (N)

CLS

N=5

PRINT FACT (N)

END

FUNCTION FACT (N)

 F=1

FOR I=1 TO N

F=F*I

NEXT I

FACT=F

END FUNCTION

 

Dry Run

 

N

F

FOR I=1 to 5

F=F*I

PRINT FACT(N)

5

1

 1 to 5Yes

1*1=1

120

 

1

2 to 5 Yes

1*2=2

 

 

2

3 to 5 Yes

2*3=6

 

 

6

4 to 5 Yes

6*4=24

 

 

24

5 to 5 Yes

24*5=120

 

 

120

6 to 5 No

LoopExits

 

 

 

The output of the program is:

            120

6. Write the output of the given program: (Workout with a dry run).  2

DECLARE SUB ABC(A)

CLS

A=2

CALL ABC(A)

END

SUB ABC(A)

FOR J= 1 TO 5

PRINT A;

A=A+3;

NEXT J

END SUB

 

Dry run

A

J=1 to 5

PRINT A

 A=A+3

2

1 to 5 Yes

2

2+3=5

5

2 to 5 Yes

5

 5+3=8

8

3 to 5 Yes

8

8+3=11 

11

4 to 5 Yes

11

11+3=14 

14

5 to 5 Yes

14

14+3=17 

17

6 to 5 No (loop exits)

 

 

 

The output of the program is:

2  5  8  11  14

 

 

7. Write the output of the given program showing the dry run table.

DECLARE SUB result ( )

CLS
CALL result

END

SUB result ( )

FOR I = 9 to 1 step -2

Sum = sum + i^2

NEXT i

 

END SUB

Dry Run

I = 9 to 1 step -2

Sum = sum + i^2

 PRINT sum

9 to 1 yes

0 + 81=81

165

7 to 1 yes

81 + 49 = 130

 

5 to 1 yes

130 + 25 = 155

 

3 to 1 yes

155 + 9 = 164

 

1 to 1 yes

164 + 1 = 165

 

-1 to 1 no

Loop Exits

 

 

 

The output of the program is:

165

 

8. Write down the output of the given program. Show with dry run in table.     2

DECLARE SUB Result(C$)

C$=”COMPUTER”

CALL Result(C$)

END

SUB Result(C$)

FOR C=1 TO LEN(C$) STEP 2

M$=MID$(C$,C,1)

N$=N$+M$

NEXT C

END SUB 

Dry run

C$

C=1 TO LEN(C$) STEP 2

M$=MID$(C$,C,1)

N$

 PRINT N$

COMPUTER

1TO 8 step 2 Yes

C

C

 CMUE

 

3 to 8 Yes

M

C + M =CM

 

 

5 to 8 Yes

U

CM + U = CMU

 

 

7 to 8 Yes

E

CMU+ E = CMUE

 

 

9 to 8 No

Loop Exits

 

 

 

The output of the program is:

CMUE

 

9.     Write down the output of the given program:

 

DECLARE SUB Series(A)

CLS

A=20

CALL Series(A)

END

SUB Series(A)

FOR K=1 to 5

PRINT A;

A=A+10

NEXT K

END SUB

 

 

 

Dry run

A

K=1 to 5

PRINT A

A=A+10

20

1 to 5 yes

20

20+10=30

30

2 to 5 yes

 30

30+10=40

40

3 to 5 yes

 40

40+10=50

50

4 to 5 yes

 50

50+10=60

60

5 to 5 yes

 60

60+10=70

70

6 to 5 no

Loop exits

 

 

 

The output of the program is:

 

20  30  40  50  60

 

10. Write down the output of the given program. Show with dry run in table.                   [2]

 

DECLARE SUB Num ( )

CLS

CALL Num

END

 

SUB Num

N=2

A=5

C=1

WHILE C <= 9

PRINT N

N=N*3+A

A=A-1

C=C+2

WEND

END SUB

 

Dry Run

N

A

C

C < = 9

PRINT N

N=N*3+A

A=A-1

C=C+2

2

5

1

1 < = 9 Yes

2

2*3+5=11

5-1=4

1+2=3

11

4

3

3 < = 9 Yes

11

11*3+4=37

4-1=3

3+2=5

37

3

5

5 < = 9Yes

37

37*3+3=114

3-1=2

5+2=7

114

1

7

7 < = 9 Yes

114

114*3+2=343

2-1=1

7+2=9

343

0

9

9 < = 9 Yes

343

343*3+1=1029

1-1=0

9+2=11

1029

-1

11

11 < = 9 No

Loop Exits

 

 

 

 

 

 

The output of the program is:

2

11

37

114

343

 

 11. Write the output of the given program showing the dry table.                       [2]

 

 

DECLARE SUB series()

CLS

CALL series

END

 

SUB series()

A=11111

C=5

WHILE C>=1

PRINT A;

A=A\10

C=C-1

WEND

END SUB

 

 

Dry Run

Variable

Condition Check

PRINT A;

A=A\10

C=C-1

A

C>=1

 

 

 

11111

5>=1 Yes

11111 

11111 \10=1111

5-1=4

1111

4>=1 Yes

 1111 

1111\10=111

4-1=3

111

3>=1 Yes

 111    

111\10=11

3-1=2

11

2>=1 Yes

 11 

11\10=1

2-1=1

1

1>=1 Yes

 1

1\10=0

1-1=0

0

0>=1 No

Loop Exits

 

 

 

 

The output of the program is:

11111  1111  111    11  1

 

12. Write the output of the following program. Show dry run in table. [2]

 

DECLARE FUNCTION EXAM$(W$)

W$ = "COMPUTER"

PRINT EXAM$(W$)

FUNCTION EXAM$ (W$)

    FOR P = 1 TO LEN(W$)

        K$ = MID$(W$, P, 1)

        IF P MOD 2 = 0 THEN

            K$ = LCASE$(K$)

        ELSE

            K$ = UCASE$(K$)

        END IF

        S$ = S$ + K$

    NEXT P

    EXAM$ = S$

END FUNCTION

 

Dry Run

W$

P=1 to 8

K$= MID$(W$, P, 1)

IS

P MOD 2 = 0

Yes

(K$ = LCASE$(K$)

No

(K$ = UCASE$(K$)

S$ = S$ + K$

PRINT EXAM$(W$)

COMPUTER

1 to 8 Yes

C

1 MOD 2=0

1=0 No

 

C

C

CoMpUtEr

 

2 to 8 Yes

O

2 MOD 2 =0

0=0 Yes

o

 

Co

 

 

3 to 8 Yes

M

3 MOD 2=0

1=0 No

 

M

CoM

 

 

4 to 8 Yes

P

4 MOD 2 =0

0=0 Yes

p

 

CoMp

 

 

5 to 8 Yes

U

5 MOD 2=0

1=0 No

 

U

CoMpU

 

 

6 to 8 Yes

T

6 MOD 2 =0

0=0 Yes

t

 

CoMpUt

 

 

7 to 8 Yes

E

7 MOD 2=0

1=0 No

 

E

CoMpUtE

 

 

8 to 8 Yes

R

8 MOD 2 =0

0=0 Yes

r

 

CoMpUtEr

 

 

9 to 8 No

Loop Exits

 

 

 

 

 

 

 

The output of the program is:

CoMpUtEr

 

13. Write down the output of the given program. Show with dry run in table.

 

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

 

SUB SERIES ( )

X=1

Y=2

FOR P 1 TO 10

PRINT X:

X=X+Y

Y=Y+1

NEXT P

END SUB

 

Dry run

X

Y

P=1 TO 10

 PRINT X:

X=X+Y

Y=Y+1

1

2

1 TO 10 Yes

1

1+2=3

2+1=3

3

3

2 TO 10 Yes

 3

3+3=6

3+1=4

6

4

3 TO 10 Yes

 6

6+4=10

4+1=5

10

5

4 TO 10 Yes

 10

10+5=15

5+1=6

15

6

5 TO 10 Yes

 15

15+6=21

6+1=7

21

7

6 TO 10 Yes

 21

21+7=28

7+1=8

28

8

7 TO 10 Yes

 28

28+8=36

8+1=9

36

9

8 TO 10 Yes

 36

36+9=45

9+1=10

45

10

9 TO 10 Yes

 45

45+10=55

10+1=11

55

11

10 TO 10 Yes

 55

55+11=66

11+1=12

66

12

11 TO 10 No

Loop Exits

 

 

 

 

The output of the program is:

1 3  6  10  15  21  28  26  45  55

 

14. Write down the output of the given program with dry run table. [2]

DECLARE SUB NUMBER ()

CLS

CALL NUMBER

END

SUB NUMBER

N=3:C=1

WHILE C<=5

       PRINT N

       N=N*10+3

       C=C+1

WEND

END SUB

Dry Run

N

C

C<=5

 PRINT N

N=N*10+3

C=C+1

3

1

1<=5 yes

3

33

1+1=2

33

2

2<=5 yes

33

333

2+1=3

333

3

3<=5 yes

333

3333

3+1=4

3333

4

4<=5 yes

3333

33333

4+1=5

33333

5

5<=5 yes

33333

333333

5+1=6

 

6

6<=5 no (loop exits)

 

 

 

The output of the program is:

3

33

333

3333

33333

 

15. Write down the output of the given program. Show with dry run in table .

 

DECLARE SUB SERI()

CLS

CALL SERI

END

 

SUB SERI

X# = 1

FOR I = 1 TO 5

PRINT X# * X#

X# = X# * 10 +1

NEXT I

END SUB

 

X#

I = 1 TO 5

 PRINT X# * X#

X# = X# * 10 +1

1

1 to 5 ‘yes’

1

1*10+1=11

11

2 to 5 ‘yes’

121

11*10+1=111

111

3 to 5 ‘yes’

12321

111*10+1=1111

1111

4 to 5 ‘yes’

1234321

1111*10+1=11111

11111

5 to 5 ‘yes’

123454321

11111*10+1=111111

111111

6 to 5 ‘no’

 

 

 

Loop exits

 

 

 

 

The output of the program is:

1

121

12321

1234321

123454321

 

16. Write down the output of the given program and show them in dry run table:     [2]

            DECLARE SUB CITY (K$)

            CLS

            CALL CITY ("KATHMANDU")

            END

            SUB CITY (K$)

            FOR K = 1 TO LEN (K$)

                        C$ = MID$ (K$, K, 1)

            IF K MOD 2 = 1 THEN

                        C$ = UCASE$ (C$)

            ELSE

                        C$ = LCASE$ (C$)

            END IF

                        X$ = X$ + C$

            NEXT K

            PRINT X$

            END SUB

 

 

 

 

DRY RUN

K$

K = 1 TO LEN (K$)

C$ = MID$ (K$, K, 1)

IS K MOD 2=1

Yes

C$ = UCASE$ (C$)

No

C$ = LCASE$ (C$)

X$ = X$ + C$

PRINT X$

KATHMANDU

1 to 9 ‘yes’

K

1 MOD 2=1 YES

K

 

K

KaThMaNdU

 

2 to 9 yes

A

2 MOD 2=1 NO

 

a

Ka

 

 

3 to 9 yes

T

3 MOD 2=1 YES

T

 

KaT

 

 

4 to 9 yes

H

4 MOD 2=1 NO

 

h

KaTh

 

 

5 to 9 yes

M

5 MOD 2=1 YES

M

 

KaThM

 

 

6 to 9 yes

A

6 MOD 2=1 NO

 

a

KaThMa

 

 

7 to 9 yes

N

7 MOD 2=1 YES

N

 

KaThMaN

 

 

8 to 9 yes

D

8 MOD 2=1 NO

 

d

KaThMaNd

 

 

9 to 9 yes

U

 9MOD 2=1 YES

U

 

KaThMaNdU

 

 

10 to 9 no

Loop exits

 

 

 

 

 

 

 

OUTPUT

KaThMaNdU

 

17. FIND OUTPUT ALONG WITH DRY RUN

 

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

A$="NEPAL"

B=1

FOR I=1 TO LEN(A$) STEP 2

IF B < > 3 THEN

PRINT MID$(A$,B,I)

ELSE

PRINT MID$(A$,1,I)

END IF

B=B+1

NEXT I

END SUB

 

DRY RUN

A$

B

1 TO 5 STEP 2

B< > 3

 PRINT MID$(A$,B,I)

NEPAL

1

1 TO 5 YES

1 < > 3 YES

N

 

2

3 TO 5 YES

2 < > 3 YES

EPA

 

3

5 TO 5 YES

3 < > 3 NO

NEPAL

 

4

7 TO 5 NO

LOOP EXITS

 

 

OUTPUT

N

EPA

NEPAL

 

18. Write down the output of the given program.                           (2)

 

Show with dry run in table.

 

DECLARE SUB SERU ( )

CLS

CALL SERU

END

SUB SERU ()

X=2

C=1

WHILE C<=10

S=X^C

PRINT S;

C=C+1

WEND

END SUB

 

Dry Run

X

WHILE C<=10

S=X^C

PRINT S;

C=C+1

2

1<=10 Yes

2^1=2

2

1+1=2

 

2<=10 Yes

2^2=4

4

2+1=3

 

3<=10 Yes

2^3=4

8

3+1=4

 

4<=10 Yes

2^4=4

16

4+1=5

 

5<=10 Yes

2^5=4

32

5+1=6

 

6<=10 Yes

2^6=4

64

6+1=7

 

7<=10 Yes

2^7=4

128

7+1=8

 

8<=10 Yes

2^8=4

256

8+1=9

 

9<=10 Yes

2^9=4

512

9+1=10

 

10<=10 Yes

2^10=4

1024

10+1=11

 

11<=10 No Loop Exits

 

 

 

 

 

Output of the program is

2  4  8   16   32   64   128   256    512    1024

 

19. Write the output of the given program showing the dry run table. (2)

DECLARE FUNCTION PRO(N)

 

CLS

A=2

FOR J=1 TO 5

X= PRO(A)

PRINT X

NEXT J

END

 

FUNCTION PRO(N)

N=N+2

PRO=N

END FUNCTION

 

            Dry Run

A

J=1 to 5

X= PRO(A)

N

N=N+2

PRO=N

PRINT X

2

1 to 5 yes

X= PRO(2)

2

2+2=4

PRO=4

4

 

2 to 5 yes

X= PRO(4)

4

4+2=6

PRO=6

6

 

3 to 5 yes

X= PRO(6)

6

6+2=8

PRO=8

8

 

4 to 5 yes

X= PRO(8)

8

8+2=10

PRO=10

10

 

5 to 5 yes

X= PRO(10)

10

10+2=12

PRO=12

12

 

6 to 5 no

loop exits

 

 

 

 

 

 

Output of the program is

4

6

8

10

12

 

20. Write down the output of the given program. \Show with dry run in table.              (2)

 

DECLARE SUB PATTERN(SS)

 

CLS

B$="PROGRAM"

CALL PATTERN(B$)

END

 

SUB PATTERN(S$)

 

H=LEN(S$)

I=10

FOR J=1 TO H STEP 2

H=H-2

PRINT TAB(I); MID$(S$,J,H)

I=I+1

NEXT J

END SUB

 

B$

S$

H=LEN(S$)

I

J=1 to 7 step 2

PRINT TAB(I);

MID$(S$,J,H)

PROGRAM

PROGRAM

7

10

1 to 7 step 2 Yes

MID$(S$,1,5)

PROGR

 

 

5

11

3 to 7 step 2 Yes

MID$(S$,3,3)

OGR

 

 

3

12

5 to 7 step 2 Yes

MID$(S$,5,1)

G

 

 

1

13

7 to 7 step 2 Yes

MID$(S$,7,-1)

-

 

 

-1

14

9 to 7 step 2 No

[Loop Exits]

 

 

The output of the program is:

            PROGR

               OGR

                  G

 

21. Write the output of the given program. Show with dry run in table. [2]

 

            DECLARE SUB SERIES ( )

            CALL SERIES

            END

           

            SUB SERIES

            A = 1

            FOR I = 1 TO 5

                        PRINT I * A

            A = A+ (10 ^ I)

NEXT I

END SUB

 

Dry Run

A

I=1 to 5

PRINT I * A

A= A+ (10 ^ I)

1

1 to 5 yes

1*1 =1

1+(10^1)=11

11

2 to 5 yes

2*11=22

11+(10^2)=111

111

3 to 5 yes

3*111=333

111+(10^3)=1111

1111

4 to 5 yes

4*1111=4444

1111+(10^4)=11111

11111

5 to 5 yes

5*11111=55555

11111+(10^5)=111111

111111

6 to 5 no [Loop Exits]

 

 

 

The output of the program is

1

22

333

4444

55555

 

22. Write down the output of the given program.                                  [2]

            DECLARE FUNCTION TEXT$(A$)

CLS

            A$= “TECHNOLOGY”

            Y$= TEXT$(A$)

             PRINT Y$

            END

             

            FUNCTION TEXT$(A$)

            B= LEN(A$)

            FOR I = 1 TO B

              IF I MOD 2 = 1 THEN

              B$= B$+MID$(A$,I,1)

              END IF

            NEXT I

              TEXT$= B$

             END FUNCTION

 

Dry Run

A$

B

I=1 to B

IF I MOD 2 =1

B$=B$+MID$(A$,I,1)

Y$

PRINT Y$

TECHNOLOGY

10

1 to 10

1 MOD 2=1

1=1 yes

T

TCNLG

TCNLG

 

 

2 to 10

2 MOD 2=1

0=1 no

 

 

 

 

 

3 to 10

3 MOD 2=1

1=1 yes

T+C = TC

 

 

 

 

4 to 10

4 MOD 2=1

0=1 no

 

 

 

 

 

5 to 10

5 MOD 2=1

1=1 yes

TC+N=TCN

 

 

 

 

6 to 10

6 MOD 2=1

0=1 no

 

 

 

 

 

7 to 10

7 MOD 2=1

1=1 yes

TCN+L=TCNL

 

 

 

 

8 to 10

8 MOD 2=1

0=1 no

 

 

 

 

 

9 to 10

9 MOD 2=1

1=1 yes

TCNL+G

 

 

 

 

10 to 10

10 MOD 2=1

0=1 no

TCNLG

 

 

 

 

11 to 10

Loop Exit

 

 

 

 

 

The output of the program is

TCNLG

 

23. Write down the output of the following along with dry run table. 2

 

DECLARE SUB SENDUP(S$)

E$= “NPABSON"

CALL SENDUP(E$)

END

 

SUB SENDUP(S$)

FOR i = 1 to LEN(S$) STEP 1

IF i MOD 2<>0 THEN

EE$=EE$+LCASE$(MIDS(S$,I,1))

ELSE

EE$=EE$+UCASE$(MIDS(S$,I,1))

END IF

NEXT i

PRINT EE$

END SUB

 

Dry Run

E$

S$

i=1 to LEN(S$)

i MOD 2 <>0

Yes

EE$=EE$+LCASE$(MIDS(S$,I,1))

No

EE$=EE$+UCASE$(MIDS(S$,I,1))

NPABSON

NPABSON

1 to 7 yes

1 MOD 2 <>0

1<>0 Yes

n

n+P=nP

 

 

2 to 7 yes

2 MOD 2 <>0

0<>0 No

 

 

 

 

3 to 7 yes

3 MOD 2 <>0

1<>0 Yes

nP+a

nPa

 

 

 

4 to 7 yes

4 MOD 2 <>0

0<>0 No

 

nPa+B

nPaB

 

 

5 to 7 yes

5 MOD 2 <>0

1<>0 Yes

nPaB+s

nPaBs

 

 

 

6 to 7 yes

6 MOD 2 <>0

0<>0 No

 

nPaBs+O

nPaBsO

 

 

7 to 7 yes

7 MOD 2 <>0

1<>0 Yes

nPaBsO+n

nPaBsOn

 

 

 

8 to 7 loop exits

 

 

 

 

The output of the program is :

nPaBsOn

 

24. Write down the output of the following program with dry run table.

DECLARE SUB REG(M,N$,T)

CLS

A=1

X$=”PABSON”

CALL REG(A,X$,T)

END

SUB REG(M,N$,T)

FOR I=LEN(N$) TO 1 STEP-1

PRINT MID$(N$,I,M)

M=M+1

NEXT I

END SUB

 

Dry Run

A

X$

M

T

I=LEN(N$) TO 1 STEP-1

 PRINT MID$(N$,I,M)

M=M+1

1

PABSON

1

0

6 TO 1 STEP-1 Yes

MID$(PABSON,6,1)

N

1+1=2

 

 

2

 

5 TO 1 STEP -1 Yes

MID$(PABSON,5,1)

ON

2+1=3

 

 

3

 

4 TO 1 STEP -1 Yes

MID$(PABSON,4,1)

SON

3+1=4

 

 

4

 

3 TO 1 STEP -1 Yes

MID$(PABSON,3,1)

BSON

4+1=5

 

 

5

 

2 TO 1 STEP -1 Yes

MID$(PABSON,2,1)

ABSON

5+1=6

 

 

6

 

1 TO 1 STEP -1 Yes

MID$(PABSON,1,1)

PABSON

6+1=7

 

 

7

 

0 TO 1 STEP -1 No

 Loop Exits

 

 

The output of the program is :

N

ON

SON

BSON

ABSON

PABSON

 

25. Write down the output of the given program.

 

DECLARE SUB ptt()

CLS

CALL patt

END

 

SUB patt

X=1

FOR i=1 TO 5

PRINT X

X=(x*10)+i

NEXT i

END SUB

Dry Run

X

I=1 to 5

PRINT X

X=(x*10)+i

1

1 to 5 Yes

1

(1*10)+1

=11

 

2 to 5 Yes

11

(11*10)+2

=112

 

3 to 5 Yes

112

(112*10)+3

=1123

 

4 to 5 Yes

1123

(1123*10)+4

11234

 

5 to 5 Yes

11234

(11234*10)+5

112345

 

6 to 5 No

Loop Exits

 

 

 

The output of the program is :

1

11

112

1123

11234

 

26. Write down the output of the given program. Show with dry run in table: [2]

 

DECLARE SUB SERIES(X)

CLS

X=7

CALL SERIES(X)

END

 

SUB SERIES(X)

FOR M = 1 TO 10

PRINT X;

IF X MOD 2=0 THEN

X=X/2

ELSE

X=3*X+1

END IF

NEXT M

END SUB

 

Dry Run

X

M=1 to 10

PRINT X;

X MOD 2=0

X=3*X+1 (No)

X=X/2 (Yes)

7

1 to 10 yes

7

7 MOD 2=0

1=0 No

X=3*X+1

=3*7+1=22

 

22

2 to 10 yes

22

22 MOD 2=0

0=0 Yes

 

=22/2

=11

11

3 to 10 yes

11

11 MOD 2=0

1=0 No

3*11+1=34

 

34

4 to 10 yes

34

34 MOD 2=0

0=0 yes

 

34/2=17

17

5 to 10 yes

17

17 MOD 2=0

1=0 no

3*17+1=52

 

52

6 to 10 yes

52

52 MOD 2=0

0=0 Yes

 

52/2=26

26

7 to 10 yes

26

26 MOD 2=0

0=0 Yes

 

26/2=13

13

8 to 10 yes

13

13 MOD 2=0

1=0 No

3*13+1=40

 

40

9 to 10 yes

40

40 MOD 2=0

0=0 Yes

 

40/2=20

20

10 to 10 yes

20

20 MOD 2=0

0=0 Yes

 

20/2=10

10

11 to 10 No

Loop Exits

 

 

 

 

 

The output of the program is:

7  22  11  34  17  52  26  13  40  20

 

5.    Write the output of the given program. Show with dry run in table.           2

DECLARE SUB SERIES()

CLS

CALL SERIES

END

 

SUB SERIES( )

X#=11111

FOR I= 1 TO 5

PRINT X#^2

X# = (X# - 1) / 10

NEXT I

END SUB

 

Dry Run

X#=11111

I=1 to 5

PRINT X#^2

X#=(X#-1)/10

 

1 to 5 Yes

123454321

(11111-1)/10=1111

1111

2 to 5 Yes

1234321

(1111-1)/10=111

111

3 to 5 Yes

12321

(111-1)/10=11

11

4 to 5 Yes

121

(11-1)/10=1

1

5 to 5 Yes

1

(1-1)/10=0

0

6 to 5 No

Loop Exits

 

 

 

The output of the program is:

123454321

1234321

12321

121

1

 

No comments:

Post a Comment