Вычисление простых или сложных процентов

@romapalivoda · Регистрация: 15.03.2012

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

В билдере нужно написать программу «Доход по вкладу», которая вычисляет доходы в зависимости от выбора пользователя – простые или сложные проценты. Простые проценты начисляются в конце срока вклада, сложные – ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Пользователь вводит только целые положительные числа – сумма вклада в тысячах белорусских рублей, срок в днях и процентная ставка в процентах и выбирает тип расчета, после чего кнопка пересчета становится доступной.

Вот что сделал:

C++
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int sum;
int pr;
int srok;
int dohod;
int buf;
int i;
sum=StrToFloat(Edit1->Text);
pr=StrToFloat(Edit2->Text);
srok=StrToInt(Edit3->Text);
if(RadioButton1->Checked)
{
dohod=sum*(pr/100)*(srok/360);
}
else
{
buf=sum;
for (int i=1;i<srok;i++)
{
buf=buf+buf*(pr/100);
dohod=buf-sum;
}
}
sum=sum+dohod;
Label4->Caption="Доход: " + FloatToStrF(dohod, ffGeneral, 9,2) +
              "Сумма в конце срока вклада: " +
              FloatToStrF(sum, ffGeneral, 9,2);
}
 
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Label2->Caption="Срок(дней)";
Label4->Caption="";
}
 
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Label2->Caption="Срок(мес)";
Label4->Caption="";
}

Помогите найти ошибку!

@prosto_lynx · 30.03.2012, 15:11

на вскидочку: в 35й строке нужно еще поделить на количество дней в году (проценты же в годовых задаются)....
а что не работает-то? считает неправильно или ошибку выдает?

@romapalivoda · 31.03.2012, 01:37 **[ТС]**

да нет, здесь не в вычислении дело, она просто не компилируется!

@Avazart · 31.03.2012, 05:13

Какие ошибки выбивает?

@romapalivoda · 01.04.2012, 23:27 **[ТС]**

спасибо, я уже нашел ошибку, извените что занял время!

cpp_developer · 01.04.2012, 23:33

romapalivoda, есть хорошая традиция рассказывать соучастникам, в чем была ошибка.

@romapalivoda · 02.04.2012, 22:10 **[ТС]**

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

romapalivoda, есть хорошая традиция рассказывать соучастникам, в чем была ошибка.

да, конечно, я просто переделал ее:

C++
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Label2->Caption="Срок(дней):";
Label4->Caption="";
Label8->Caption="";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Label2->Caption="Срок(мес):";
Label4->Caption="";
Label8->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double sum;
double pr;
int srok;
double dohod;
double buf;
int i;
sum=StrToInt(Edit1->Text);
srok=StrToInt(Edit2->Text);
pr=StrToInt(Edit3->Text);
if(RadioButton1->Checked)
{
dohod=sum*(pr/100)*(srok/365);
sum=sum+dohod;
Label4->Caption="Доход по вкладу составляет: " + FloatToStr(dohod) + " руб.";
Label8->Caption="Конечная сумма равна: " + FloatToStr(sum) + " руб.";
}
else
{
buf=sum;
for (int i=1;i<srok;i++)
{
buf=buf+buf*(pr/100);
}
dohod=buf-sum;
sum=buf;
Label4->Caption="Доход по вкладу составляет: " + FloatToStr(dohod) + " руб.";
Label8->Caption="Конечная сумма равна: " + FloatToStr(sum) + " руб.";
}
}
//---------------------------------------------------------------------------
 
компоненты формы:
 
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TEdit *Edit1;
        TEdit *Edit2;
        TEdit *Edit3;
        TGroupBox *GroupBox1;
        TRadioButton *RadioButton1;
        TRadioButton *RadioButton2;
        TButton *Button1;
        TLabel *Label5;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label8;
        void __fastcall RadioButton1Click(TObject *Sender);
        void __fastcall RadioButton2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Комментарий модератора

romapalivoda, повтороно обращаю ваше внимание - используйте тег вставки кода :

[CPP ]без пробелов[ /CPP] или кнопка

на панели окна редактирования сообщения

Если с вашей стороны и в дальнейшем будут куски неоформленного кода, можете рассчитывать на последнее китайское предупреждение.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@prosto_lynx 49 / 25 / 2 Регистрация: 09.06.2008 Сообщений: 227
	30.03.2012, 15:11
	на вскидочку: в 35й строке нужно еще поделить на количество дней в году (проценты же в годовых задаются).... а что не работает-то? считает неправильно или ошибку выдает? 1

@romapalivoda 7 / 7 / 0 Регистрация: 15.03.2012 Сообщений: 23
	31.03.2012, 01:37 [ТС]
	да нет, здесь не в вычислении дело, она просто не компилируется! 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	31.03.2012, 05:13
	Какие ошибки выбивает? 1

@romapalivoda 7 / 7 / 0 Регистрация: 15.03.2012 Сообщений: 23
	01.04.2012, 23:27 [ТС]
	спасибо, я уже нашел ошибку, извените что занял время! 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	01.04.2012, 23:33
	romapalivoda, есть хорошая традиция рассказывать соучастникам, в чем была ошибка. 0