编程马拉松(9)

freesoft

基础的东西差不多了，结构体是程序设计中很重要的东西。从今天开始。
引自第八阁论坛：http://bbs.chinadbg.cn/forum-7-1.html
飞翔技术论坛：http://www.powk.net/bbs/forumdisplay.php?fid=4&page=1
建立成绩单，为了方便，建立，学号，姓名，语文，数学，平均分几项就行了。用结构体完成。
前面几贴有朋友说快了点。真正写程序是从这里开始。结构体和类，在程序的是很重要的，可以大大的减少代码量工这块会用一定数量的题来练习。前面的知道只是为了让大家知道一些基本的东西。函数，变量，循环， 数组，指针。我是这样认为，如果有不对的请指证

freesoft:C++代码：

1. 
   
2. #include <iOStream>
   
3. #define renshu 5
   
4. using namespace std;
   
5. struct stu
   
6. {
   
7.         int num;
   
8.         int yuwen;
   
9.         int shuxue;
   
10.         char name[20];
    
11.         float pingjun;
    
12. };
    
13. void main()
    
14. {
    
15.         //int renshu;
    
16.         //cin>>renshu;
    
17.         struct stu list[renshu];
    
18.                         cout<<"学号 姓名 语文 数学\n";
    
19.         for(int i=0;i<renshu;i++)
    
20.         {
    
21.                 cin>>list[i].num>>list[i].name>>list[i].yuwen>>list[i].shuxue;
    
22.                 list[i].pingjun=list[i].yuwen+list[i].shuxue;
    
23.         }
    
24.         for(i=0;i<renshu;i++)
    
25.         {
    
26.                 cout<<"学号:"<<list[i].num
    
27.                         <<"  姓名:"<<list[i].name
    
28.                         <<"  语文:"<<list[i].yuwen
    
29.                         <<"  数学:"<<list[i].shuxue
    
30.                         <<"  平均分:"<<list[i].pingjun/2
    
31.                         <<"\n";
    
32.         }
    
33. 
    
34. }
    

复制代码

天圆地方：DELPHI

1. 
   
2. procedure TForm1.Button1Click(Sender: TObject);
   
3. type
   
4.   TStu=Record
   
5.    Id:integer;
   
6.    Name:String;
   
7.    Chinese:real;
   
8.    Math:real;
   
9.    Aver:real;
   
10. end;
    
11. var
    
12.   Stu:array of TStu;
    
13.   StuNum,i:integer;
    
14.   TmpChinese,TmpMath,TmpAver:string;
    
15. begin
    
16.   StuNum:=StrToInt(InputBox('输入','请输入班级人数：','5'));
    
17.   SetLength(Stu,StuNum);
    
18.   for i:=0 to StuNum-1 do
    
19.   begin
    
20.      Stu[i].Id:=StrToInt(InputBox('输入','学生'+IntTostr(i+1)+'学号：','9724612'+inttostr(i+1)));
    
21.      Stu[i].Name:=InputBox('输入','学生'+IntTostr(i+1)+'姓名：','张三');
    
22.      Stu[i].Chinese:=StrToFloat(InputBox('输入','学生'+IntTostr(i+1)+'语文成绩：','8'+inttostr(i+1)));
    
23.      Stu[i].Math:=StrToFloat(InputBox('输入','学生'+IntTostr(i+1)+'数学成绩','8'+inttostr(i+1)));
    
24.      Stu[i].Aver:=(Stu[i].Chinese+Stu[i].Math)/2;
    
25.   end;
    
26. for i:=0 to StuNum-1 do
    
27. begin
    
28.     TmpChinese:=FloatToStr(Stu[i].Chinese);
    
29.     TmpMath:=FloatToStr(Stu[i].Math);
    
30.     TmpAver:=FloatToStr(Stu[i].Aver);
    
31.     showmessage(format('学号%d; 姓名%s; 语文%s; 数学%s; 平增均分为：%s',[Stu[i].Id,Stu[i].Name,TmpChinese,TmpMath,TmpAver]));
    
32. end;
    
33. end;
    

复制代码