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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

	Определить прирост суммы вклада за первый, второй и последующие месяца 14.12.2015, 22:31. Показов 2401. Ответов 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