Be the change that you wish to see in the world.

Tuesday, October 29, 2019

QBASIC to check Factorial

CLS
INPUT "Enter any number"; N
F = 1
FOR I = 1 TO N
F = F*I
NEXT I
PRINT "Factorial="; F
END

QBASIC to display Factors

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

QBASIC to disply Multiplication table

CLS
INPUT "Enter any number"; N
FOR I = 1 TO 10
PRINT N ; "X' ; I ; "=" ; N*I
NEXT I
END

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 to print 1, 4, 9, 16... 10th term

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

QBASIC to print 5, 10, 15, 20... 10th term

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

QBASIC to display 1, 1, 2, 3, 5... 10th term

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

QBASIC to 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

WAP to diplay the greatest among three numbers

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

to display 1,11,111,1111,1111

CLS

A = 1

FOR I = 1 TO 5

PRINT A

A = A * 10 + 1

NEXT I

END

Monday, September 2, 2019

~~MY FATHER~~

My father name is Ganesh Gurung. He is 37 years old. He lives in U.K(united kingdom). He is an chef. He works really very hard to fulfill our needs and demands. He is really very kind-hearted and general person. He helps every needy people wherever he see. He is an responsible husband and a responsible father too. He tries to fulfill our every needs. He is a beautiful soul i have ever meet. I am feeling very proud because he is my father. He treats me as a princess. But, sometimes he get really very angry on smallthings but he loves me alot. He has a very well builted body. I love my father very much.

~~HAPPY FATHERS DAY~~