Определить количество членов арифметической прогрессии - VB

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Определить количество членов арифметической прогрессии»

textual
Листинг программы
Dim s As Integer, n As Integer, m As Integer
s = 0
n = 0
Const a = 2
Const h = 3
Const p = 41
Do While (s < p)
m = a + n * h
s = s + m
n = n + 1
Loop
n = n - 1
Label1.Caption = n

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы