Табулирование функции - VB (170299)
Формулировка задачи:
Помогите пожалуйста с заданием во вложении
Желательно в VB6
Решение задачи: «Табулирование функции»
textual
Листинг программы
Module Module1
Sub Main()
Dim y As Double
For x As Double = 0 To 0.85 Step 0.05
y = (x - 1) / (3 + Math.Sin(3.6 * x))
Console.WriteLine("При х = " + x.ToString + ", у = " + y.ToString)
Next
Console.ReadLine()
End Sub
End Module