Цикл с параметром: решить функцию

@desant · Регистрация: 15.11.2014

Студворк — интернет-сервис помощи студентам

Делаю лабораторную, тема "Цикл с параметром". Необходимо решить функцию y = f(x) с х нач и х кон.

VB.NET

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim n, a, z As Integer
        Dim x, y, xn, xk As Decimal
 
        z = 1
        xn = 1
        xk = 2
        n = 10
        a = 1.1
        x = xn
 
 
 
        For x = xn To n
            x = x + (xk - xn) / n
            y = Exp(x + 1.7 * a)
 
 
            Label1.Text = Label1.Text + "Шаг:" + CStr(z) + "    Значение фукции: " + CStr(Round(y, 5)) + vbCrLf
            z = z + 1
 
        Next

На выходе получаю не те данные (как мне кажица

). Во первых всего 9 шагов а не 10, и данные не правильные, ибо сделана она и с циклом с предусловием, циклом с постусловием, там у обоих данные одинаковые.
Подскажите пожалуйста в чем проблема.

@desant · 13.01.2015, 22:42 **[ТС]**

"x = x + (xk - xn) / n " это тот х который меняется с xn до xk . При использование Step программа виснет
Необходимо решить уравнение $https://www.cyberforum.ru/cgi-bin/latex.cgi?y = {e}^{x + 1.7a}$ на отрезке x нач = 1 и x кон =2 с интервалом 10

@foxkid · 14.01.2015, 08:15

чтобы 10 шагов было цикл должен начинаться с 0 т.е. xn = 0

@Юпатов Дмитрий · 14.01.2015, 10:23

Сообщение от foxkid

чтобы 10 шагов было цикл должен начинаться с 0 т.е. xn = 0

ну тогда n должно быть равным 9. А имеем цикл от 1 до 10.
Дело в следующем: после шага 9 значение x = 9,9. И потом при заходе на шаг 10 x становится равным 10,9, что вызывает прерывание цикла.
Вот смотри:

VB.NET

1	Label1.Text = Label1.Text & "Шаг:" & CStr(z) & " Значение фукции: " & CStr(Math.Round(y, 5)) & " при х =" & x & vbCrLf

Шаг:1 Значение фукции: 16,44465 при х =1,1
Шаг:2 Значение фукции: 49,40245 при х =2,2
Шаг:3 Значение фукции: 148,41316 при х =3,3
Шаг:4 Значение фукции: 445,85777 при х =4,4
Шаг:5 Значение фукции: 1339,43076 при х =5,5
Шаг:6 Значение фукции: 4023,87239 при х =6,6
Шаг:7 Значение фукции: 12088,38073 при х =7,7
Шаг:8 Значение фукции: 36315,50267 при х =8,8
Шаг:9 Значение фукции: 109097,79928 при х =9,9

А так:

VB.NET

'Необходимо решить уравнение  y = e^(x + 1.7a) на отрезке x нач = 1 и x кон =2 с интервалом 10.
 'КАК может быть интервал 10 между 1 и 2 ?????????????????
'Может имелось в виду интервал между 1 и 2 поделен на 10 участков? Тогда (включая и крайние точки):
Dim s, x, a, y As Single
s = 0.1
a = 1.1
Label1.Text = String.Empty
For x = 1 To 2 + s Step s
    y = Math.Exp(x + 1.7 * a)
    Label1.Text = Label1.Text & "y=" & CStr(Math.Round(y, 5)) & " при х =" & x & vbCrLf
Next
My.Computer.Clipboard.SetText(Label1.Text) ' это чтоб на форум результаты взять :)

y=17,63702 при х =1
y=19,49192 при х =1,1
y=21,5419 при х =1,2
y=23,80749 при х =1,3
y=26,31134 при х =1,4
y=29,07853 при х =1,5
y=32,13675 при х =1,6
y=35,5166 при х =1,7
y=39,25191 при х =1,8
y=43,38008 при х =1,9
y=47,9424 при х =2

если последний шаг (при х=2) не нужен, в коде замени ...To 2+s... на ...To 2...

Добавлено через 7 минут
Давай-ка засвети оригинальный текст задания лабы

@desant · 14.01.2015, 13:18 **[ТС]**

Сообщение от foxkid

чтобы 10 шагов было цикл должен начинаться с 0 т.е. xn = 0

xn это Хначальное которое по условию должно равняться 1 а не 0.

блин у меня вообще все не правильно

VB.NET

