主要注意出数为0
label 1;
var a:array[1..10] of string;
c:array[1..10] of integer;
n,mn,rs,pl,i,j,m,k:longint;
s,ss:string;
begin
readln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do begin
readln(s);
for j:= 1 to n do if a[j]=s then k:=j;
readln(mn,rs);
if rs=0 then begin
c[k]:=c[k]+mn;
goto 1;
end;
c[k]:=c[k]-mn+(mn mod rs);
pl:=mn div rs;
for j:= 1 to rs do begin
readln(ss);
for m:= 1 to n do
if a[m]=ss then c[m]:=c[m]+pl;
end;
1:end;
for i:= 1 to n do writeln(a[i],' ',c[i]);
end.

...名字居然有大写

var
i,j,k,l,m,n,p,p2,mc:longint;
a:array[1..10]of string;
mo:array[1..10]of longint;
na:string;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
for i:=1 to p do
begin
readln(na);
l:=0;
for j:=1 to p do
begin
if a[j]=na then l:=j;
end;
readln(m,p2);
if p2<>0 then
mo[l]:=mo[l]-(m-(m div p2)*p2);
for j:=1 to p2 do
begin
readln(na);
for k:=1 to p do
begin
if a[k]=na then
begin
mc:=k;
end;
end;
mo[mc]:=mo[mc]+m div p2;
end;
end;
for i:=1 to p do
begin
writeln(a[i],' ',mo[i]);
end;
end.

点击查看程序源码+详细题解

此题原为USACO1.1.2，题目貌似有点儿歧义……不管这个人原来有多少，他送出去后剩下的钱是不用计入的，只计算 得到的-送出去的 就可以了。所有的钱均为整数。

用我刷了8次的实际经验向只有几个数据出现TLE的同学表示，有可能评测机出问题了……

VijosNT Mini 2.0.5.7 Special for Vijos

编译通过...

├ 测试数据 01：答案正确... (77ms, 584KB)

├ 测试数据 02：答案正确... (69ms, 584KB)

├ 测试数据 03：答案正确... (57ms, 584KB)

├ 测试数据 04：答案正确... (104ms, 584KB)

├ 测试数据 05：答案正确... (50ms, 584KB)

├ 测试数据 06：答案正确... (30ms, 584KB)

├ 测试数据 07：答案正确... (38ms, 584KB)

├ 测试数据 08：答案正确... (10ms, 584KB)

├ 测试数据 09：答案正确... (0ms, 584KB)

├ 测试数据 10：答案正确... (0ms, 584KB)

数据有点弱O(∩_∩)O~

带点水份的说~~~

var

a:array[1..10] of string;

b:array[1..10] of longint;

q,r,n,k,j,i:longint;

name:string;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

b[i]:=0;

for i:=1 to n do

begin

readln(name);

readln(q,r);

if r0 then begin

for j:=1 to n do

if name=a[j] then break;

b[j]:=b[j]-(q div r) * r;

for j:=1 to r do

begin

readln(name);

for k:=1 to n do

if name=a[k] then break;

b[k]:=b[k]+q div r;

end;

end;

end;

for i:=1 to n do

writeln(a[i],' ',b[i]);

end.

一次AC，各位神牛请不要鄙视

写个Map很清晰了。。。

噗。。我自己文件一直开着怪不得没过一直。。

把题审仔细了，明确给出去的钱 和得到的钱 以及分钱的方法

点击这里查看

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第5512个AC

水题，题目看看有点烦，仔细做就行。

自豪！自豪！

program p1035;

var np,i,j,x,y,l:integer;

a:array[1..100]of string;

k:array[1..100]of longint;

z:string;

begin

readln(np);

for i:=1 to np do readln(a[i]);

for i:=1 to np do k[i]:=0;

for i:=1 to np do

begin

readln(z);

readln(x,y);

if y0 then

begin

for j:=1 to np do if a[j]=z then break;

k[j]:=k[j]+(x mod y)-x;

x:=x div y;

end;

for j:=1 to y do

begin

readln(z);

for l:=1 to np do if a[l]=z then k[l]:=k[l]+x;

end;

end;

for i:=1 to np do

writeln(a[i],' ',k[i]);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

a:array[1..10]of string;

b:array[1..10]of extended;

n,i,j,k,ren,z:longint;

qian:real;

name,na:string;

begin

readln(n);

for i:=1 to n do

　　readln(a[i]);

for i:=1 to n do

　　begin

　　 readln(name);

　　 read(qian);read(ren);

　　 readln;

　　 if ren0 then

　　　　for z:=1 to n do

　　　　 if a[z]=name then b[z]:=b[z]-(int(qian/ren))*ren;

　　 for j:=1 to ren do

　　　　begin

　　　　 readln(na);

　　　　 for k:=1 to n do

　　　　　　if a[k]=na then b[k]:=b[k]+(int(qian/ren));

　　　　end;

　　end;

for i:=1 to n do

　　writeln(a[i],' ',b[i]);

end.

var

money,a:array[1..10] of longint;

name:array[1..10] of string[15];

s:string;

i,j,k,l,n,m,f:longint;

begin

readln(n);

for i:=1 to n do

readln(name[i]);

for i:=1 to n do

begin

readln(s);

for j:=1 to n do

if name[j]=s then k:=j;

j:=k; k:=0;

readln(m,f);

if f0 then

begin

money[j]:=(m div f)*f;

m:=m div f;

for j:=1 to f do

begin

readln(s);

for k:=1 to n do

if name[k]=s then inc(a[k],m);

end;

end;

end;

for i:=1 to n do

writeln(name[i],' ',a[i]-money[i]);

end.

AC了，水啊

var

m,s : array[1..20] of longint ;

name : array[1..20] of string ;

n,i,j,k,a,b,money,y : longint ;

x,p:string ;

begin

readln(n);

for i := 1 to n do

readln(name[i]);

for i := 1 to n do

begin

readln(x);

for j := 1 to n do

if name[j]=x then a:=j;

readln(money,y);

m[a]:= m[a]+money;

for j := 1 to y do

begin

readln(p);

for k := 1 to n do

if name[k]=p then b:=k;

if y>0 then

s:=s+money div y;

end;

if y>0 then s[a]:=s[a]+money mod y ;

end;

for i := 1 to n do

writeln(name[i],' ',s[i]-m[i]);

end.

仔细考虑，我WA了2次才AC！ 呜呜呜呜呜呜呜呜！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

用记录比较好。

要用longint,否则只有60分...哈

注意不要被０除就行了，很简单．

var

a:array[1..10]of string;

b:array[1..10]of extended;

n,i,j,k,ren,z:longint;

qian:real;

name,na:string;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

begin

readln(name);

read(qian);read(ren);

readln;

if ren0 then

for z:=1 to n do

if a[z]=name then b[z]:=b[z]-(int(qian/ren))*ren;

for j:=1 to ren do

begin

readln(na);

for k:=1 to n do

if a[k]=na then b[k]:=b[k]+(int(qian/ren));

end;

end;

for i:=1 to n do

writeln(a[i],' ',b[i]:0:0);

end.

我的程序不到３０行

#include

#include

int main()

{

char name[15][20],name1[20];

int d[15]={0},i,j,t,x,y,n;

scanf("%d",&n);

for(i=0;i