To display the pattern. PROGRAM ROGRA OGR G (Qbasic Code)

To display the pattern.

PROGRAM
ROGRA
OGR
G 

• CLS
  a$ = "PROGRAM"
  a = 1
  b = 7
  t = 40
  FOR i = 1 TO 4
      PRINT TAB(t); MID$(a$, i, b)
      b = b - 2
      t = t + 1
  NEXT i
  END

Share :

Twitter