Greatest among 5 numbers using Array
CLS
DIM num(4)
PRINT "Enter any any 5 numbers"
FOR j = 0 TO 4
INPUT num(j)
NEXT j
lrg = num(0)
FOR j = 0 TO 4
IF lrg > num(j) THEN
lrg = num(j)
END IF
NEXT j
PRINT "largest number is="; lrg
END
Input Name and Marks and Display using Array
CLS
DIM n$(5)
DIM m(5)
PRINT "Enter Name and Marks of any 5 students"
FOR i = 1 TO 5
PRINT i
INPUT "Enter Name: "; n$(i)
INPUT "Enter Marks:"; m(i)
NEXT i
PRINT
PRINT
PRINT
PRINT "MARKS OF STUDENTS"
PRINT "NAME", "MARKS", "RESULT"
FOR i = 1 TO 5
IF m(i) >= 40 THEN
r$ = "PASSED"
ELSE
r$ = "FAILED"
END IF
PRINT n$(i), m(i), r$
NEXT i
END
Display Name and Roll using READ DATA
DIM n$(6), roll(6)
CLS
FOR i = 0 TO 6
READ n$(i), roll(i)
NEXT i
FOR i = 0 TO 6
PRINT n$(i), roll(i)
NEXT i
DATA Ganesh,2,Adit,5,Dilip,3,Shailesh,8,Lal,9,Bishal,10,laxman,11
END
sort name in ascending order
CLS
REM*SORTING OF STRING*
PRINT "ENTER NO OF ELEMENTS"
INPUT N
DIM A$(N)
PRINT "ENTER "; N; "NAMES"
FOR I = 1 TO N
INPUT A$(I)
NEXT I
FOR I = 1 TO N – 1
FOR J = 1 TO N – I
IF A$(J) > A$(J + 1) THEN
SWAP A$(J), A$(J + 1)
END IF
NEXT J
NEXT I
PRINT "AFTER SORTING"
FOR I = 1 TO N
PRINT A$(I)
NEXT I
END
matrix addition
CLS
REM*ADDITION OF MATRIX*
INPUT "ENTER ROW"; R
INPUT "ENTER COLUMN"; C
DIM M1(R, C), M2(R, C)
PRINT "ENTER MATRIX M1"
FOR I = 1 TO R
FOR J = 1 TO C
INPUT M1(I, J)
NEXT J
NEXT I
PRINT "ENTER MATRIX M2"
FOR I = 1 TO R
FOR J = 1 TO C
INPUT M2(I, J)
NEXT J
NEXT I
FOR I = 1 TO R
FOR J = 1 TO C
M3(I, J) = M1(I, J) + M2(I, J)
NEXT J
NEXT I
PRINT "ADDTION OF MATRIX"
FOR I = 1 TO C
FOR J = 1 TO R
PRINT M3(I, J);
NEXT J
PRINT
NEXT I
END
