Табулирование функции... - VB

Формулировка задачи:

Здраствуйте уважаемые программисты!у меня есть небольшая проблема по написанию программного кода к задаче...уже неделю решаю..((помогите если не затруднит,буду Очень приочень благодарна! Дано действительное число а>0. Последовательность х0 х1 ..,образована по закону : х0=система:мин(2*а,0.95) при а<=1 a/5 при 1<a<25 a/25 в остальных случаях Мой программный код: i = 1 For а = 0.7 To 4.7 If (a <= 1) Then If 2 * a > 0.95 Then x = 0.95 Else x = 2 * a If (a > 1) And (a < 25) Then x = a / 5 If (a >= 0) And (a > 25) Then x = a / 25 Cells(i, 5).Value = a Cells(i, 6).Value = x i = i + 1 Next a

Код к задаче: «Табулирование функции... - VB»

textual
Sub main()
Dim a As Single, i As Byte
i = 2
Cells(1, 1) = "a": Cells(1, 2) = "x"
For a = 0.1 To 30 Step 1
    Cells(i, 1) = a
    If a <= 1 Then
        Cells(i, 2) = min(a)
    ElseIf a > 1 And a < 25 Then
        Cells(i, 2) = a / 5
    Else
        Cells(i, 2) = a / 25
    End If
    i = i + 1
Next a
End Sub
 
Function min(ByVal a)
If 2 * a > 0.95 Then min = 0.95 Else min = 2 * a
End Function

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