[BImports System.Math
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim n, a, z As Integer
        Dim x, y, xn, xk As Decimal
 
        z = 1
        xn = 1
        xk = 2
        n = 10
        a = 1.1
        x = xn
 
        Do While x < xk
 
 
            x = x + (xk - xn) / n
 
 
            y = Exp(x + 1.7 * a)
            Label1.Text = Label1.Text + "Шаг:" + CStr(z) + "    Значение фукции: " + CStr(Round(y, 5)) + vbCrLf
            z = z + 1
        Loop
 
 
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n, a, z As Integer
        Dim x, y, xn, xk As Decimal
 
        z = 1
        xn = 1
        xk = 2
        n = 10
        a = 1.1
        x = xn
        Do
 
 
            x = x + (xk - xn) / n
 
 
            y = Exp(x + 1.7 * a)
            Label1.Text = Label1.Text + "Шаг:" + CStr(z) + "    Значение фукции: " + CStr(Round(y, 5)) + vbCrLf
            z = z + 1
        Loop While x < xk
 
 
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim n, a, z As Integer
        Dim x, y, xn, xk As Decimal
 
        z = 1
        xn = 1
        xk = 2
        n = 10
        a = 1.1
        x = xn
 
 
 
        For x = xn To n
            x = x + (xk - xn) / n
            y = Exp(x + 1.7 * a)
 
 
            Label1.Text = Label1.Text + "Шаг:" + CStr(z) + "    Значение фукции: " + CStr(Round(y, 5)) + vbCrLf
            z = z + 1
 
        Next
 
    End Sub
End Class
[/B]

Добавлено через 35 минут
Вычислите и выведите на экран значения функции y = f(x) в точках x0=xнач, x1=x0+h, x2=x1+h, … xN = xкон, где h =(xкон – xнач)/N. (Иными словами: затабулируйте функцию y = f(x) на отрезке [xнач ; xкон ] с шагом h.) Функция y = f(x) зависит от параметра a.

@Юпатов Дмитрий · 14.01.2015, 13:29

Ну что тебе надо-то?

VB.NET

Dim x, y, x_start, x_end, a As Single
        Dim count As Integer
        Dim sn As Integer
 
        x_start = 1 ' начало отрезка
        x_end = 2 ' конец отрезка
        count = 10 ' количество разбиений
        a = 1.1
        sn = 1 ' это чтоб шаги считать
        Label1.Text = String.Empty
        For x = x_start To x_end + (x_end - x_start) / count Step (x_end - x_start) / count
            y = Math.Exp(x + 1.7 * a)
            Label1.Text = Label1.Text & "Шаг" & sn & ". y=" & CStr(Math.Round(y, 5)) & " (при х =" & x & ")" & vbCrLf
            sn = sn + 1
        Next

Шаг1. y=17,63702 (при х =1)
Шаг2. y=19,49192 (при х =1,1)
Шаг3. y=21,5419 (при х =1,2)
Шаг4. y=23,80749 (при х =1,3)
Шаг5. y=26,31134 (при х =1,4)
Шаг6. y=29,07853 (при х =1,5)
Шаг7. y=32,13675 (при х =1,6)
Шаг8. y=35,5166 (при х =1,7)
Шаг9. y=39,25191 (при х =1,8)
Шаг10. y=43,38008 (при х =1,9)
Шаг11. y=47,9424 (при х =2)

Добавлено через 4 минуты

Сообщение от desant

Вычислите и выведите на экран значения функции y = f(x) в точках x0=xнач, x1=x0+h, x2=x1+h, … xN = xкон, где h =(xкон – xнач)/N. (Иными словами: затабулируйте функцию y = f(x) на отрезке [xнач ; xкон ] с шагом h.) Функция y = f(x) зависит от параметра a.

Ну и в чем проблема? Смотри мой последний код

@desant · 14.01.2015, 13:31 **[ТС]**

Сообщение от Юпатов Дмитрий

Ну что тебе надо-то?

Как раз цикл с параметром у вас правильный, просто я ошибся с вводом данных (из за не знания ) но похоже я так понял я не знаю цикл с предусловием, цикл с постусловием ))

@Юпатов Дмитрий · 14.01.2015, 13:40

постусловие

VB.NET

        Dim x, y, x_start, x_end, a As Single
        Dim count As Integer
        Dim sn As Integer
 
        x_start = 1 ' начало отрезка
        x_end = 2 ' конец отрезка
        count = 10 ' количество разбиений
        a = 1.1
        sn = 1 ' это чтоб шаги считать
        Label1.Text = String.Empty
        x = x_start
        Do
            y = Math.Exp(x + 1.7 * a)
            Label1.Text = Label1.Text & "Шаг" & sn & ". y=" & CStr(Math.Round(y, 5)) & " (при х =" & x & ")" & vbCrLf
            sn = sn + 1
            x = x + (x_end - x_start) / count
        Loop Until x > (x_end + (x_end - x_start) / count)

