USACO1.1.2[Greedy Gift Givers]

亦为白菜题,直接模拟.

1. {
2. ID:idontknow
3. PROG:gift1
4. LANG:PASCAL
5. }
7. var
8.     j, cash, num, i, hash, np : longint;
9.     na : array[1 .. 10] of string[14];
10.     money : array[1 .. 10] of longint;
11.     st : string;
12.     
13. function hh(s : string) : longint;
14. var
15.     i : longint;
16. begin
17.     for i := 1 to np do 
18.         if s = na[i] then begin
19.             hh := i;
20.             break;
21.         end;
22. end;
24. begin
25.     assign(input,'gift1.in'); reset(input);
26.     assign(output,'gift1.out'); rewrite(output);
27.     readln(np);
28.     for i := 1 to np do 
29.         readln(na[i]);
30.     for i := 1 to np do begin
31.         readln(st);
32.         hash := hh(st);
33.         readln(cash, num);
34.         if num <> 0 then begin
35.             money[hash] := money[hash] - cash + cash - num * (cash div num);
36.             cash := cash div num;
37.             for j := 1 to num do begin
38.                 readln(st);
39.                 hash := hh(st);
40.                 money[hash] := money[hash] + cash;
41.             end;
42.         end else
43.             money[hash] := money[hash] + cash;
44.     end;
45.     for i := 1 to np do
46.         writeln(na[i], ' ', money[i]);
47.     close(input); close(output);
48. end.
49.