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

[ruso]

Есть ли функция которая возвращяет остаток ?

[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

[Edred]

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' не используется...

[ruso]

Все спасиба! +)

[333333]

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

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