编程马拉松（10）

freesoft

引自第八阁论坛：http://bbs.chinadbg.cn/
输入5个学生的成绩，计算出总分和平均分，按总分进行排序，然后打印输出。

要求用，结构体指针。有数学，语文，英语，物理，化学。5个科目。
不太清楚的可以到http://www.pconline.com.cn/pcedu/empolder/gj/c/0503/567930.html这里看看
freesoft:C++

1. 
   
2. #include <iOStream>
   
3. using namespace std;
   
4. struct STU
   
5. {
   
6. int id;
   
7. char name[20];
   
8. int yuwen;
   
9. int shuxue;
   
10. int yingyu;
    
11. int wule;
    
12. int huaxue;
    
13. float pingjunf;
    
14. float zongfen;
    
15. };
    
16. void setdata(STU *s);
    
17. void show(STU *s);
    
18. void sort(STU *s);
    
19. void jisuan(STU *s);
    
20. void main()
    
21. {
    
22. STU stu[5];//声明一个结构体数组并依次调用函数进行赋值，计算，排序，显示。
    
23. setdata(stu);
    
24. jisuan(stu);
    
25. sort(stu);
    
26. show(stu);
    
27. }
    
28. void show(STU *s)//此函数用于显示信息
    
29. {
    
30. int i;
    
31. cout<<"学号  姓名  语文  数学  英语  物理  化学  平均分      总分\n";
    
32. for(i=0;i<5;i++)
    
33. {
    
34. cout
    
35. <<s[i].id<<"  "
    
36. <<s[i].name<<"  "
    
37. <<s[i].yuwen<<"  "
    
38. <<s[i].shuxue<<"  "
    
39. <<s[i].yingyu<<"  "
    
40. <<s[i].wule<<"  "
    
41. <<s[i].huaxue<<"  "
    
42. <<s[i].zongfen<<"  "
    
43. <<s[i].pingjunf;
    
44. 
    
45. }
    
46. }
    
47. void jisuan(STU *s)//此函数用于计算总分和平均分
    
48. {
    
49. int i;
    
50. for(i=0;i<5;i++)
    
51. {
    
52. s[i].zongfen=(float)(s[i].yuwen+s[i].shuxue+s[i].yingyu+s[i].wule+s[i].huaxue);
    
53. s[i].pingjunf=(float)(s[i].zongfen/5.0);
    
54. }
    
55. }
    
56. void sort(STU *s)//此函数用于按总分进行排序
    
57. {
    
58. int i,j;
    
59. STU temp;
    
60. for(i=0;i<5;i++)
    
61. {
    
62. for(j=i+1;j<5;j++)
    
63. {
    
64. if(s[i].zongfen<s[j].zongfen)
    
65. {
    
66. temp=s[i];
    
67. s[i]=s[j];
    
68. s[j]=temp;
    
69. }
    
70. }
    
71. }
    
72. }
    
73. void setdata(STU *s)//此函数用于添加数据
    
74. {
    
75. int i;
    
76. cout<<"请输入5位学生的资料\n";
    
77. for(i=0;i<5;i++)
    
78. {
    
79.         cout<<"请输入第"<<i+1<<"学生的资料\n";
    
80.         cout<<"学号：";
    
81.         cin>>s[i].id;
    
82.         cout<<"姓名：";
    
83.         cin>>s[i].name;
    
84.         cout<<"语文：";
    
85.         cin>>s[i].yuwen;
    
86.         cout<<"数学：";
    
87.         cin>>s[i].shuxue;
    
88.         cout<<"英语：";
    
89.         cin>>s[i].yingyu;
    
90.         cout<<"物理：";
    
91.         cin>>s[i].wule;
    
92.         cout<<"化学：";
    
93.         cin>>s[i].huaxue;
    
94. }
    
95. }
    

复制代码

天圆地方：Delphi

1. 
   
2. var
   
3.   Form1: TForm1;
   
4. 
   
5. implementation
   
6. 
   
7. {$R *.dfm}
   
8. //*-----------user define-------*//
   
9. Type
   
10.   TMYRecord=class(Tobject)
    
11.       Name:array[0..5] of ShortString;
    
12.       ShuXue:array[0..5] of real;
    
13.       YuWen:array[0..5] of real;
    
14.       YingYu:array[0..5] of real;
    
15.       WuLi:array[0..5] of real;
    
16.       HuaXue:array[0..5] of real;
    
17.       ZongFen:array[0..5] of real;
    
18.       PinJunFen:array[0..5] of real;
    
19.   private
    
20.     { Private declarations }
    
21.       function AverNum:boolean;
    
22.     public
    
23.     { Public declarations }
    
24.       Function SumNum:boolean;
    
25.       Function SortSum:boolean;
    
26. 
    
27.   end;
    
28. var
    
29. MyRecord:TMyRecord;
    
30. 
    
31. Function TMyRecord.AverNum:boolean;
    
32. var
    
33. i:integer;
    
34. begin
    
35.   For i:=0 to 4 do
    
36.   begin
    
37.     MyRecord.PinJunFen[i]:=(MyRecord.ShuXue[i]+MyRecord.YuWen[i]+MyRecord.YingYu[i]+MyRecord.WuLi[i]+MyRecord.HuaXue[i])/5;
    
38.   end;
    
39. Result:=True;
    
40. end;
    
41. 
    
