01-15-2010, 06:43 PM
'Program multiplication simple
'lrcvs
'(MU) Spain
'13 Jan 2010
'This program is based on: a * b = c >>> a = c / b
CLS
a$ = "9876543298789"
b$ = "2468013"
la = LEN(a$) + LEN(b$)
c$ = STRING$(la, "0")
FOR r = 1 TO la
  FOR s = 0 TO 9
  MID$(c$, r) = LTRIM$(STR$(s))
  v$ = LTRIM$(STR$(VAL(c$) / VAL(b$)))
  IF v$ = a$ THEN PRINT "Prog = "; VAL(c$): PRINT : PRINT "Comp = "; VAL(a$) * VAL(b$): END
  IF VAL(a$) > VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s))
  IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
  NEXT s
NEXT r
SLEEP
END
'lrcvs
'(MU) Spain
'13 Jan 2010
'This program is based on: a * b = c >>> a = c / b
CLS
a$ = "9876543298789"
b$ = "2468013"
la = LEN(a$) + LEN(b$)
c$ = STRING$(la, "0")
FOR r = 1 TO la
  FOR s = 0 TO 9
  MID$(c$, r) = LTRIM$(STR$(s))
  v$ = LTRIM$(STR$(VAL(c$) / VAL(b$)))
  IF v$ = a$ THEN PRINT "Prog = "; VAL(c$): PRINT : PRINT "Comp = "; VAL(a$) * VAL(b$): END
  IF VAL(a$) > VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s))
  IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
  NEXT s
NEXT r
SLEEP
END