编程马拉松(8)

freesoft

引自第八阁论坛：http://bbs.chinadbg.cn/forum-7-1.html
飞翔技术论坛：http://www.powk.net/bbs/forumdisplay.php?fid=4&page=1
基础的东西到这里就差不多了，以后的贴就是结构体和类的应用，可以说程序刚刚开始。
要求输入购买的品种和数量，输出单价和总价。
水果店出售4种水果的售价如表7-1所示。
表7-1 水果的售价

名称  售价
苹果（apple)  2.20元/kg
桔子（orange) 2.00元/kg
葡萄（grape) 1.80元/kg
香蕉（banana) 1.60元/kg
要求用枚举类型写出程序。
天圆地方：DELPHI

1. 
   
2. procedure TForm1.Button1Click(Sender: TObject);
   
3. type
   
4.   TPrice=record
   
5.     Apple:real;
   
6.     Orange:real;
   
7.     Grape:real;
   
8.     Banana:real;
   
9.     end;
   
10.   TNum=record
    
11.     Apple:string;
    
12.     Orange:string;
    
13.     Grape:string;
    
14.     Banana:string;
    
15.   end;
    
16. var
    
17.   Price:TPrice;
    
18.   Num:TNum;
    
19.   i:real;
    
20.   tmp:string;
    
21. begin
    
22. price.Apple:=2.20;
    
23. price.Orange:=2.0;
    
24. price.Grape:=1.8;
    
25. price.Banana:=1.6;
    
26. Num.Apple:=InputBox('输入数量','请输入你要购买的苹果数果','12');
    
27. Num.Orange:=InputBox('输入数量','请输入你要购买的橙子数果','13');
    
28. Num.Grape:=InputBox('输入数量','请输入你要购买的葡萄数果','14');
    
29. Num.Banana:=InputBox('输入数量','请输入你要购买的香蕉数果','15');
    
30. i:=StrToFloat(Num.Apple)*Price.Apple+StrToFloat(Num.Orange)*Price.Orange+StrToFloat(Num.Grape)*Price.grape+StrToFloat(Num.Banana)*Price.Banana;
    
31. tmp:=Format('苹果2.2元/kg、橙子2.0元/kg、葡萄.18元/kg、香蕉1.6元/kg。共需%s元',[FloatToStr(i)]);
    
32. ShowMessage(tmp);
    
33. end;
    

复制代码

freesoft:C++
以下是C++，在“无量”的帮助下写出，因为没注意到，用了中文的符号。郁闷。。。

1. 
   
2. #include <iOStream>  
   
3. using namespace std;  
   
4. //苹果（apple)  2.20元/kg
   
5. //桔子（orange) 2.00元/kg
   
6. //葡萄（grape) 1.80元/kg
   
7. //香蕉（banana) 1.60元/kg
   
8. 
   
9. void main()  
   
10. {  
    
11.     enum show {apple,orange,grape,banana};
    
12.         show Products;
    
13.         int                iTemp ;
    
14.     //Products = apple;
    
15.         float num=0;
    
16.         cout<<"请输入您要购买的产品(apple,orange,grape,banana)和数量\n"<<"例如“2 5” \n"<<endl;
    
17.         cin>>iTemp>>num;
    
18.         Products = (show)iTemp ;
    
19.         switch(Products)
    
20.         {
    
21.                 case apple:cout<<"您购买的产品是“apple”数量是："<<num<<"共 计："<<2.20*num<<"\n";break;
    
22.                 case orange:cout<<"您购买的产品是“orange”数量是："<<num<<"共 计："<<2.00*num<<"\n";break;
    
23.                 case grape:cout<<"您购买的产品是“grape”数量是："<<num<<"共 计："<<1.80*num<<"\n";break;
    
24.                 case banana:cout<<"您购买的产品是“banana”数量是："<<num<<"共 计："<<1.60*num<<"\n";break;
    
25.                 default:cout<<"产品名称错误\n";break;
    
26. 
    
27.         }
    
28. }
    

复制代码