Page 1 of 1

Остаток при делении

Posted: 2004-08-24 01:59:48
by ruso
Есть ли функция которая возвращяет остаток ?

Posted: 2004-08-24 15:11:19
by 333333

Code: Select all

sub mod(a,b)
var r = a
  while r >= b
    r = r - b
  wend
  return r
end sub
sub div(a,b)
var r = a
var i = 0
  while r >= b
    r = r - b
    i = i + 1
  wend
  return i
end sub

Posted: 2004-08-24 17:15:03
by Edred
333333 wrote:

Code: Select all

sub mod(a,b)
var r = a
  while r >= b
    r = r - b
  wend
  return r
end sub
sub div(a,b)
var r = a
var i = 0
  while r >= b
    r = r - b
    i = i + 1
  wend
  return i
end sub


Я лично не понял зачем тут вводятся переменные 'r', а переменная 'a' не используется... :shock:

Posted: 2004-08-24 18:38:49
by ruso
Все спасиба! +)

Posted: 2004-08-29 15:54:19
by 333333
Edred wrote:Я лично не понял зачем тут вводятся переменные 'r', а переменная 'a' не используется... :shock:

Мало ли что случится с а :)