首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

大家帮忙检查下,多谢

2012-02-07 
大家帮忙检查下,谢谢!某服装店经营套服,也单件出售。若买的不少于50套,每套80元;不足50套的每套90元;只买上

大家帮忙检查下,谢谢!
某服装店经营套服,也单件出售。若买的不少于50套,每套80元;不足50套的每套90元;只买上衣的每件60元;只买裤子的每条45元.


program ex15_1;
var a,b,c,ma,money:integer;
begin
  writeln('Please input the count of taozhuang:');
  readln(a);
  writeln('Please input the count of shangyi:'); 
  readln(b);
  writeln('Please input the count of kuzi:');
  readln(c);
  if a>=50 then ma:=80*a
  else ma:=90*a;
  money:=ma+60*b+45*c;
  writeln('The money need to pay is:',money);
end.


大家帮忙看看有问题没有

[解决办法]
楼主,好象你发错版块了,这是VB版块
[解决办法]
是走错屋了……
[解决办法]
Pascal?

热点排行