Задача по VBA - есть ответ « Вопросы и ответы

hellangel, 564 просмотра

Если вкратце - то в VBA я ни в зуб ногой, а требуется решить задачу:
Для x1 = 0,3 и x2 = –0,3 найти xk =k + sin(xk-2) для k, изменяющегося следующим образом: k = 3, 4, ..., 14.

к-2 - это нижний индекс, а не произведение с иксом. Я даже хз как записать такой индекс в формуле. Заранее спасибо за помощь)))

Ответы:

Иван Петров

xk1,xk2: array [1..11] of float

Удачник

Очень просто, как и любая чисто математическая задача в Бейсике
Dim x(14) As Double, k As Integer ' Объявляем массив и счетчик индекса
x(1) = 0.3 : x(2) = -0.3 ' Вводим начальные значения
' Попробуй ввести с точкой и с запятой: 0,3. В разных версиях VB может быть по-разному.
Cells(1, 1) = x(1) : Cells(1, 2) = x(2) ' И выводим их в таблицу Excel
For k = 3 To 14
x(k) = k + Sin(x(k-2)) ' Вычисляем очередной х
Cells(1, k) = x(k) ' И выводим его в ту же таблицу Excel
Next k
End Sub

Без имени

Sub mak()
Dim Xk As Double
Dim k As Integer
For k = 3 To 14
Xk = Rec(k)
Next k
End Sub
Function Rec(k As Integer) As Double
If k = 1 Then
Rec = 0.3
Exit Function
ElseIf k = 2 Then
Rec = -0.3
Exit Function
End If
Rec = k + Sin(Rec(k - 2))
End Function

10 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.