Saturday, October 19, 2019

Display 1,22,333,4444,55555

Display 1,22,333,4444,55555



CLS
FOR I =1 TO 5
FOR J= 1 TO I
PRINT ;
NEXT J
PRINT
NEXT I
END

Display 1,12,123,1234,12345

Display 1,12,123,1234,12345

CLS
FOR I = 1 TO 5
FOR J =1 TO I
PRINT J ;
NEXT J
PRINT
NEXT I
END


Display 5,10,15,20......10th Term

Display 5,10,15,20......10th Term

CLS
A=5
FOR I =1 TO 10
PRINT A
A=A+5
NEXT I
END

Display 1,1,2,3,5........10TH Term

Display 1,1,2,3,5........10TH Term



cls
A=1
B=1
FOR I =1 TO 10
PRINT A
C=A+B
A=B
B=C
NEXT I
END

Friday, October 4, 2019

QBASIC to print 1, 4, 9, 16... 10th term

QBASIC to print 1, 4, 9, 16...10term


CLS
FOR I = 1 TO 10
PRINT I ^ 2
NEXT I 
END

QBASIC to print 1, 22, 333, 4444, 55555

QBASIC to print 1, 22, 333, 4444, 55555


CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END

Qbasic program to display the greatest among 3 number.


Write a program to display the greatest among 3 number.


CLS
INPUT "Enter any number"; A,B,C
IF A>B AND A>C THEN
PRINT "The greatest number is"; A
ELSEIF B>A AND B>C THEN
PRINT "The greatest number is"; B
ELSE
PRINT "The greatest number is";C
END IF
END

Qbasic program to display the multiplication table.

Write a program to display the multiplication table.


CLSINPUT "Enter any number"; NFOR I = 1 TO 10PRINT N; "*"; I; "="; N * INEXT IEND

Qbasic program to display the factorial of digits.


Write a program to display the factorial of digits.
CLS
INPUT "Enter any number"; N
F =1
FOR I = 1 TO N
F = F * I
NEXT I
PRINT "Factorial="; F
END

Qbasicprogram to display factor.


Write a program to display factor.


CLS
INPUT "Enter any number"; N
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

Qbasic program to display whether the given number is prime or composite


Write a program to display whether the given number is prime or composite.


CLS
INPUT "Enter any number";N
C = 0
FOR I = 1  TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
 IF C = 2 THEN
PRINT "The given number is prime"
ELSE
PRINT "The given number is composite"
END IF
END

Qbasic program to check whether the given number is armstrong or not.


Write a program to check whether the given number is armstrong or not.


CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <>0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
IF A = S THEN
PRINT " The given number is armstrong"
ELSE
PRINT "The given number is not armstrong"
END IF
END

Qbasic program to check whether the number is palindrome or not.


Write a program to check whether the number is palindrome or not.


CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE  N <> 0
R = N MOD 10
S = S * 10 + R
N = N  \ 10
WEND
IF A = S
PRINT "The given number is palindrome"
ELSE
PRINT "The given number is not palindrome"
END IF
END

Qbasic program to display reverse of digits.


Write a program to display reverse of digits.


CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "Reverse of digits="; S
END

Qbasic program to display product of digits.


Write a program to display product of digits.


CLS
INPUT "Enter any number"; N
P = 1
WHILE N <> 0
R = N  MOD 10
P = P * R
N = N \ 10
WEND
PRINT "Product of digits="; P
END

Qbasic program to find the sum of digits.


Write a program to find the sum of digits.


CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S+ R
N = N \ 10
WEND
PRINT "Sum of digits"; S
END

Qbasic program to display positive, negative or zero.


Write a program to display positive, negative or zero.


CLS
INPUT "Enter any number"; N
IF N>0 THEN
PRINT "The number is positive"
ELSEIF N<0 THEN
PRINT "The number is negative"
ELSE
PRINT "The number is zero"
END IF
END

Qbasic program to find the volume of cylinder.


Write a program to find the volume of cylinder.


CLS
INPUT "Enter radius "; r
INPUT "Enter height"; h
V = 22 / 7 * r ^ 2 * h
PRINT "Volume of cylinder= "; V
END

Qbasic program to find the volume of cube.


Write a program to find the volume of cube.

CLS
INPUT "Enter length"; l
V = l ^ 3
PRINT "Volume of cube="; V
END

QBASIC PROGRAM TO FIND VOLUME OF BOX


Write a program to find the volume of box.


CLS
INPUT "Enter length"; l
INPUT "Enter height";h
INPUT "Enter breadth"; b
V = l * b * h
PRINT "Volume of box="; V
END

QBASIC PROGRAM TO FIND ARERA OF SQUARE


Write a program to find the area of square.


CLS
INPUT "Enter length "; l
A = l ^ 2
PRINT "Area of square="; A
END

QBASIC PROGRAM TO FIND AREA OF 4WALLS

Write a program to find the area of 4 walls.


CLS
INPUT "Enter height"; h
INPUT "Enter breadth";b
INPUT "Enter length"; l
A = 2 * h * ( l + b)
PRINT "Area of 4 walls= "; A
END

QBASIC PROGRAM TO FIND AREA OF TRIANGLE


Write a program to find the area of triangle.


CLS
INPUT "Enter base"; b
INPUT "Enter height "; h
A = 1 / 2 * b * h
PRINT "Area of triangle ="; A
END

QBASIC PROGRAM TO FIND AREA OF CIRCLE


Write a program to find the area of circle.


CLS
INPUT "Enter radius"; r
A= 22/7 * r ^ 2
PRINT "Area of circle= "; A
END

QBASIC PROGRAM TO FIND AREA OF RECTANGLE


Write a program to find the area of rectangle.


CLS
INPUT "Enter length";l
INPUT "Enter breadth";b
A =  l * b
PRINT "Area of rectangle=";A
END

E-Commerce

E-Commerce (Electronic Commerce) E-Commerce or Electronic Commerce means buying and selling of goods, products, or services over the interne...