Introduction to QBASIC Programming

Introduction
  1. QBASIC stands for Quick Beginner's All purpose Symbolic Instruction Code
  2. It is a high level programming language developed in 1964.
  3. It is easy to learn.
  4. It was developed by Kemeny and Kurtz
Some characters recognized by QBASIC
character           Name
-                            Dash
+                           Plus sign
*                            Multiplication sign or Asterisk
/                             Slash or division
\                             Backslash or integer division
                              Blank Space
!                             Exclamation or single precision declaration
_                            Underscore
^                            Exponential
( )                          Parenthesis
,                            Comma
.                            Dot
;                            Semicolon
:                            Colon or statement delimeter
=                           Equal to or assignment
>                           Greater than
<                           Less than
>=                         Greater than or equal to
<=                         Less than or equal to
<>                        Not equal to
$                           Dollar or string declaration
?                           Question mark or print
#                           Hash or double precision
%                          Percentage or integer declaration
&                         Ampersand

Comments

Post a Comment

Popular posts from this blog

input any string and reverse it, palindrome

221. WAP to input any string and reverse it. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END USING SUB PROCEDURE DECLARE SUB REV (S$) CLS INPUT "ENTER ANY STRING"; S$ CALL REV(S$) END SUB REV (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION REV$ (S$) CLS INPUT "ENTER ANY STRING"; S$ PRINT "REVERSED STRING IS "; REV$(S$) END FUNCTION REV$ (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I REV$ = W$ END FUNCTION 222.    WAP to input any string and check whether the given string is palindrome or not. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I...
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. 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 THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10 ...
Read more

N NE NEP NEPA NEPAL PATTERN

251.  WAP to display N NE NEP NEPA NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT LEFT$(S$, I) NEXT I END SUB 252.  WAP to display L AL PAL EPAL NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL EPAL PAL AL L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL NEPA NEP NE N USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT LEFT$(S$, I) NEXT I ...
Read more