NPSC補完計劃

登入註冊帳號.

請輸入帳號, 密碼以及預計登入時間
進階搜尋  

最新消息:

歡迎光臨NPSC補完計劃

+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]A.犯人的编号

作者 主題: [PASCAL]A.犯人的编号  (閱讀 1223 次)

liouzhou_101

  • 初級會員
  • **
  • 文章數: 44
    • 檢視個人資料
[PASCAL]A.犯人的编号
« 於: 七月 12, 2010, 12:01:12 pm »

简单的一道模拟题,照做就可以了。
代碼: [選擇]
var a,b : set of '0'..'9';
    s,c : string;
    i,j,k,t : longint;
    ch : char;
begin
  readln(s);
  readln(k);
  for i:=1 to k do begin
    readln(c);
    a:=[];
    b:=[];
    for j:=1 to 4 do begin
      a:=a+[s[j]];
      b:=b+[c[j]];
    end;
    a:=a*b;
    t:=0;
    for j:=1 to 4 do
      if s[j]=c[j] then begin
        t:=t+1;
        a:=a-[s[j]];
      end;
    write(t,'A');
    t:=0;
    for ch:='0' to '9' do
      if ch in a then t:=t+1;
    writeln(t,'B');
  end;
end.
記錄
+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]A.犯人的编号