弹簧单摆的模拟演示实验.docVIP

计算机技术基础C语言程序课程设计报告 ? ? 题目：弹簧单摆的模拟演示实验 学院：机电工程学院 专业：工业工程 班级：050109 性名：段博宇 指导教师：顾煜新 设计日期：2007年1月7日 ? ? ? ? ??一．选题背景：在现代社会里，科学技术高度发展，特别是计算机技术开发突飞猛进，大量的网络设计，计算机程序设计应运而生，并且在多方面领域得到广泛的应用。现在利用C语言程序来解释一些物理现象，通过学习语言，我们了解了C语言的语言编程的过程。下面是利用C语言程序来模拟弹簧单摆演示实验。 ?二．设计思想：程序在C语言环境下，调用大量库函数 ,图形函数,数学函数， 还有goto 语句 for语句 do while等循环语句 三. 主要解决问题的方法及技术关键. ? 1、主要问题及解决方法：主要调用到graphics.h，stdio.h,math.h,string.h,conio.h ，等重要库函数，运用循环体等进行编译。 2．技术关键??掌握goto语句 for语句 do while等循环语句的运用，及图形函数,数学函数等函数的应用。 ? 三.程序流程图： 假 真 真 假 四.程序清单: ? #includegraphics.h#includemath.h#includestdio.h#includestring.h#includeconio.h#define A 480#define B 120main(){?char q;?int gdriver=VGA,gmode=VGAHI;?int i,cl=0,w=1;?float x,y,v1,v2,a1,a2,L,M,m,k,X,X0,F,F1,F2,g,c,s,G,G1,G2;?float sp=2;?initgraph(gdriver,gmode,); BG:?cleardevice();?setcolor(5);?setbkcolor(0);?settextstyle(3,0,4);?outtextxy(80,50,Single Pendulum Parameters Input);?setcolor(1);?rectangle(70,50,600,90);??????? setcolor(2);?rectangle(65,45,605,95);?setcolor(14);?rectangle(60,40,610,100);?setcolor(5);?moveto(100,100);?gotoxy(49,12);printf();?settextstyle(1,0,2);?outtextxy(80,130,PLEASE INPUT :? ( 0L120 ));?setcolor(15);?line(50,160,620,160);?setcolor(5);?outtextxy(80,170,The Length Of Pendulum L : );?scanf(%f,L);?gotoxy(35,15);printf();?settextstyle(1,0,2);?outtextxy(80,205,Elastic Coefficient k : );?gotoxy(40,14);printf();?scanf(%f,k);?outtextxy(80,250,The Quality Of Spherule? M :);?gotoxy(50,17);printf();?scanf(%f,M);?outtextxy(80,297,The Quality Of Pedulum Line? m : );?gotoxy(58,20);printf();?scanf(%f,m);?setcolor(15);?line(50,380,620,380);?setcolor(5);?outtextxy(60,400,Press E to Quit AND Press Any Other Key to Go on);?q=getch();?if(q==e||q==E) goto END; ?cleardevice(); GN:?setcolor(2);? setbkcolor(0); ?g=9.8;G=m*g;x=A+L;y=B;v1=0;v2=0; ?settextstyle(1,0,3);?outtextxy(380,20,Sing