Другие языки программирования и технологии

Информатика. Visual Basic, скромно отблагодарю.

ЗАДАЧА 3. Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом.
Суммировать числа до тех пор, пока сумма не превысит 15. Напечатать, на котором по счету числе это произошло. Если оно не произошло вообще, напечатать текст “Числа слишком малы”. Так, если А={2,4,3,3,5,2,1}, результат: 5 (сумма превысила 15 на пятом по счету числе).

ЗАДАЧА 4. Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать необходимые аналитические соотношения, описывающие все имеющиеся зависимости: Y=(33-1)(3-2+2)(31-4)(3-0+8)...

Завтра сессия, а я на гране завала, помогите:)
Владимир Морозов
Владимир Морозов
96
Предложение скромности на почту, может помогу.
VK
Vahan Karakhanyan
66 949
Лучший ответ
От сессии до сессии студенты живут весело -)
Первая задача, смотрите код, правда на VBA, но разница крайне невелика с VB. Вторую задачу не могу решить, поскольку из двух членов последовательности невозможно однозначно определить формулу функции, нужен третий член последовательности. Могу только приблизительно составить формулу: ( (33 - 2*k) - (1 + 3*k) )*( 3 - (2 - 2*k)+ (2 + 6*k) ) верно или неверно без понятия, но если верно, то такую функцию можно простым циклом подсчитать:

n = 10 например k от 1 до 10

Option Explicit
Option Base 1
Dim b As String
Dim sum As Double
Dim k, n As Integer

Sub Algoritm()
n = InputBox("Ââåäèòå k = ")
sum = 1
For k = 0 To n
sum = sum * ((33 - 2 * k) - (1 + 3 * k)) * (3 - (2 - 2 * k) + (2 + 6 * k))
Next k
b = "Ïîñëåäîâàòåëüíîñòü ðàâíà ((33 - 2 * k) - (1 + 3 * k)) * (3 - (2 - 2 * k) + (2 + 6 * k)) = "
b = b & Str(sum) + Chr(13)
MsgBox ("Ïðè k îò 0 äî " & Str(n) + Chr(13) + Chr(10) + b)

End Sub
Юрий Богородицкий
Юрий Богородицкий
7 013
сессия? вот надо было не пиво у подворотней с гопотой хлестать а учится учится и еще раз уччится делай сам или готося ходить в сапогах и честь отдавать салага
Кирилл Посевин
Кирилл Посевин
6 500

Похожие вопросы