Определить прирост суммы вклада за первый, второй и последующие месяца

@GENTLEMAN95 · Регистрация: 14.12.2015

Студворк — интернет-сервис помощи студентам

Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить прирост суммы вклада за первый, второй, …, десятый месяц.

Прогу создавал без цикла, забыл про одну главную функцию что то типо (Mod). Прога не работает. Поможете?

@Alex77755 · 14.12.2015, 22:36

Код проги засекречен?
Краткое описание функций можешь посмотреть тут. Интересно применение функции MOD в данном случае

@GENTLEMAN95 · 14.12.2015, 22:44 **[ТС]**

Дело именно в этом я не помню как она использовалась. А как прогу создать без этого оператора не знаю(

Добавлено через 4 минуты
Как сделать эту прогу без цикла, можете код написать?

@Alex77755 · 14.12.2015, 22:46

Расчет сложных процентов по вкладу.

Если вам необходимо рассчитать сложные проценты по вкладу – это будет несколько сложнее. Для этого используется следующая формула.
Формула сложных процентов по вкладу:
Sп = Sв*(1+%)n-Sв
где:
Sп – сумма процентов по вкладу;
Sв – сумма вклада;
% – процентная ставка в период капитализации в виде десятичной дроби. % = p*Nд/Nг (p – процентная ставка по вкладу в виде десятичной дроби, Nд – период капитализации в днях (месяцах), Nг – количество дней (месяцев) в году);
n – число периодов капитализации.

Добавлено через 1 минуту

Как сделать эту прогу без цикла

Это было в условии задания?

@GENTLEMAN95 · 14.12.2015, 23:17 **[ТС]**

В условии с циклом или без нет разницы. Просто без цикла как то проще и ясно и быстрее

Добавлено через 1 минуту
Спасибо. Попробую без цикла и выложу щас.

Добавлено через 14 минут

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c, d, i, f, g, h, y, q, r, n As Single
        r = 1000
 
        a = r + (r * 0.02)
        b = a + (a * 0.02)
        c = b + (b * 0.02)
        d = c + (c * 0.02)
        i = d + (d * 0.02)
        f = i + (i * 0.02)
        g = f + (f * 0.02)
        h = g + (g * 0.02)
        y = h + (h * 0.02)
        q = y + (y * 0.02)
        ListBox1.AccessibleDescription = a
        ListBox1.AccessibleDescription = b
        ListBox1.AccessibleDescription = c
        ListBox1.AccessibleDescription = d
        ListBox1.AccessibleDescription = i
        ListBox1.AccessibleDescription = f
        ListBox1.AccessibleDescription = g
        ListBox1.AccessibleDescription = h
        ListBox1.AccessibleDescription = y
        ListBox1.AccessibleDescription = q
        n = ListBox1.AccessibleDescription = a + ListBox1.AccessibleDescription = b + ListBox1.AccessibleDescription = c + ListBox1.AccessibleDescription = d + ListBox1.AccessibleDescription = i +
            ListBox1.AccessibleDescription = f + ListBox1.AccessibleDescription = g + ListBox1.AccessibleDescription = h + ListBox1.AccessibleDescription = y + ListBox1.AccessibleDescription = q
 
 
 
 
 
 
    End Sub
End Class

Несработало(

Добавлено через 7 минут
В чем же ошибка?

@Alex77755 · 14.12.2015, 23:35

Первая ошибка - не в том разделе постишь
Если ваш бэйсик выдает конструкции типа Imports System, sender As Object, Public Class Form1, то вам СЮДА!
Почему не работает? попробую понять и объяснить

Добавлено через 11 минут

В чем же ошибка?

А разве бейсик не показывает?
Попробуй словами объяснить что делаешь последней строчкой?
От обилия знаков равенства в глазах рябит
NET после переустановки винды не установил. Проверить не могу. В VB6 так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 r = 1000
 a = Round(r + (r * 0.02), 2)
 b = Round(a + (a * 0.02), 2)
 c = Round(b + (b * 0.02), 2)
 d = Round(c + (c * 0.02), 2)
 i = Round(d + (d * 0.02), 2)
 f = Round(i + (i * 0.02), 2)
 g = Round(f + (f * 0.02), 2)
 h = Round(g + (g * 0.02), 2)
 y = Round(h + (h * 0.02), 2)
 q = Round(y + (y * 0.02), 2)
 
 ListBox1.Clear
 ListBox1.AddItem 1 & "  " & a
 ListBox1.AddItem 2 & "  " & b
 ListBox1.AddItem 3 & "  " & c
 ListBox1.AddItem 4 & "  " & d
 ListBox1.AddItem 5 & "  " & i
 ListBox1.AddItem 6 & "  " & f
 ListBox1.AddItem 7 & "  " & g
 ListBox1.AddItem 8 & "  " & h
 ListBox1.AddItem 9 & "  " & y
 ListBox1.AddItem 10 & "  " & q

Добавлено через 2 минуты

Просто без цикла как то проще и ясно и быстрее

Боюсь даже представить если попросят подсчитать сумму вклада через 50 лет

@GENTLEMAN95 · 15.12.2015, 00:04 **[ТС]**

На последней строке я пытаюсь суммировать полученные ответы из каждого месяца.

Добавлено через 44 секунды
Надеюсь на 50 лет не попросят)

Добавлено через 6 минут
В этом коде выдает много ошибок. Dim a, b, c, d, i, f, g, h, y, q, r As Single

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
       r = 1000
        a = Round(r + (r * 0.02), 2)
        b = Round(a + (a * 0.02), 2)
        c = Round(b + (b * 0.02), 2)
        d = Round(c + (c * 0.02), 2)
        i = Round(d + (d * 0.02), 2)
        f = Round(i + (i * 0.02), 2)
        g = Round(f + (f * 0.02), 2)
        h = Round(g + (g * 0.02), 2)
        y = Round(h + (h * 0.02), 2)
        q = Round(y + (y * 0.02), 2)
 
        ListBox1.Clear
        ListBox1.Items(1 &, "  " & a)
        ListBox1.Items(2 &, "  " & b)
        ListBox1.Items(3 &, "  " & c)
        ListBox1.Items(4 &, "  " & d)
        ListBox1.Items(5 &, "  " & i)
        ListBox1.Items(6 &, "  " & f)
        ListBox1.Items(7 &, "  " & g)
        ListBox1.Items(8 &, "  " & h)
        ListBox1.Items(9 &, "  " & y)
        ListBox1.Items(10 &, "  " & q)

Добавлено через 2 минуты
Ошибка BC30201 Требуется выражение.

Ошибка BC30057 Слишком много аргументов для "Public Overloads ReadOnly Property Items As ListBox.ObjectCollection".

Ошибка BC30456 "Clear" не является членом "ListBox".

@Alex77755 · 15.12.2015, 00:19

по тому что не NET

Проверить не могу. В VB6 так

SoftIce · 15.12.2015, 04:13

Сообщение от GENTLEMAN95

a = Round(r + (r * 0.02), 2)

Попробуйте

VB.NET
1
a =Math.Round(r + (r * 0.02), 2)

Сообщение от GENTLEMAN95

ListBox1.Items(1 &, " " & a)

VB.NET
1
ListBox1.Items.Add(1 &, " " & a)

Сообщение от GENTLEMAN95

ListBox1.Clear

VB.NET
1
ListBox1.Items.Clear()

@GENTLEMAN95 · 15.12.2015, 07:15 **[ТС]**

Спасибо щас попробою

SoftIce · 15.12.2015, 07:28

Сообщение от SoftIce

ListBox1.Items.Add(1 &, " " & a)

Запятая тут тоже лишняя.

@GENTLEMAN95 · 15.12.2015, 07:40 **[ТС]**

Из всех ошибок теперь остались связанные с этим кодом: ListBox1.Items.Clear()

VB.NET
1
2
3
4
5
6
7
8
9
10
        ListBox1.Items(1 &, " " & a)
        ListBox1.Items(2 &, "  " & b)
        ListBox1.Items(3 &, "  " & c)
        ListBox1.Items(4 &, "  " & d)
        ListBox1.Items(5 &, "  " & i)
        ListBox1.Items(6 &, "  " & f)
        ListBox1.Items(7 &, "  " & g)
        ListBox1.Items(8 &, "  " & h)
        ListBox1.Items(9 &, "  " & y)
        ListBox1.Items(10 &, "  " & q)

Не понимаю в чем дело, много вариантов перепробовал.
Подчеркнута эта часть : ListBox1.Items( 1 & , " " & a)

Ошибка BC30057 Слишком много аргументов для "Public Overloads ReadOnly Property Items As ListBox.ObjectCollection".

Добавлено через 2 минуты
ListBox1.Items.Clear() тут все в порядке. А вот дальше я не понимаю чё ей не хватает(

SoftIce · 15.12.2015, 07:42

Сообщение от SoftIce

Запятая тут тоже лишняя.

Вы же запятую не убрали

Я кому все это писал? Себе что ли?

Visual Basic
1
ListBox1.Items.Add(1 & " " & a)

@GENTLEMAN95 · 15.12.2015, 07:54 **[ТС]**

да запетую и еще пропустил Add точнее раньше еще убрал. Теперь работает : Dim a, b, c, d, i, f, g, h, y, q, r As Single

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
       r = 1000
        a = Math.Round(r + (r * 0.02), 2)
        b = Math.Round(a + (a * 0.02), 2)
        c = Math.Round(b + (b * 0.02), 2)
        d = Math.Round(c + (c * 0.02), 2)
        i = Math.Round(d + (d * 0.02), 2)
        f = Math.Round(i + (i * 0.02), 2)
        g = Math.Round(f + (f * 0.02), 2)
        h = Math.Round(g + (g * 0.02), 2)
        y = Math.Round(h + (h * 0.02), 2)
        q = Math.Round(y + (y * 0.02), 2)
 
        ListBox1.Items.Clear()
        ListBox1.Items.Add(1 & " " & a)
        ListBox1.Items.Add(2 & " " & b)
        ListBox1.Items.Add(3 & " " & c)
        ListBox1.Items.Add(4 & " " & d)
        ListBox1.Items.Add(5 & " " & i)
        ListBox1.Items.Add(6 & " " & f)
        ListBox1.Items.Add(7 & " " & g)
        ListBox1.Items.Add(8 & " " & h)
        ListBox1.Items.Add(9 & " " & y)
        ListBox1.Items.Add(10 & " " & q)

Спасибо большое)*

SoftIce · 15.12.2015, 08:14

Сообщение от GENTLEMAN95

Теперь работает

Но без циклов это выглядит по крайней мере некрасиво.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@GENTLEMAN95 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 7

	Определить прирост суммы вклада за первый, второй и последующие месяца 14.12.2015, 22:31. Показов 2350. Ответов 14 Метки нет (Все метки) Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить прирост суммы вклада за первый, второй, …, десятый месяц. Прогу создавал без цикла, забыл про одну главную функцию что то типо (Mod). Прога не работает. Поможете? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.12.2015, 22:36
	Код проги засекречен? Краткое описание функций можешь посмотреть тут. Интересно применение функции MOD в данном случае 0

@GENTLEMAN95 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 7
	14.12.2015, 22:44 [ТС]
	Дело именно в этом я не помню как она использовалась. А как прогу создать без этого оператора не знаю( Добавлено через 4 минуты Как сделать эту прогу без цикла, можете код написать? 0

@GENTLEMAN95 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 7
	15.12.2015, 07:15 [ТС]
	Спасибо щас попробою 0