一个画抛物线的程序

2016-02-19 15:56 98 1 收藏

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐一个画抛物线的程序,希望大家看完后也有个好心情,快快行动吧!

【 tulaoshi.com - 编程语言 】

/*这是一个画抛物线的程序*/
  #includegraphics.h#define BKC 9
  #define COLOR 8   /*  抛物线颜色*/
  #define G 9.856
  main()
  {int gd=DETECT,gm,p=1,i;
  double Vx,Vy,x,y,x1,y1,t;
  char ch;
  initgraph(&gd,&gm,"");while(p==1)        /*主循环体*/
  {
   setbkcolor(BKC);
   setcolor(14);
   setlinestyle(0,0,1);
   rectangle(0,0,639,479);       /*画边框*/
   line(20,460,639,460);  /*画横坐标*/
   line(20,0,20,460);   /*画纵坐标*/
   outtextxy(8,467,"0");
   setlinestyle(1,0,1);
   setcolor(15);
   for(i=20;i640;i+=20)line(i,460,i,0);
   for(i=460;i0;i-=20)line(20,i,640,i);
   gotoxy(1,1);
   printf("Please Enter Vx:" );
   scanf("%lf",&Vx);
   printf("Please Enter Vy:");
   scanf("%lf",&Vy); for(t=0.0;;t+=0.00002)
      {
        x=Vx*t;
        y=Vy*t-0.5*G*t*t;
        x1=2*x+20;      /*画笔定位在用户坐标原点 (20,460)  */
        y1=460-y*2;
        if(y1460.0x1640.0) break;
        putpixel(x1,y1,COLOR);
      }
   setcolor(12);
   outtextxy(250,8,"Finished! Continue(Y/N)?");
   p=-1;
   while(p==-1)
    {
     ch=getch();
     if(ch=='y'ch=='Y') { cleardevice();p=1;}
     else if(ch=='n'ch=='N') p=0;
        else outtextxy(220,200,"ERROR! Please Press 'Y' or 'N'_" );
    }
   }
  closegraph();
  }
  

来源:https://www.tulaoshi.com/n/20160219/1610742.html

延伸阅读
前不久大家都在讨论怎样通过一个程序来生成另一个程序,我提出了将另一个程序当资源文件包含在程序中一起编译,然后在程序运行时根据需要再重新生成出来,下面是我的一个例子, 在这里,我将windows自带的写字板(writer.exe)当资源. 下面是源代码 //资源文件writer.exe长度为204800,在资源文件中定义为"CUSTOM"资源,编号为1111 ...
标签: PHP
  //后台程序sign.php源代码如下: <?require("../opendata.php");? <? if($action=="sign") { if($say==""||$title==""||$url==""||$size=="") { header("location:../message.php?message=资料不完整&redirect=download/download.php?page=0%26actio...
                                一个简单的一箭穿心程序    其实这个程序也不难,只要专心形线方程(1-ρ×cosθ)来绘图就可以了。    作者:...
标签: PHP
  //主程序download.php源代码如下: <?session_start();? <html <head <meta http-equiv="Content-Language" content="zh-cn" <meta http-equiv="Content-Type" content="text/html; charset=gb2312" <meta name="GENERATOR" content="Microsoft FrontPa...
在VB5.0具有面向对象的程序设计思想及可视化的编程方式,可开发出各种多媒体应用程序,颇得软件设计者青睐。笔者最近应用VB5.0编制了一程序,成功实现了“图文并茂”的屏幕效果,即:屏幕出现用户选定的一幅赏心悦目的图像,在图像下方有一行字幕缓缓地从屏幕右边向左边移动,全部文字移至左边消失后,从右边又平滑拖出字幕,字幕移动过程中既不...

经验教程

108

收藏

31
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部