Табулирование функции... - 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
Решение задачи: «Табулирование функции...»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д