Циклические алгоритмы

@Bloodmari · Регистрация: 17.10.2010

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

Нужно срочно написать две проги с помощью ЦИКЛОВ....
1) Hайти n членов последовательности x1 =x2 = x3 =1; xk =x(k-1) + x(k-3)
где 1, 2, 3 - нижние индексы..... и k, k-1, k-3 - тож нижние индексы

2) Вычислить последовательность N чисел А0 =x, A1 =2, Аk = Аk-1 – Аk-2.
также 0, 1, k, k-1, k-2 - нижние индексы

Что-то мне подсказывает, что это какие-нибуть иттерации...

Хелп ми)))

@Helen_fire · 16.11.2010, 23:27

Поскольку математическая формула не была предоставлена, 1-ый пункт решен так же по-дурацки, как была поставлена задача. Если хотите красивого макроса-пишите формулу.

Visual Basic

Sub mas()
 
Dim ind, k As Double
Dim tekst$
Dim mas() 
 
k = InputBox("Введите k") 'запрашиваем число элементов
ReDim mas(k) 'задаем размер массива
 
For ind = 1 To k
If ind < 4 Then mas(ind) = 1 Else mas(ind) = mas(ind - 3) + mas(ind - 1) 'вычисляем каждый элемент
tekst = tekst & "X" & k & "=" & mas(ind) & ", "       'добавляем его в выводимый текст
Next
MsgBox (tekst) ' выводим результат на экран
 
End Sub

а 2-ой пункт попробуйте все-таки сначала сделать самостоятельно. ;-)

@Bloodmari 1 / 1 / 0 Регистрация: 17.10.2010 Сообщений: 12
		1
	Циклические алгоритмы 16.11.2010, 21:13. Показов 1770. Ответов 1 Метки нет (Все метки) Нужно срочно написать две проги с помощью ЦИКЛОВ.... 1) Hайти n членов последовательности x1 =x2 = x3 =1; xk =x(k-1) + x(k-3) где 1, 2, 3 - нижние индексы..... и k, k-1, k-3 - тож нижние индексы 2) Вычислить последовательность N чисел А0 =x, A1 =2, Аk = Аk-1 – Аk-2. также 0, 1, k, k-1, k-2 - нижние индексы Что-то мне подсказывает, что это какие-нибуть иттерации... Хелп ми))) 0

	16.11.2010, 23:27