предусловие
вариант 1 - описан ранее при помощи for...next
вариант 2

VB.NET

        Dim x, y, x_start, x_end, a As Single
        Dim count As Integer
        Dim sn As Integer
 
        x_start = 1 ' начало отрезка
        x_end = 2 ' конец отрезка
        count = 10 ' количество разбиений
        a = 1.1
        sn = 1 ' это чтоб шаги считать
        Label1.Text = String.Empty
        x = x_start
        Do Until x > (x_end + (x_end - x_start) / count)
            y = Math.Exp(x + 1.7 * a)
            Label1.Text = Label1.Text & "Шаг" & sn & ". y=" & CStr(Math.Round(y, 5)) & " (при х =" & x & ")" & vbCrLf
            sn = sn + 1
            x = x + (x_end - x_start) / count
        Loop

@desant · 14.01.2015, 13:53 **[ТС]**

Добавлено через 6 минут
Юпатов Дмитрий, СПС, все понятно

@Юпатов Дмитрий · 14.01.2015, 14:07

VB.NET

Dim x, y, x_start, x_end, a As Single
        Dim count As Integer
        Dim sn As Integer
        x_start = 1 ' начало отрезка
        x_end = 2 ' конец отрезка
        count = 10 ' количество разбиений
        a = 1.1
        sn = 1 ' это чтоб шаги считать
        Label1.Text = String.Empty
        x = x_start
        Do While x < x_end + (x_end - x_start) / count
            y = Math.Exp(x + 1.7 * a)
            Label1.Text = Label1.Text & "Шаг" & sn & ". y=" & CStr(Math.Round(y, 5)) & " (при х =" & x & ")" & vbCrLf
            sn = sn + 1
            x = x + (x_end - x_start) / count
        Loop

VB.NET

Dim x, y, x_start, x_end, a As Single
        Dim count As Integer
        Dim sn As Integer
        x_start = 1 ' начало отрезка
        x_end = 2 ' конец отрезка
        count = 10 ' количество разбиений
        a = 1.1
        sn = 1 ' это чтоб шаги считать
        Label1.Text = String.Empty
        x = x_start
        Do
            y = Math.Exp(x + 1.7 * a)
            Label1.Text = Label1.Text & "Шаг" & sn & ". y=" & CStr(Math.Round(y, 5)) & " (при х =" & x & ")" & vbCrLf
            sn = sn + 1
            x = x + (x_end - x_start) / count
        Loop While x < x_end + (x_end - x_start) / count

А почему у препода вычисление У за циклом?

@desant · 14.01.2015, 14:08 **[ТС]**

Юпатов Дмитрий, Вы это у меня спрашиваете, был бы нормальный препод, я бы на форум бы не заходил )))

@desant 2 / 2 / 3 Регистрация: 15.11.2014 Сообщений: 187
	13.01.2015, 22:42 [ТС]	2
	"x = x + (xk - xn) / n " это тот х который меняется с xn до xk . При использование Step программа виснет Необходимо решить уравнение $https://www.cyberforum.ru/cgi-bin/latex.cgi?y = {e}^{x + 1.7a}$ на отрезке x нач = 1 и x кон =2 с интервалом 10 0

@foxkid 2 / 2 / 2 Регистрация: 22.04.2014 Сообщений: 18
	14.01.2015, 08:15	3
	чтобы 10 шагов было цикл должен начинаться с 0 т.е. xn = 0 0

@desant 2 / 2 / 3 Регистрация: 15.11.2014 Сообщений: 187
	14.01.2015, 13:31 [ТС]	7
	Сообщение от Юпатов Дмитрий Ну что тебе надо-то? Как раз цикл с параметром у вас правильный, просто я ошибся с вводом данных (из за не знания ) но похоже я так понял я не знаю цикл с предусловием, цикл с постусловием )) 0

@desant 2 / 2 / 3 Регистрация: 15.11.2014 Сообщений: 187
	14.01.2015, 13:53 [ТС]	9
	Добавлено через 6 минут Юпатов Дмитрий, СПС, все понятно 0

@desant 2 / 2 / 3 Регистрация: 15.11.2014 Сообщений: 187
	14.01.2015, 14:08 [ТС]	11
	Юпатов Дмитрий, Вы это у меня спрашиваете, был бы нормальный препод, я бы на форум бы не заходил ))) 0

Цикл с параметром: решить функцию

Решение