Расчет суммы по вкладу

@Unusual55 · Регистрация: 11.11.2009

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

Задача состоит из двух частей:
а) расчитать наращенную сумму по вкладу в размере 100тыс руб, если процентная ставка составляет 18% годовых. Вклад сделан сроком на 5 лет, а начисление производится ежеквартально на ту сумму, которая имеется на счету на начало ресчетного периода.
б) При тех же начальных условиях расчитать через сколько лет наращенная сумма увеличивается в 5 раз.

Я составила программу для части А), вот она.....помогите доделать часть Б)

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
24
25
26
27
28
29
30
Dim Sv As Single, Proc As Single, Srok As Single, NS As Single
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text1.Text = ""
    Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text2.Text = ""
    Text2.SetFocus
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text3.Text = ""
    Text3.SetFocus
Exit Sub
End If
 
Sv = Text1.Text
Proc = Text2.Text / (4 * 100)
Srok = Text3.Text
NS = Sv
For i = 1 To Srok * 4
NS = NS + NS * Proc
Next
Text4.Text = NS
End Sub

@Toxa33rus · 19.11.2009, 23:26

а)

Visual Basic
1
NS = 1.18^5 * 100

b)

Visual Basic
1
2
3
4
5
6
7
8
9
p = Sqr(Sqr(1.18)) 'ежеквартальный процент
NS = 100 
NSx5 = NS * 5
k = 0 'кол-во кварталов
Do While NS < NSx5
  NS = NS * p
  k = k + 1
Loop
MsgBox k / 4

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

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

Proc = Text2.Text / (4 * 100)

мне кажется тут ошибка!
годовой процент 18% но это не значит что ежеквартальный 4.5%
100 * 1.045 * 1.045 * 1.045 * 1.045 = 119,25186
100 * 1.18 = 118
Не пытайтесь обмануть Государство!

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа 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	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .