Connect Me

twitterfacebookgoogle plus email

  Instagram View Biwas Bhattarai's profile on LinkedIn

Featured Posts

WAP to create a data file "Book.txt"

1)WAP to create a data file "Book.txt" and enter book name, author name, price, published year, and language used. Ask user to continue for next record.
2) WAP to display records from "Book.txt", where language used is "Nepali"
3) WAP to display records from "Book.txt", where price of a book is between 500 to 1000.
4) WAP to display records from "Book.txt", where published year is 2015 and author name starts with letter "N"
5) WAP to copy records from "Book.txt" to "Eng.txt" file where language used is "English"

1)
OPEN "BOOK.TXT" FOR OUTPUT AS #1
CLS
DO WHILE UCASE$(CH$)="Y" 
INPUT "ENTER BOOK NAME";BN$INPUT "ENTER AUTHOR NAME";AN$
INPUT "ENTER PRICE"; P
INPUT "ENTER PUBLISHED YEAR"; PY
INPUT "ENTER LANGUAGE OF THE BOOK";L$
WRITE #1, BN$, AN$, P, PY, L$
INPUT "DO YOU WANT TO ADD MORE (Y/N)"; CH$
LOOP
CLOSE #1
END

2)
OPEN "BOOK.TXT" FOR INPUT AS #1
CLS
PRINT "BOOKNAME", "AUTHORNAME", "PRICE","YEAR","LANGUAGE"
WHILE NOT EOF(1)
INPUT #1, BN$, AN$, P, PY, L$
IF UCASE$(L$)="NEPALI" THEN
PRINT BN$, AN$, P, PY, L$
END IF
WEND
CLOSE #1
END

3)
OPEN "BOOK.TXT" FOR INPUT AS #1
CLS
PRINT "BOOKNAME", "AUTHORNAME", "PRICE","YEAR","LANGUAGE"
WHILE NOT EOF(1)
INPUT #1, BN$, AN$, P, PY, L$
IF P>=500 AND P<=1000 THEN
PRINT BN$, AN$, P, PY, L$
END IF
WEND
CLOSE #1
END

4)
OPEN "BOOK.TXT" FOR INPUT AS #1
CLS
PRINT "BOOKNAME", "AUTHORNAME", "PRICE","YEAR","LANGUAGE"
WHILE NOT EOF(1)
INPUT #1, BN$, AN$, P, PY, L$
N$=LEFT$(AN$,1)
IF PY=2015 AND UCASE$(N$)="N" THEN
PRINT BN$, AN$, P, PY, L$
END IF
WEND
CLOSE #1
END

5)
OPEN "BOOK.TXT" FOR INPUT AS #1
OPEN "ENG.TXT" FOR OUTPUT AS #2
CLS
WHILE NOT EOF(1)
INPUT #1, BN$, AN$, P, PY, L$
IF UCASE$(L$)="ENGLISH" THEN
WRITE #2, BN$, AN$, P, PY, L$ 
END IF
WEND
CLOSE #1
CLOSE #2
END

Original file is BOOK.TXT. All records with language as ENGLISH will be copied to new file ENG.TXT.
WRITE #2, BN$, AN$, P, PY, L$ will copy into #2, which mean ENG.TXT file.

WAP using FUNCTION procedure to enter a number and print the number is ARMSTRONG number or not.

WAP using FUNCTION procedure to enter a number and print the number is ARMSTRONG number or not.

DECLARE FUNCTION ARM(N)
CLS
INPUT "ENTER A NUMBER";N
M=N
IF M=ARM(N) THEN
PRINT "NUMBER IS ARMSTRONG"
ELSE
PRINT "NUMBER IS NOT ARMSTRONG"
END IF
END

FUNCTION ARM(N)
WHILE N<>0
R=N MOD 10
S=S+R^3
N=N\10
WEND
ARM=S
END FUNCTION

OR ALTERNATIVE:

DECLARE FUNCTION ARM$(N)
CLS
INPUT "ENTER A NUMBER";N
PRINT "THE NUMBER IS "; ARM$(N)
END

FUNCTION ARM$(N)
M=N
WHILE N<>0
R=N MOD 10
S=S+R^3
N=N\10
WEND
IF M=S THEN
ARM$="ARMSTRONG"
ELSE
ARM$="NOT ARMSTRONG"
END IF
END FUNCTION

WAP using SUB procedure to print the series, 1, 12, 123, 1234, 12345.

WAP using SUB procedure to print the series, 1, 12, 123, 1234, 12345.

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=2
FOR I=1 TO 5
PRINT A
A=(A*10)+B
B=B+1
NEXT I
END SUB

OR ALTERNATIVELY
DECLARE SUB SERIES(A$)
CLS
A$="12345"
CALL SERIES(A$)
END

SUB SERIES(A$)
FOR I=1 TO 5
PRINT LEFT$(A$,I)
NEXT I
END SUB

WAP using SUB procedure to print the series 1, 121, 12321, 1234321, 123454321

WAP using SUB procedure to print the series 1, 121, 12321, 1234321, 123454321

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A&=1
FOR I= 1 TO 5
PRINT A&^2
A&=(A&*10)+1
NEXT I
END


NOTE:
& in A& numeric variable makes it of LONG type. Long..........Non-floating-point numbers from -2,147,483,648 to 2,147,483,647
Examples of a Long Data Type: 560005, 3, -2, 0, -867000, 14, 8, -10

WAP using FUNCTION procedure to enter multi-digits number and print the sum of all digits. (Example: 4827, output is 21)

WAP using FUNCTION procedure to enter multi-digits number and print the sum of all digits. (Example: 4827, output is 21)

DECLARE FUNCTION SUM(N)
CLS
INPUT "ENTER A MULTI-DIGITS NUMBER";N
PRINT "SUM OF ALL DIGITS "; SUM(N)
END

FUNCTION SUM(N)
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
WEND
SUM=S
END FUCTION
Ą
https://www.flickr.com/photos/spklg/15211044551/