Функции

[*Qwerty*]

Здравствуйте, подскажите пожалуйста, как вычислить функцию Lg x через васик?
И ещё, есть ли в Вб функция остаток от деления (кажеться она называлась mod, но что-то её в ВБ нету), или хотя бы способ отделения дробной части от числа?
Большое спасибо

[Dzhon]

[quote="VBHELP"]
Функция Log
Возвращает значение типа Double, содержащее натуральный логарифм числа.

Синтаксис

Log(число)

Обязательный аргумент число представляет значение типа Double или любое допустимое положительное числовое выражение.

Дополнительные сведения

Натуральным логарифмом называют логарифм по основанию e. Константа e приблизительно равняется 2,718282.
Для вычисления логарифма числа x по основанию n следует разделить натуральный логарифм числа x на натуральный логарифм числа n:
Logn(x) = Log(x) / Log(n)

В следующем примере показана специальная процедура Function, предназначенная для вычисления логарифмов по основанию 10:
Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
'------------------------------------------------------------------------------------
Пример использования функции Log

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

В данном примере функция Log используется для вычисления натурального логарифма числа.
Dim MyAngle, MyLog
' Задает угол в радианах.
MyAngle = 1.3
' Вычисляет гиперболический арксинус.
MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))


[tyomitch]

Дык и Mod на месте, никуда он не делся...

Дробная часть: X - Int(X)

[*Qwerty*]

Дык и Mod на месте, никуда он не делся...

Дробная часть: X - Int(X)

Тю, блин, а он и вправду никуда не делся, только что- то я не могу вспомнить, как с помощью него определять четное число или нет, не подскажите?
И ещё: как выводить символы Ascii?
И где взять єту таблицу?

[GSerg]

if num mod 2 then ...

for i=0 to 255
debug.? chr$(i)
next

[tyomitch]

А таблица берётся оттуда: Windows-R -> charmap

[*Qwerty*]

if num mod 2 then ...

for i=0 to 255
debug.? chr$(i)
next

А если числа не целые, то что-то оно не так работает, как хотелось бы:
K( 1)= -1.2
K( 2)= -1.005
K( 3)= -.81
K( 4)= -.615
K( 5)= -.42
K( 6)= -.225
K( 7)= -2.99999999999997E-02
K( 8)= .165
K( 9)= .36
K( 10)= .555
K( 11)= .75
K( 12)= .945
K( 13)= 1.14
K( 14)= 1.335
K( 15)= 1.53
K( 16)= 1.725
K( 17)= 1.92
K( 18)= 2.115
K( 19)= 2.31
K( 20)= 2.505
Нечетные :
k( 2)= -1.005
k( 4)= -.615
k( 6)= -.225
k( 8)= .165
k( 10)= .555
k( 12)= .945
k( 14)= 1.335
k( 16)= 1.725
k( 18)= 2.115
k( 20)= 2.505

То есть числа K( 3)= -.81, K( 15)= 1.53, K( 19)= 2.31 не относяться к нечетным.
Вот листинг моей программы:

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

Private Sub Form_Load()
Dim k(1 To 30) As Single
Dim s, i, SrGeom, Proizv, w As Double
Dim n, d As Byte
n = 0
s = (2.7 - (-1.2)) / 20
    For i = -1.2 To 2.7 Step s
        n = n + 1
        k(n) = i
        Text1.Text = Text1.Text + "K(" & Str(n) & ")= " & Str(i) & vbCrLf
    Next
Proizv = 1
Text1.Text = Text1.Text + "Нечетные элементы: " & vbCrLf
    For n = 1 To 30
   
        If k(n) Mod 2 Then
            Text1.Text = Text1.Text + "k(" & Str(n) & ")= " & Str(k(n)) & vbCrLf
            Proizv = Proizv * k(n)
            d = d + 1
        End If
    Next
SrGeom = Proizv / d
Text1.Text = Text1.Text + "Среднее геометрическое: " & Str(SrGeom)
End Sub


[GSerg]

Чётным называется число, нацело делящееся на 2. Значит, оно целое, как минимум.

[*Qwerty*]

Чётным называется число, нацело делящееся на 2. Значит, оно целое, как минимум.

Так получается, что если число нецелое- то оно уже нечетное?
Кстати, среднее геометрическое- это произведение, деленое на количество чисел, не знаешь?

[GSerg]

Если число не целое, то понятие чётности к нему не применяется, поскольку любое дробное число можно разделить на 2, получив чуть более длинную дробь...

[tyomitch]

СГ - это (a1 * a2 * ... * an) ^ (1/n)