标题:模拟自由落体下落,弹回程序.
只看楼主
qq349004853
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2008-3-27
 问题点数:0 回复次数:5 
模拟自由落体下落,弹回程序.
 我觉得编程并不是一件枯燥的事情,自己可以利用所学的其它科的知识编一些有趣的程序,像下面的程序就不光用到编程知识,还用到高中的自由落体知识,当我们把所学知识都学以致用时,我们才是真正的掌握了知识.
 方法1
#include<graphics.h>
#include<dos.h>
#define g 10
main()
{int x=320,y,t;
 int gdriver=DETECT,gmode;
 initgraph(&gdriver,&gmode,"");
  cleardevice();
   setcolor(4);
   do{
    for(t=0;t<10;t++)
       {y=0.5*g*t*t;
         circle(x,y,20);

         delay(40000);
         cleardevice();
        }
    for(t=0;t<10;t++)
       {y=405-(90*t-0.5*g*t*t);
         circle(x,y,20);

         delay(40000);
         cleardevice();
        }
     }while(!kbhit());
     closegraph();
  }
方法2
#include<graphics.h>
#include<dos.h>
#define g 10
main()
 {int x=320,y,t;
   int size;
  int gdriver=DETECT,gmode;
    void *buffer;
  initgraph(&gdriver,&gmode,"");
  cleardevice();
 circle(320,10,10);
  size=imagesize(310,0,330,20);
  buffer=malloc(size);
  getimage(310,0,330,20,buffer);
  cleardevice();
  do{
       for(t=0;t<10;t++)
       {y=0.5*g*t*t;
        putimage(x,y,buffer,COPY_PUT);
        delay(40000);
        cleardevice();
        }
        for(t=0;t<10;t++)
       {y=405-(90*t-0.5*g*t*t);
        putimage(x,y,buffer,COPY_PUT);
        delay(40000);
        cleardevice();
        }
      }while(!kbhit());
    closegraph();
    }
搜索更多相关主题的帖子: 自由落体 下落 模拟 
2008-05-31 12:32
sdhsuiyuan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-11-11
得分:0 
我是新手,支持 你。继续努力
2008-11-11 11:27
zhang07031204
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-11-11
得分:0 
貌似本科的时候学习C语言的课程设计题目~~~
2008-11-11 14:11
奔跑的鸟
Rank: 1
等 级:新手上路
帖 子:391
专家分:0
注 册:2006-1-20
得分:0 
正好在研究这个,多谢提供思路了

简单的快乐着~
2008-11-17 14:57
lock69
Rank: 2
等 级:论坛游民
帖 子:17
专家分:47
注 册:2009-9-23
得分:0 
收下了,学习,支持!
2009-09-23 12:17
sl231101157
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-12-2
得分:0 
能不能帮忙把流程图画出来啊
拜托了..
2010-12-02 23:23



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-216846-1-1.html




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

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