Sorry your browser is not supported!

n1 = numerator 1
d1 = denominator 1
n2 = numerator 2
d2 = denominator
d12 = common denominator (product of d1 & d2)
r1 = first result
r2 = second result
r3 = final result

  d12 = d1 * d2
  r1 = d2 * n1
  r2 = d1 * n2
  r3 = r1 + r2

Rem Project: Addfractions
Rem Created: Wednesday, September 01, 2010

Rem ***** Main Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, September 01, 2010

Rem ***** Main Source File *****
   
 print "Enter n1"
 input n1
 print "Enter d1"
 input d1
 print "Enter n2"
 input n2
 print "enter d2"
 input d2
  
  
  d12 = d1 * d2
  r1 = d2 * n1
  r2 = d1 * n2
  r3 = r1 + r2
  print r3
  print "---"
  print d12
  wait key

Rem ***** Main Source File *****

Global newnum# : Global newden#

start:

print "Enter Fraction 1 'num/num'"
input f1$
print "Enter Fraction 2 'num/num'"
input f2$

n1#=find_numerator(f1$)
d1#=find_denominator(f1$)

n2#=find_numerator(f2$)
d2#=find_denominator(f2$)

r1# = d2# * n1#
r2# = d1# * n2#
n# = r1# + r2#
d# = d1# * d2#

fl#=n#/d#

if fl#<1
	simplify(n#,d#)
	n#=newnum#
	d#=newden#
endif

if ceil(fl#)=floor(fl#)
	print "Result: "+str$(fl#)
else
	if fl#>1
		num=n#/d#
		n#=n#-num*d#
		print "Result: "+str$(num)+" "+str$(n#)+"/"+str$(d#)
	else
		print "Result: "+str$(n#)+"/"+str$(d#)
	endif
endif

wait key
cls
goto start:

function find_numerator(f$)
	leng=len(f$)
	for ch=1 to leng
		if mid$(f$,ch)="/"
			for c=1 to ch-1
				s$=s$+mid$(f$,c)
			next
			ch=leng+1
		endif
		n=val(s$)
	next
endfunction n

function find_denominator(f$)
	leng=len(f$)
	for ch=1 to leng
		if mid$(f$,ch)="/"
			for c=ch+1 to leng
				s$=s$+mid$(f$,c)
			next
			ch=leng+1
		endif
		d=val(s$)
	next
endfunction d

`simplify by Xenocythe!!
function simplify(numerator#,denominator#)
	for n=0 to numerator#/2
		for d=0 to denominator#/2
			n#=n : d#=d
			if n#/d#=numerator#/denominator# then newnum#=n# : newden#=d# : exitfunction
		next d
	next n
endfunction