实验三年利率计算下载_Word模板_2

is_594905

暂无简介

实验三年利率计算实验三年利率计算 #include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" Tf4_10_1 *f4_10_1; //-----------------------------------------...

实验三年利率计算 #include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" Tf4_10_1 *f4_10_1; //--------------------------------------------------------------------------- __fastcall Tf4_10_1::Tf4_10_1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall Tf4_10_1::BtnEndClick(TObject *Sender) { int button; button=Application->MessageBox("你确定要结束程序吗,","关闭程序",65); if(button==1){Close();} } //--------------------------------------------------------------------------- void __fastcall Tf4_10_1::BtninputClick(TObject *Sender) { double pay,yr_rate,yr,sn; pay=StrToFloat(InputBox("本金","请输入本金:",",")) ; yr_rate=StrToFloat(InputBox("年利率","请输入年利率%:",",")) ; yr=StrToFloat(InputBox("年数","请输入年数:",",")) ; sn=pay*pow((1+yr_rate/100),yr); Canvas->TextOut(10,50,"本金:"+FloatToStr(pay)+"元"); Canvas->TextOut(10,70,"年利率:"+FloatToStr(yr_rate)+"%"); Canvas->TextOut(10,90,"年数:"+FloatToStr(yr)+"年"); Canvas->TextOut(10,110,"本利和:"+FloatToStr(sn)+"元"); } //--------------------------------------------------------------------------- void __fastcall Tf4_10_1::FormPaint(TObject *Sender) { Color=clWhite; Font->Size=10; Canvas->TextOut(10,10,"=======定期存款，复利法计算======="); Canvas->TextOut(10,30,"本利和=本金(1+年利率)^年数"); } //---------------------------------------------------------------------------

本文档为【实验三年利率计算】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。

实验三年利率计算

热门搜索

历史搜索