Математическая задача

@sasha288 · Регистрация: 08.02.2013

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

Помогите пожалуйста сделать программу для расчета задачи №2

@Евгений12 · 26.04.2013, 17:27

Я не математик, если что!
А n не задано? Найти сумму n-ого количества отношений? Я правильно понял?

@Dark_JoeKoker · 26.04.2013, 17:47

VB.NET

Module Module1
    Sub Main()
        Dim i, n As Integer
        n = Console.ReadLine
        Dim x(n), y(n), s, s1 As Single
        x(1) = 1
        y(1) = 1
        s = 0
        s1 = 0
        For i = 2 To n
            x(i) = 0.3 * x(i - 1)
            y(i) = x(i - 1) + y(i - 1)
            Console.WriteLine("x(" & i & ")=" & x(i) & " y(" & i & ")=" & y(i))
            s = x(i) / (1 + Math.Abs(y(i)))
            s1 = s1 + s
        Next
        Console.WriteLine("Summa=" & s1 + 0.5)
        Console.ReadLine()
    End Sub
 
End Module

i=2 to n, а не i=1 to n потому что при i=1 получаются х(0) и у(0).

@sasha288 · 26.04.2013, 17:53 **[ТС]**

да n количества отношений

Dark_JoeKoker, спасибо

@Dark_JoeKoker · 26.04.2013, 17:54

Не за что.

@sasha288 0 / 0 / 0 Регистрация: 08.02.2013 Сообщений: 7
		1
	Математическая задача 26.04.2013, 16:10. Показов 934. Ответов 4 Метки нет (Все метки) Помогите пожалуйста сделать программу для расчета задачи №2 Миниатюры 0

@Евгений12 60 / 58 / 10 Регистрация: 16.02.2013 Сообщений: 146
	26.04.2013, 17:27	2
	Я не математик, если что! А n не задано? Найти сумму n-ого количества отношений? Я правильно понял? 0

@sasha288 0 / 0 / 0 Регистрация: 08.02.2013 Сообщений: 7
	26.04.2013, 17:53 [ТС]	4
	да n количества отношений Dark_JoeKoker, спасибо 0

@Dark_JoeKoker 4 / 4 / 2 Регистрация: 12.11.2012 Сообщений: 56
	26.04.2013, 17:54	5
	Не за что. 0

Опции темы