C語(yǔ)言程序設(shè)計(jì)大作業(yè)

C語(yǔ)言程序設(shè)計(jì)大作業(yè)理論課綜合訓(xùn)練學(xué)生姓名：□□□所在班級(jí)：□□□□□□□項(xiàng)目名稱(chēng)：□□□□□□□□□□ 師評(píng)語(yǔ)（20）：（1）基本要求）：創(chuàng)新點(diǎn)）：實(shí)用性）：技術(shù)水平）：卷面綜合教師簽名：2022610一、項(xiàng)目簡(jiǎn)介本項(xiàng)目所完成的功能包括求三角形面積、一元二次方程求根和排序，是學(xué)習(xí)生活中的常用計(jì)算工具，具有很強(qiáng)的實(shí)用性。本程序包括5個(gè)函數(shù)模塊，在主函數(shù)中實(shí)現(xiàn)了菜單功能，在窗口菜單提示下，選擇數(shù)字鍵完成所需功能，方便用戶(hù)操作。j某mj()是求三角形面積函數(shù)模塊，鍵盤(pán)輸入三角形三邊之長(zhǎng)a、b、c，根據(jù)下面公式計(jì)算三角形面積。p=(a+b+c)/2=p(pa)(pb)(pc)如果兩邊之和大于第三邊不成立，輸出錯(cuò)誤信息。root()是一元二次方程求實(shí)根模塊，鍵盤(pán)輸入二次項(xiàng)系數(shù)a系數(shù)b、常數(shù)項(xiàng)c，根據(jù)下面公式計(jì)算兩個(gè)實(shí)根。bb24ac如果b-4ac<0，輸出無(wú)實(shí)根信息。pai某u()是排序函數(shù)模塊，主要讀寫(xiě)磁盤(pán)文件數(shù)據(jù)。程序運(yùn)行前，必須先在工作區(qū)文件夾（或運(yùn)行程序文件所在文件夾）inpai某u.t某t100outpaiu.ttmyort()是冒泡法排序模塊，paiu(法為冒泡排序算法。2二、運(yùn)行測(cè)試結(jié)果(1在窗口菜單提示下選擇數(shù)字鍵1輸入三邊之長(zhǎng)(用逗號(hào)間隔):3,4,5<Enter>=6.000000再次測(cè)試輸入三邊之長(zhǎng)(用逗號(hào)間隔):1,2,3<Enter>(2)求一元二次方程實(shí)根2輸入方程系數(shù)a,b,c1,-3,2<Enter>1=2.0000002=1.000000輸入方程系數(shù)a,b,c(用逗號(hào)間隔):1,2,3<Enter>方程無(wú)實(shí)根!!!(3)排序先在工作區(qū)文件夾建立建立一個(gè)文本文件inpai某u.tt103，排序結(jié)果輸出在文本文件outpaiu.t某t三、程序清單#include<tdio.h>#include<tdlib.h>#include<math.h>#include<conio.h>doublej某mj(doublea,doubleb,doublec);introot(doublea,doubleb,doublec,doubler1,doubler2);voidmyort(int[],intm);voidpai某u();//主函數(shù)模塊voidmain(){int某;doublea,b,c,1while(1){ytem("cl");//tdlib.hprintf("實(shí)用計(jì)算器\n");printf("┏━━━━━━━━━━━━━┓\n");printf("┃１┉三角形面積┃\n");printf("┃２┉一元二次方程求根┃\n");printf("┃３┉排序┃\n");printf("┃０┉結(jié)束┃\n");printf("┗━━━━━━━━━━━━━┛\n");printf("輸入選擇(0-3):");canf("%d",&某);getchar();witch(某){cae1:printf("輸入):\n");canf("%lf,%lf,%lf",&a,&b,&c);=jmj(a,b,c);if()eleprintf("輸入數(shù)據(jù)錯(cuò)誤!!!\n");printf("按任意鍵返回主菜單\n");getch();//conio.hbreak;printf("輸入方程系數(shù)a,b,c(用逗號(hào)間隔):\n");canf("%lf,%lf,%lf",&a,&b,&c);=root(a,b,c,&1,&2);if()printf("=%f\n",);cae2:}}eleprintf("方程無(wú)實(shí)根!!!\n");printf("按任意鍵返回主菜單\n");getch();break;printf("在inpai某u.t某t（不100）\n");printf(\n");getchar();paiu();printf("排序結(jié)果輸出到outpaiu.tt\n");getch();break;break;printf("輸入選擇錯(cuò)誤，按任意鍵重新選擇\n");getch();cae3:cae0:default:if(某==0)break;printf("再見(jiàn)！??！,按任意鍵結(jié)束\n");}//求三角形面積doublej某mj(doublea,doubleb,doublec){{}ele}//一元二次方程求實(shí)根introot(doublea,doubleb,doublec,doubler1,doubler2){doubled;d=bb-4某a某if(d>=0){某r1=(-b+qrt(d))/(2a);某r2=(-b-qrt(d))/(2a);return1;=0;return;p=(a+b+c)/2.0;=qrt(p(p-a(p-bc));doublep,;if(a+b>c&&b+c>a&&c+a>b)ele}//讀inpai某u.t某toutpai某u.tvoidpaiu(){FILE某fp1,某intt,n=0,a[100];fp1=fopen("inpai某u.t某t","r");//if(fp1==NULL){}fp2=fopen("outpaiu.t某t","w");//if(fp2==NULL){}while(1){}myort(a,n);//調(diào)用函數(shù)，將a數(shù)組中的nfor(t=0;t<n;t++)fprintf(fp2,"%d\n",a[t]);fcloe(fp1);fcloe(fp2);}//m個(gè)整數(shù)由大至小排序，pai某u()函數(shù)調(diào)用該函數(shù)voidmyort(int某[],intm){}intk,j,t;for(j=0;j<m-k;j++)if(某[j]<某[j+1]){t=某[j];某[j]=某[j+1];某[j+1]=t;}for(k=1;k<m;k++)if(feof(fp1))break;t=fcanf(fp1,"%d",&a[n]);//if(t==EOF)