42. Function TMyRecord.SumNum:boolean;
    
43. var
    
44. i:integer;
    
45. begin
    
46.   For i:=0 to 4 do
    
47.   begin
    
48.     MyRecord.ZongFen[i]:=MyRecord.ShuXue[i]+MyRecord.YuWen[i]+MyRecord.YingYu[i]+MyRecord.WuLi[i]+MyRecord.HuaXue[i];
    
49.   end;
    
50. Result:=True;
    
51. end;
    
52. 
    
53. Function TMyRecord.SortSum:boolean;
    
54. var
    
55. i,j:Integer;
    
56. begin
    
57.   For i:=0 to 4 do
    
58.   begin
    
59.     For j:=i+1 to 4 do
    
60.     begin
    
61.       if MyRecord.ZongFen[i]<MyRecord.ZongFen[j] then
    
62.         begin
    
63.           //change number
    
64.           MyRecord.ZongFen[5]:=MyRecord.ZongFen[i];
    
65.           MyRecord.ZongFen[i]:=MyRecord.ZongFen[j];
    
66.           MyRecord.ZongFen[j]:=MyRecord.ZongFen[5];
    
67. 
    
68.           MyRecord.ShuXue[5]:=MyRecord.ShuXue[i];
    
69.           MyRecord.ShuXue[i]:=MyRecord.ShuXue[j];
    
70.           MyRecord.ShuXue[j]:=MyRecord.ShuXue[5];
    
71. 
    
72.           MyRecord.YuWen[5]:=MyRecord.YuWen[i];
    
73.           MyRecord.YuWen[i]:=MyRecord.YuWen[j];
    
74.           MyRecord.YuWen[j]:=MyRecord.YuWen[5];
    
75. 
    
76.           MyRecord.YingYu[5]:=MyRecord.YingYu[i];
    
77.           MyRecord.YingYu[i]:=MyRecord.YingYu[j];
    
78.           MyRecord.YingYu[j]:=MyRecord.YingYu[5];
    
79. 
    
80.           MyRecord.WuLi[5]:=MyRecord.WuLi[i];
    
81.           MyRecord.WuLi[i]:=MyRecord.WuLi[j];
    
82.           MyRecord.WuLi[j]:=MyRecord.WuLi[5];
    
83. 
    
84.           MyRecord.HuaXue[5]:=MyRecord.HuaXue[i];
    
85.           MyRecord.HuaXue[i]:=MyRecord.HuaXue[j];
    
86.           MyRecord.HuaXue[j]:=MyRecord.HuaXue[5];
    
87. 
    
88.           MyRecord.PinJunFen[5]:=MyRecord.PinJunFen[i];
    
89.           MyRecord.PinJunFen[i]:=MyRecord.PinJunFen[j];
    
90.           MyRecord.PinJunFen[j]:=MyRecord.PinJunFen[5];
    
91. 
    
92.           MyRecord.Name[5]:=MyRecord.Name[i];
    
93.           MyRecord.Name[i]:=MyRecord.Name[j];
    
94.           MyRecord.Name[j]:=MyRecord.Name[5];
    
95.         end;
    
96.     end;
    
97.   end;
    
98. Result:=True;
    
99. end;
    
100. 
     
101. procedure TForm1.Button1Click(Sender: TObject);
     
102. var
     
103. i:integer;
     
104. begin
     
105. MyRecord:=TMyRecord.Create;
     
106. For i:=0 to 4 do
     
107. begin
     
108.   MyRecord.Name[i]:=InputBox('输入','姓名：',' 张'+IntToStr(i+1));
     
109.   MyRecord.ShuXue[i]:=StrToFloat(InputBox('输入成绩','数学',FloatToStr(0.3+Random(100))));
     
110.   MyRecord.YuWen[i]:=StrToFloat(InputBox('输入成绩','语文',FloatToStr(0.5+Random(100))));
     
111.   MyRecord.YingYu[i]:=StrToFloat(InputBox('输入成绩','英语',FloatToStr(0.6+Random(100))));
     
112.   MyRecord.WuLi[i]:=StrToFloat(InputBox('输入成绩','物理',FloatToStr(0.8+Random(100))));
     
113.   MyRecord.HuaXue[i]:=StrToFloat(InputBox('输入成绩','化学',FloatToStr(0.9+Random(100))));
     
114. end;
     
115. MyRecord.AverNum;
     
116. MyRecord.SumNum;
     
117. MyRecord.SortSum;
     
118. For i:=0 to 4 do
     
119. begin
     
120.   ShowMessage('总分第'+IntToStr(i+1)+'  名：'+'   姓名：'+MyRecord.Name[i]+'数学：'+FloatToStr(MyRecord.ShuXue[i])+' 语文：'
     
121.                +FloatToStr(MyRecord.YuWen[i])+' 英语：'+FloatToStr(MyRecord.YingYu[i])
     
122.                +' 物理：'+FloatToStr(MyRecord.WuLi[i])+' 化学：'+FloatToStr(MyRecord.HuaXue[i])
     
123.                +' 总分：'+FloatToStr(MyRecord.ZongFen[i]));
     
124. end;
     
125. MyRecord.Free;
     
126. end;
     

复制代码

Gue

虽说程序里的缩成不是必需的,但我觉有适当缩成的代码看起来省心很多..

freesoft

下次尽量写清一点。。哈