Определить количество членов арифметической прогрессии - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д