• Aleksandr
  • Восстановленный участник
  • На форуме с 7 октября 2007г.
  • Сообщений: 20
  • Спасибо: 0

Тема: Как проверить результат деления?

Т.е мне нужно узнать, целое число при делении получилось или нет?
т.е если целое, то делаю то-то,то-то...если нет,то то-то,то-то...

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как проверить результат деления?

? 16 Mod 2
0
? 15 mod 4
3

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как проверить результат деления?

Вариант 2:
? 16 \ 2
8
? 15 \ 6
2

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как проверить результат деления?

вариант 3:

Sub Divide()
    Dim a As Single  'делимое
    Dim b As Single  'делитель
    Dim [b]c[/b] As Single  'остаток
    Dim i As Integer 'целочисленное частное от деления
    a = 578.453
    b = 7.56
    i = 0
    Do
        c = (a - b)
        a = c
        i = i + 1
    Loop While (c > b)
    MsgBox "Result= " & i & vbCrLf & "Remainder= " & Round(c, 2)
End Sub

  • Archi
  • Восстановленный участник
  • На форуме с 28 декабря 2007г.
  • Сообщений: 2
  • Спасибо: 0

Re: Как проверить результат деления?

может так?
if a/b=a\b then
   текст программы
end if

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Как проверить результат деления?

> Archi
Классное решение!
~'J'~

  • Aleksandr
  • Восстановленный участник
  • На форуме с 7 октября 2007г.
  • Сообщений: 20
  • Спасибо: 0

Re: Как проверить результат деления?

Согласен! последнее решение оч хорошее. спасиб.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как проверить результат деления?

If a Mod b =0 then
' Program
End If
Те же яйца, только сбоку.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как проверить результат деления?

"Как проверить результат деления?"
Вот небольшой тест для любителей простых и красивых решений. Посмотрите, что будет?

    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim i As Long
    a = 31417.15
    b = 3141.715
    i = 0
    Do
      c = (a / b)
      i = i + 1
    Loop Until (a / b <> a \ b) Or (i = 2000000)
    MsgBox a / b
    MsgBox a \ b
    MsgBox i

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как проверить результат деления?

I'm sorry, ошибочка вкралась. Конечно же должно быть:

---------------
Do
  c = (a / b)
  i = i + 1
Loop Until [b](a / b = a \ b)[/b] Or (i = 2000000)
-----------------