Go to home page of Udaipurplus.com

 

PAGE - 4

 

1

CLS
A$ = "RAMAN"
B$ = "NARAYANAN"
C$ = "MAN"
D$ = LEFT$(A$, 3)
E$ = MID$(B$, 4, 4)
F$ = MID$(C$, 2, 2)
G$ = D$ + E$ + F$
PRINT G$
END

2

CLS
A$ = "RAMAN"
B$ = "NARAYANAN"
C$ = "MAN"
D$ = LEFT$(A$, 3)
E$ = MID$(B$, 4, 4)
F$ = MID$(C$, 2, 2)
G$ = D$ + E$ + F$
PRINT G$
REM FOLLOWING STEPS ARE TO EXPLAIN THE COMMANDS
PRINT A$, "LEFT 3"
PRINT B$, "MID 4 4"
PRINT C$, "MID 2 2"
END

3

REM SUM OF FIRST 100 ODD NUMBERS
CLS
SUM = 0
FOR F = 1 TO 100
LET SUM = SUM + 2 * F - 1
NEXT F
PRINT SUM
END

4

REM REPEATED PROG
CLS
LET Q$ = "RAJAT"
LET W$ = RIGHT$(Q$, 2)
PRINT W$
END

5

REM INSERT SPACE BETWEEN TWO STRINGS
CLS
INPUT " ENTER ANY STRING"; A$
V$ = LEFT$(A$, 11)
C$ = " "
D$ = RIGHT$(A$, 13)
F$ = V$ + C$ + D$
PRINT F$
END

6

REM MODIFYING A STRING
CLS
P$ = "PROGRAMMING IN BASIC IS INTERESTING"
V$ = LEFT$(P$, 11)
C$ = " "
D$ = RIGHT$(P$, 14)
F$ = V$ + C$ + D$
PRINT F$
END

7

CLS
FOR I = 100 TO 1 STEP -1
FOR J = 100 TO I
PRINT J
NEXT J
PRINT
NEXTI
END
PRINT I;
SUM = SUM + 1
NEXT I
PRINT SUM
END

8

CLS
FOR I = 1 TO 5
FOR j = 1 TO I
PRINT "*";
NEXT j
PRINT
NEXT I
FOR I = 4 TO 1 STEP -1
FOR j = 1 TO I
PRINT "*";
NEXT j
PRINT
NEXT I
END

9

CLS
SCREEN 1
FOR I = 1 TO 150
CIRCLE (100 + I, 100), 56
CIRCLE (100 + I, 100), 50
NEXT I
PRINT " RUPAL is best CHILLA"
END

10

REM SUM OF ODD NOS.
CLS
SUM = 0
FOR I = 1 TO 100
LET A = 2 * I - 1
LET SUM = SUM + A
REM CHECK WHY THIS PROG WAS NAMED SQUAODD?
NEXT I
PRINT " SUM"; SUM
END

11

REM SUM OF FIRST N ODD NOS., SUM OF SQU OF FIRST N ODD NOS..?
CLS
SUM = 0
FOR I = 1 TO 10
LET A = 2 * I - 1
LET A = A * A
LET SUM = SUM + A
PRINT A, SUM
NEXT I
PRINT " SUM"; SUM
END

12

REM THIS IS SQUARE OF ODDS NOT EVEN
CLS
SUM = 0
FOR F = 1 TO 100
LET X = 2 * F - 1
LET D = X * X
PRINT D;
NEXT F
END

13

REM TAKE A NUMBER, SQUARE IT
CLS
SUM = 0
FOR F = 1 TO 10
LET X = 2 * F - 1
LET D = X * X
SUM = SUM + D
PRINT F, X, D, SUM
NEXT F
PRINT
PRINT "SUM OF FIRST 10 EVEN SQUARES IS", SUM
END

14

FOR I = 1 TO 5
FOR J = 1 TO I
PRINT "*";
NEXT J
PRINT
NEXT I
FOR I = 4 TO 1 STEP -1
FOR J = 1 TO I
PRINT "*";
NEXT J
PRINT
NEXT I
END

15

REM MODIFYING STRING
CLS
C$ = "STAND OPPOSITE TO HIM"
D$ = LEFT$(C$, 2)
E$ = MID$(C$, 7, 2)
F$ = RIGHT$(C$, 4)
G$ = D$ + E$ + F$
PRINT G$
END

16

REM SUM OF FIRST 100 NOS.
CLS
SUM = 0
FOR F = 1 TO 100
PRINT "NO. IS "; F
LET SUM = SUM + F
NEXT F
PRINT "SUM"; SUM
END

17

REM REPEATED
CLS
SUM = 0
FOR F = 1 TO 100
PRINT F
SUM = SUM + F
NEXT F
PRINT "THE SUM"; SUM
END

18

REM REPEATED..EXPERIMENTING WITH COMMANDS
CLS
LET Q$ = "SUMAN IS A NICE GIRL"
PRINT LEFT$(Q$, 5)
PRINT LEFT$(Q$, 10)
PRINT RIGHT$(Q$, 4)
PRINT RIGHT$(Q$, 9)
PRINT MID$(Q$, 12, 4)
END

19

REM THE NAME IS INCORRCT. PROG GIVES SUM OF FIRST 10 ODD NUMBERS
CLS
SUM = 0
FOR I = 1 TO 10
LET X = 2 * I - 1
SUM = SUM + X
PRINT " ODD NUMBER AT POSITION"; I; "IS"; X
NEXT I
PRINT "TOTAL SUM", SUM
END

20

REM SUM OF EVEN NUMBERS IN FIRST 10 NATURAL NUMBERS
CLS
SUM = 0
FOR F = 10 TO 1 STEP -2
SUM = SUM + F
PRINT F, SUM
NEXT F
PRINT " SUM"; SUM
END

 

MORE PROGRAMS  More Basic Programs

Fill up the Feedback Form to send your Suggestions or Coments or anything you want to convey us.Send such programs if you have

Kid's Home Page

 

 

 

 

 

 

Home Page

Hotels & Resorts

Marble

Industries

Hospital & Doctor

Handicrafts

Jewellers

Restaurant / Bar

Schools / Colleges

Computer Institue

Business Listing

Classifieds


What's New ?

Kids Corner

Out & About Udaipur

Visitors to Udaipur

Useful websites


NetTalk

Thoughts of day


Personalities


Yellow Pages


Paintings

Photo Gallary

Cricket

Cartoon corner

News


Online  directory

Weather


Suggest this site

Contact