回 帖 发 新 帖 刷新版面

主题:简单题还是没办法

a,b,c,d,e5名同学参加计算机比赛,根据下列条件判断哪些人参加了比赛.
1.A参加时B也参加;
2.B和C只有一人参加;
3.C和D或者都参加或者都不参加;
4.D和E或者都参加或者他们中一人参加;
5.如果E参加,那么A和D都参加.

回复列表 (共8个回复)

沙发

枚举把,枚举谁参加了比赛,然后看条件

板凳

可以寫出來看看吗?

3 楼


var a,b,c,d,e:integer;
begin
for a:=0 to 1 do
    for b:=0 to 1 do
        for c:=0 to 1 do
            for d:=0 to 1 do
                for e:=0 to 1 do
                    if ((a=0) or (a=b)) and (b+c=1) and (c=d) and (d+e>=1) and ((e=0) or ((a=1) and (d=1))) then
                    begin
                    if a=1 then write('a');
                    if b=1 then write('b');
                    if c=1 then write('c');
                    if d=1 then write('d');
                    if e=1 then write('e');
                    end;
writeln;
end.

4 楼

像1995年同创杯全国决赛的某一题一样
用人脑计算出结果后,计算机输出

5 楼

樓上的人的做法和我遇到不懂的題目時的做法一樣,握手啊!!!~~!!!

6 楼

我说你是真不懂还是假不懂???
我说的是书上明文写的
写了若干行writeln
难道你没有仔细看过95年同创杯比赛题?

7 楼

var a,b,c,d,e:integer;
begin
for a:=0 to 1 do
    for b:=0 to 1 do
        for c:=0 to 1 do
            for d:=0 to 1 do
                for e:=0 to 1 do
                    if ((a=0) or (a=b)) and (b+c=1) and (c=d) and (d+e>=1) and ((e=0) or ((a=1) and (d=1))) then
                    begin
                    if a=1 then write('a');
                    if b=1 then write('b');
                    if c=1 then write('c');
                    if d=1 then write('d');
                    if e=1 then write('e');
                    end;
writeln;
end.
这题非常简单

8 楼

for
   for 
      for
         for.....

又是这么恐怖的结构

我来回复

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