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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

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

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