Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Определить количество членов арифметической прогре

Автор: dasha96 13.9.2014, 12:57

Привет ребята:*
Учусь на менеджменте, в компьютерах вообще никогда не разбиралась( а тут началось программирование на VB 6.0., очень уж сложно дается, помогите кто чем может если не трудно
2.Определить количество членов арифметической прогрессии
s = a + (a + h) + ... + (a + nh),
сумма которых не превышает заданного числа р.
Если кто вдруг поможет сделайте пояснительные записки чтоб хоть как то разобралась

Автор: Akina 14.9.2014, 19:56

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: kapbepucm 14.10.2014, 15:10

Код

Public Sub Test()
  Dim a As Double
  Dim h As Double
  Dim n As Integer
  Dim p As Double
  Dim s As Double
  a = InputBox("a=?")
  h = InputBox("h=?")
  n = 0
  p = InputBox("p=?")
  s = 0
  If ((a + n * h) > p) Then Exit Sub
  Do While s <= p
    s = s + (a + n * h)
    n = n + 1
  Loop
  MsgBox CStr(n - 1)
End Sub