| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 876 人关注过本帖
标题:无聊的时候写的,感觉还是有点用的
只看楼主 加入收藏
josen0205
Rank: 2
来 自:江苏
等 级:论坛游民
帖 子:307
专家分:52
注 册:2007-5-8
结帖率:100%
收藏
 问题点数:0 回复次数:6 
无聊的时候写的,感觉还是有点用的
#include <stdio.h>
#include <stdlib.h>
#include <math.h>

int main(int argc, char *argv[])
{
    double
        depAcct = 0,
        lnAcct = 400000,   /*贷款总额*/
        ln_rate = 0.06426; /*贷款年利息*/
    int i, j,
        period = 240,      /*期数*/
        rfn_sty = 1;       /*还贷方式0等额本金,1等额本息*/
    double
        *lnAcctbal,        /*贷款余额*/
        *depAcctbal,       /*总还款*/
        *payrateAcct,      /*每期应还利息*/
        *payAcct,          /*每期应还款*/
        *paybaseAcct;      /*每期应还本金*/
    double tlnAcct, tdepAcct;
    FILE *fp;

    lnAcctbal = (double *)malloc((period + 1)*sizeof(double));
    depAcctbal = (double *)malloc((period + 1)*sizeof(double));
    payrateAcct = (double *)malloc((period + 1)*sizeof(double));
    payAcct = (double *)malloc((period + 1)*sizeof(double));
    paybaseAcct = (double *)malloc((period + 1)*sizeof(double));

    tdepAcct = depAcct;
    tlnAcct = lnAcct;

    /*等额本金还贷*/
    for(i = 0; i < period; i ++)
    {
        paybaseAcct[i] = 1/(double)period*lnAcct;
        payrateAcct[i] = tlnAcct*ln_rate/12;
        payAcct[i] = paybaseAcct[i] + payrateAcct[i];
        lnAcctbal[i] = (1 - ((double)(i + 1))/(double)period)*lnAcct;
        depAcctbal[i] = tdepAcct + payAcct[i];
        tlnAcct = lnAcctbal[i];
        tdepAcct = tdepAcct + payAcct[i];
    }

    if((fp = fopen("等额本金.txt", "w")) == NULL)
    {
        printf("打开文件失败\n");
        free(lnAcctbal);
        free(depAcctbal);
        free(payrateAcct);
        free(payAcct);
        free(paybaseAcct);
        return -1;
    }

    fprintf(fp, "等额本息还贷:总金额%.2lf,年利%.6lf,期数%d(%d年)\n",
        lnAcct, ln_rate, period, period/12);
    fprintf(fp,"%-8s%-12s%-12s%-12s%-12s%-12s\n",
        "期数", "贷款余额", "还本金", "还利息", "本期还款","总还款");
    for(j = 0; j < i; j++)
    {
        fprintf(fp,"%-8d%-12.02lf%-12.2lf%-12.02lf%-12.2lf%-12.02lf\n",
            j+1, lnAcctbal[j], paybaseAcct[j], payrateAcct[j], payAcct[j],depAcctbal[j]);
    }
    fclose(fp);

    tdepAcct = depAcct;
    tlnAcct = lnAcct;

    /*等额本息还贷*/
    for(i = 0; i < period; i ++)
    {
        paybaseAcct[i] = (pow((1 + ln_rate/12), i+1) - pow((1 + ln_rate/12), i))/(pow((1 + ln_rate/12), period) - 1)*lnAcct;
        payrateAcct[i] = tlnAcct*ln_rate/12;
        payAcct[i] = paybaseAcct[i] + payrateAcct[i];
        lnAcctbal[i] = tlnAcct - paybaseAcct[i];
        depAcctbal[i] = tdepAcct + payAcct[i];
        tdepAcct = depAcctbal[i];
        tlnAcct = tlnAcct - paybaseAcct[i];
    }

    if((fp = fopen("等额本息.txt", "w")) == NULL)
    {
        printf("打开文件失败\n");
        free(lnAcctbal);
        free(depAcctbal);
        free(payrateAcct);
        free(payAcct);
        free(paybaseAcct);
        return -1;
    }

    fprintf(fp, "等额本息还贷:总金额%.2lf,年利%.6lf,期数%d(%d年)\n",
        lnAcct, ln_rate, period, period/12);
    fprintf(fp,"%-8s%-12s%-12s%-12s%-12s%-12s\n",
        "期数", "贷款余额", "还本金", "还利息", "本期还款","总还款");
    for(j = 0; j < i; j++)
    {
        fprintf(fp,"%-8d%-12.02lf%-12.2lf%-12.02lf%-12.2lf%-12.02lf\n",
            j+1, lnAcctbal[j], paybaseAcct[j], payrateAcct[j], payAcct[j],depAcctbal[j]);
    }
    fclose(fp);
    free(lnAcctbal);
    free(depAcctbal);
    free(payrateAcct);
    free(payAcct);
    free(paybaseAcct);
    printf("Create over!\n");

    return 0;
}
搜索更多相关主题的帖子: 贷款 利息 double int include 
2008-07-04 17:45
flyue
Rank: 10Rank: 10Rank: 10
来 自:江南西道
等 级:贵宾
威 望:19
帖 子:3465
专家分:1563
注 册:2006-6-20
收藏
得分:0 
做为作业比较好,我觉得不实用

