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

To display the pattern

G

OGR

ROGRA

PROGRAM

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

Share :

Twitter