Вычислить значение функции - Visual Basic .NET (63891)
Формулировка задачи:
Добрый вечер, помогите пожалуйста написать программу как приложение Windows Forms задание:
Составить и отладить процедуру вычисления заданной (во вложении) функции y(x) для каждого из заданных значений параметра a и при всех заданных значениях аргумента x.Во вложении формула и данные для решения.
Вот что у меня есть, это кусочек программы, ее результаты выводились в ексель и я не понимаю как мне заменить Cells, и как сделать ввод и вывод данных.
Листинг программы
- Imports System.Math
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Const pi = 3.14
- Dim x, y, a, n, k As Single
- k = 2
- For a = 0 To 2 Step 0.5
- Cells(3, k) = a
- n = 4
- For x = 0 To pi Step pi / 36
- If a = 0 Then Cells(n, 1) = x
- y = Exp(-x * a) * Sin(x)
- Cells(n, k) = y
- n = n + 1
- Next x
- k = k + 1
- Next a
- End Sub
- End Class
Решение задачи: «Вычислить значение функции»
textual
Листинг программы
- Imports System.Math
- Public Class Form2
- Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- DataGridView1.ColumnCount = 6
- DataGridView1.RowCount = 100
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Const pi = Math.PI
- Dim x, y, a As Single
- Dim k, n As Integer
- k = 1
- DataGridView1(0, 0).Value = "a="
- For a = 0 To 2 Step 0.5
- DataGridView1(k, 0).Value = a
- n = 1
- For x = 0 To pi Step pi / 36
- If a = 0 Then DataGridView1(0, n).Value = x
- y = Exp(-x * a) * Sin(x)
- DataGridView1(k, n).Value = y
- n = n + 1
- Next x
- k = k + 1
- Next a
- End Sub
- End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д