天之道,损有余而补不足.人之道则不然,损不足以奉有余.孰能有余以奉天下,唯有道者.
2008-07-04 18:05
josen0205
Rank: 2
来 自:江苏
等 级:论坛游民
帖 子:307
专家分:52
注 册:2007-5-8
收藏
得分:0 

只有想不到,没有做不到
2008-07-04 18:08
天空飘云
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2008-7-5
收藏
得分:0 
我看这程序很适合我这样的新手去学习
2008-07-05 10:00
卧龙孔明
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:59
帖 子:3872
专家分:684
注 册:2006-10-13
收藏
得分:0 
一般的,写这样的程序可以练习打字速度
一般的,没有实用意义

我认为有意义的程序指:
1.某个程序能解决某种问题
2.功能性强于当前其它同类程序或者有特色(小巧,方便,有独特的功能等)或者是空前绝后的创造的新一领域的程序
3.这个程序能真正发挥了作用(例如真正被用到那里那里)

My Blog: www.aiexp.info
虽然我的路是从这里开始的,但是这里不再是乐土.感谢曾经影响过,引导过,帮助过我的董凯,飞燕,leeco,starwing,Rockcarry,soft_wind等等等等.别了,BCCN.
2008-07-05 10:06
卧龙孔明
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:59
帖 子:3872
专家分:684
注 册:2006-10-13
收藏
得分:0 
浏览了一边代码,这样的代码不能用于实践中
例如容错功能太差,同时,例如malloc部分,需要加一个是否成功申请内存空间的判断等等

My Blog: www.aiexp.info
虽然我的路是从这里开始的,但是这里不再是乐土.感谢曾经影响过,引导过,帮助过我的董凯,飞燕,leeco,starwing,Rockcarry,soft_wind等等等等.别了,BCCN.
2008-07-05 10:09
flyue
Rank: 10Rank: 10Rank: 10
来 自:江南西道
等 级:贵宾
威 望:19
帖 子:3465
专家分:1563
注 册:2006-6-20
收藏
得分:0 
恩,错误判断是很重要的。要不然到时候出了错误都很难马上发现。
如果这个错误会使你的程序崩溃还好,可以去调试。要是不会崩溃呢?所以说出了错都不知道了

天之道,损有余而补不足.人之道则不然,损不足以奉有余.孰能有余以奉天下,唯有道者.
2008-07-05 10:33
快速回复:无聊的时候写的,感觉还是有点用的
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025675 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved