Advertisement
Prithak

Calculator!

Mar 5th, 2019
961
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. RANDOMIZE TIMER
  2. CLS
  3. COLOR 2: PRINT STRING$(80, "-")
  4. DO
  5.     col = INT(RND * 15) + 1
  6.     COLOR col
  7.     INPUT "", a$
  8.     IF a$ = "/quit" THEN EXIT DO
  9.     a$ = a$ + " "
  10.     i = 0
  11.     b$ = ""
  12.     c$ = ""
  13.     d$ = ""
  14.     op$ = ""
  15.     DO UNTIL b$ = " "
  16.         i = i + 1
  17.         b$ = MID$(a$, i, 1)
  18.         c$ = c$ + b$
  19.     LOOP
  20.  
  21.     DO UNTIL b$ = "+" OR b$ = "-" OR b$ = "*" OR b$ = "/" OR b$ = "%" OR b$ = "^"
  22.         b$ = MID$(a$, i, 1)
  23.         i = i + 1
  24.         op$ = b$
  25.     LOOP
  26.  
  27.     DO UNTIL b$ = " "
  28.         i = i + 1
  29.         b$ = MID$(a$, i, 1)
  30.         d$ = d$ + b$
  31.     LOOP
  32.  
  33.     IF INSTR(c$, "sin") THEN c$ = STR$(SIN(VAL(RIGHT$(c$, LEN(c$) - 3))))
  34.     IF INSTR(c$, "cos") THEN c$ = STR$(COS(VAL(RIGHT$(c$, LEN(c$) - 3))))
  35.     IF INSTR(c$, "tan") THEN c$ = STR$(TAN(VAL(RIGHT$(c$, LEN(c$) - 3))))
  36.  
  37.     IF INSTR(d$, "sin") THEN d$ = STR$(SIN(VAL(RIGHT$(d$, LEN(d$) - 3))))
  38.     IF INSTR(d$, "cos") THEN d$ = STR$(COS(VAL(RIGHT$(d$, LEN(d$) - 3))))
  39.     IF INSTR(d$, "tan") THEN d$ = STR$(TAN(VAL(RIGHT$(d$, LEN(d$) - 3))))
  40.     SELECT CASE op$
  41.         CASE "+"
  42.             PRINT VAL(c$);
  43.             PRINT op$;
  44.             PRINT VAL(d$)
  45.             PRINT VAL(c$) + VAL(d$)
  46.         CASE "-"
  47.             PRINT VAL(c$);
  48.             PRINT op$;
  49.             PRINT VAL(d$)
  50.             PRINT VAL(c$) - VAL(d$)
  51.         CASE "*"
  52.             PRINT VAL(c$);
  53.             PRINT op$;
  54.             PRINT VAL(d$)
  55.             PRINT VAL(c$) * VAL(d$)
  56.         CASE "/"
  57.             PRINT VAL(c$);
  58.             PRINT op$;
  59.             PRINT VAL(d$)
  60.  
  61.             PRINT VAL(c$) / VAL(d$)
  62.         CASE "%"
  63.             PRINT VAL(c$);
  64.             PRINT op$;
  65.             PRINT VAL(d$)
  66.             PRINT VAL(c$) MOD VAL(d$)
  67.         CASE "^"
  68.             PRINT VAL(c$);
  69.             PRINT op$;
  70.             PRINT VAL(d$)
  71.             PRINT VAL(c$) ^ VAL(d$)
  72.     END SELECT
  73. LOOP
  74. PRINT STRING$(80, "-")
  75. PRINT "Thanks for using our program!"
  76. PRINT ":3"
  77. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement