回 帖 发 新 帖 刷新版面

主题:[讨论]高分悬赏1道简单题目!(来者有分)

给出正确代码+50分(要两次发)
说思路+20分
说详细思路+30分
说话+10分
灌水不给分


第一题:打篮球

题目描述 

    九(9)班有7名同学代表班级参加学校的篮球比赛。其中a,b只能打前锋, 
c,d只能打后卫,e不能打中锋,f,g只能打中锋。前锋的身高必须有175cm以上, 
中锋的身高必须有173cm以上,后卫的身高没有限制。上场队员为两名前锋,一名 
中锋和两名后卫。已知a,b,c,d,e,f,g的身高,编写程序打印出上场的布阵方案 
的总数,如果无法布阵,则输出“NO”。 

输入格式 

    输入文件仅有一行,依次是a~g共7位同学的身高。 

输出格式 

    输出文件仅有一个数,表示输出方案总数。 

输入样例 

    176 175 168 179 180 169 173 

输出样例 

    5 

样例说明 

     (1)前锋a,b,中锋g,后卫c,d; 

     (2)前锋a,e,中锋g,后卫c,d; 

     (3)前锋e,b,中锋g,后卫c,d; 

     (4)前锋a,b,中锋g,后卫c,e; 

     (5)前锋a,b,中锋g,后卫e,d;
[fly]我叫王昱炜,qq:1078350005[/fly]

回复列表 (共3个回复)

沙发

表示穷举法,用for,程序我这几天编一下

板凳

怎么没人啊?我一定会给分的!

3 楼

var
a,a1,b,b1,c,c1,d,d1,e,e1,f,f1,g,g1,s:integer;
begin
  readln(a1,b1,c1,d1,e1,f1,g1);
  s:=0;
  for a:=0 to 5 do
    for b:=0 to 5 do
      for c:=0 to 5 do
        for d:=0 to 5 do
          for e:=0 to 5 do
            for f:=0 to 5 do
              for g:=0 to 5 do
              begin
                if [a,b,c,d,e,f,g]=[0,0,1,2,3,4,5] then
                begin
                ……
希望楼主在这个基础上做出这道题目

我来回复

您尚未登录,请登录后再回复。点此登录或注册