Помогите Найти Ошибку(незначительную)

Тема в разделе "C/C++/C#", создана пользователем romapalivo, 30 мар 2012.

  1. romapalivo

    romapalivo Гость

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

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

    #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="";
    }

    Помогите найти ошибку!
     
Загрузка...
Похожие Темы - Помогите Найти Ошибку(незначительную)
  1. Denic23
    Ответов:
    0
    Просмотров:
    1.100
  2. OlgaZag
    Ответов:
    1
    Просмотров:
    1.291
  3. OlgaZag
    Ответов:
    0
    Просмотров:
    523
  4. Google313
    Ответов:
    0
    Просмотров:
    999
  5. Ellusion
    Ответов:
    1
    Просмотров:
    1.270

Поделиться этой страницей