Вычислить вектор Y, каждая компонента которго определяется по формуле

@BDSTPET · Регистрация: 02.06.2012

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

Вычислить вектор Y, каждая компонента которго определяется по формуле.
Задание прикрепил.
x(i) я вычислил, подскажите пожалуйста что делать дальше?

@mc-black · 14.06.2012, 10:40

Вы вычислили X(i) для любого i при помощи формул. Как досчитать Y(X(i)) формулой, я вам показал в приложенном файле. Но от Вас вероятно требуется решить эту задачу на VBA с использованием массивов, вывода на лист Excel.

@mc-black · 14.06.2012, 11:04

А вот макрос:

Visual Basic

Sub Vector()
    Dim i As Byte, x As Double, y As Double, z(1 To 30, 1 To 3)
    
    For i = 1 To 30
        x = (2 * i * i + 8) / (4 * i + 3)
        If x <= -4 Then
            y = 2 * x + 5
        Else
            y = 1 / (2 * x + 5)
        End If
        z(i, 1) = i
        z(i, 2) = x
        z(i, 3) = y
    Next
    
    [A1:C30].Value = z
End Sub

@BDSTPET · 18.06.2012, 20:26 **[ТС]**

Проверьте пожалуйста псевдокод, блок-схему, VBA и само решение.

@mc-black · 19.06.2012, 12:31

Поправил псевдокод и блок-схему. В псевдокоде, насколько я знаю, не описываются типы данных и объявление переменных - только выполняемые операторы, поэтому я убрал их. В программе нет никакого n, которое запрашивается, вводится и т.д. Имеется ввиду жёстко заданное число 30.

	19.06.2012, 12:31