gift1b.pas

来自「USACO 1.1.2题解 描述 对于一群要互送礼物的朋友」· PAS 代码 · 共 43 行

{
ID: lfzh1991
PROG: gift1
LANG: PASCAL
}
program gift1;
type atype=record
           name:string[14];
           head:char;
           money:integer;
     end;
var np:array[1..10]of atype;
    n,i,j,k,x,m,a:integer;
    s,str:string[14];

begin assign(input,'gift1.in');
      assign(output,'gift1.out');
      reset(input);
      rewrite(output);
      readln(n);
      for i:=1 to n do
        readln(np[i].name);
      for i:=1 to n do
        begin readln(str);
              readln(m,x);
              for a:=1 to n do
                if str=np[a].name then
              for j:=1 to x do
                begin readln(s);
                      for k:=1 to n do
                        if s=np[k].name then begin np[k].money:=np[k].money+m;
                                                   break;
                                             end;
                end;
              np[a].money:=np[a].money-m*x;
        end;
      for i:=1 to n do
        begin writeln(np[i].name,' ',np[i].money);
        end;
      close(input);
      close(output);
end.