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

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

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

правильный код?

                    Листинг программы
                
 
                        
                          
                    
int s = 0, n = 0, m;
const int a = 2, h = 3, p = 41;
while (s < p)
{
m = a + n * h;
s = s + m;
n = n + 1;
}
//вычитается 1, прибавленная после
//последнего изменения суммы.
n = n - 1;
Console.WriteLine("{0:d}", n);
Console.ReadKey();

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы