НЕ целочисленное деление

[Infernal13]

В delphi есть оператор mod, но в нём могут использоваться только целые числа, тогда как во многих др. языках в делении по модулю можно использовать либо нецелые числа, либо существуют два вида оперетов - для целых и не целых чисел. Может и в delphi что похожее есть или же существует простенький алгоритм реализующий это.

[krypton]

Тогда сначало round() затем mod.

[Infernal13]

Вообще то если округлить например 0,2 то получится 0, а ноль не может быть использован в mod.

[_Dmitry]

//для целых чисел
c:=a mod b; //возвращает остаток от деления "a" на "b"
c:=a div b; //возвращает целую часть от деления "a" на "b"
//для вещественных чисел
c:=a/b;

Вообще то если округлить например 0,2 то получится 0, а ноль не может быть использован в mod.

А в "других" языках разве не так???

[дмидми]

result = number1 Mod number2

number1 Required; any numeric expression.
number2 Required; any numeric expression.

Remarks

The modulus, or remainder, operator divides number1 by number2 (rounding floating-point numbers to integers) and returns only the remainder as result. For example, in the following expression, A (result) equals 5.

A = 19 Mod 6.7

[Infernal13]

Сообщение от _Dmitry

//для целых чисел
c:=a mod b; //возвращает остаток от деления "a" на "b"
c:=a div b; //возвращает целую часть от деления "a" на "b"
//для вещественных чисел
c:=a/b;

А в "других" языках разве не так???

Мне нобходимо деление по модулю.
На Си например есть fmod в matlab в mod можно использовать как целые так и дробные числа.

[Infernal13]

Сообщение от дмидми

result = number1 Mod number2

number1 Required; any numeric expression.
number2 Required; any numeric expression.

Remarks

The modulus, or remainder, operator divides number1 by number2 (rounding floating-point numbers to integers) and returns only the remainder as result. For example, in the following expression, A (result) equals 5.

A = 19 Mod 6.7

Что мне VBA мне нужен Delphi.

[_Dmitry]

Округляем и считаем:
A:=19 mod round(6.7);
результат тот же самый, что и в VBA.
Вопрос то был про A = 19 Mod 0.2, VBA так же выдает ошибку деления на ноль.

[Somebody]

Сообщение от Infernal13

Может и в delphi что похожее есть или же существует простенький алгоритм реализующий это.

Можно сделать простенькую функцию с использованием ассемблера:

function fmod(a,b:double):double;
asm
fld b
fld a
@part:
fprem1
fstsw ax
test ah, 100b
jnz @part
fxch
fstp st
end;

[дмидми]

Сообщение от _Dmitry

VBA так же выдает ошибку деления на ноль.

(Шопотом.)
Дайте ребёнку самому вспомнить про оператор If