forum.clarionlife.net

Код: Выделить всё

  		program
	
  		map
		end

fraction            class
numerator               long,private
denominator             long,private
set                     function(long numerator, long denominator)
set                     function(string number)
setnum                  function(long numerator)
setden                  function(long denominator)
getnum                  function(),long
getden                  function(),long
reduction               function
show                    function(),string
add                     function(fraction f)
sub                     function(fraction f)
mul                     function(fraction f)
					end

f1                  fraction
f2                  fraction

	code
	! сложение 
	!f1.set('1/2')
	!f2.set('1/3')
	!f1.add(f2)
	!message(f1.show()) ! 5/6
	
	! вычитание
	!f1.set('1/3')
	!f2.set('1/5')
	!f1.sub(f2)
	!message(f1.show()) ! 2/15
		
	! умножение
	!f1.set('1/3')
	!f2.set('1/5')
	!f1.mul(f2)
	!message(f1.show()) ! 1/15
		
fraction.set        function(long numerator, long denominator)
	code
	self.setnum(numerator)
	self.setden(denominator)
	
fraction.set        function(string number)
pos                 long 
	code
	pos = instring('/', number, 1, 1)
	if pos = 0 then return end
	self.setnum(sub(number, 1, pos - 1))
	self.setden(sub(number, pos+1, len(number) - pos))
	
fraction.getnum     function()
	code
	return self.numerator
	
fraction.setnum     function(long numerator)
	code
	self.numerator = numerator
	
fraction.setden     function(long denominator)
	code
	self.denominator = denominator

fraction.getden     function()
	code
	return self.denominator
	
fraction.reduction  function
n                       long
d                       long
t                       long
	code
	n = self.getnum()
	d = self.getden()
	loop while d <> 0
    	t = d
        d = n % d
        n = t
	end
	self.setnum(self.getnum() / n)
	self.setden(self.getden() / n)
	
fraction.show       function()
	code
	return self.getnum() & '/' & self.getden()
	
fraction.add        function(*fraction f)
r                   fraction
	code
	self.reduction
	r.setden(self.getden() * f.getden())
	r.setnum((r.getden() / self.getden()) * self.getnum() + (r.getden() / f.getden()) * f.getnum())
	self.setnum(r.getnum())
	self.setden(r.getden())

fraction.sub        function(*fraction f)
r                   fraction
	code
	self.reduction
	r.setden(self.getden() * f.getden())
	r.setnum((r.getden() / self.getden()) * self.getnum() - (r.getden() / f.getden()) * f.getnum())
	self.setnum(r.getnum())
	self.setden(r.getden())

fraction.mul        function(fraction f)
r                   fraction
	code
	self.reduction
	r.setnum(self.getnum() * f.getnum())
	r.setden(self.getden() * f.getden())
	self.setnum(r.getnum())
	self.setden(r.getden())