freesoft 发表于 2007-8-18 07:36:04

编程马拉松(8)

引自第八阁论坛: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

procedure TForm1.Button1Click(Sender: TObject);
type
TPrice=record
    Apple:real;
    Orange:real;
    Grape:real;
    Banana:real;
    end;
TNum=record
    Apple:string;
    Orange:string;
    Grape:string;
    Banana:string;
end;
var
Price:TPrice;
Num:TNum;
i:real;
tmp:string;
begin
price.Apple:=2.20;
price.Orange:=2.0;
price.Grape:=1.8;
price.Banana:=1.6;
Num.Apple:=InputBox('输入数量','请输入你要购买的苹果数果','12');
Num.Orange:=InputBox('输入数量','请输入你要购买的橙子数果','13');
Num.Grape:=InputBox('输入数量','请输入你要购买的葡萄数果','14');
Num.Banana:=InputBox('输入数量','请输入你要购买的香蕉数果','15');
i:=StrToFloat(Num.Apple)*Price.Apple+StrToFloat(Num.Orange)*Price.Orange+StrToFloat(Num.Grape)*Price.grape+StrToFloat(Num.Banana)*Price.Banana;
tmp:=Format('苹果2.2元/kg、橙子2.0元/kg、葡萄.18元/kg、香蕉1.6元/kg。共需%s元',);
ShowMessage(tmp);
end;

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

#include <iostream>
using namespace std;
//苹果(apple)2.20元/kg
//桔子(orange) 2.00元/kg
//葡萄(grape) 1.80元/kg
//香蕉(banana) 1.60元/kg

void main()
{
    enum show {apple,orange,grape,banana};
        show Products;
        int                iTemp ;
    //Products = apple;
        float num=0;
        cout<<"请输入您要购买的产品(apple,orange,grape,banana)和数量\n"<<"例如“2 5” \n"<<endl;
        cin>>iTemp>>num;
        Products = (show)iTemp ;
        switch(Products)
        {
                case apple:cout<<"您购买的产品是“apple”数量是:"<<num<<"共 计:"<<2.20*num<<"\n";break;
                case orange:cout<<"您购买的产品是“orange”数量是:"<<num<<"共 计:"<<2.00*num<<"\n";break;
                case grape:cout<<"您购买的产品是“grape”数量是:"<<num<<"共 计:"<<1.80*num<<"\n";break;
                case banana:cout<<"您购买的产品是“banana”数量是:"<<num<<"共 计:"<<1.60*num<<"\n";break;
                default:cout<<"产品名称错误\n";break;

        }
}
页: [1]
查看完整版本: 编程马拉松(8)