To record the names,I used an array of string.And I used another one to save the numbers that should be printed out.This is also an 'sd hoc' problem-as easy as it could be!
program gift1(input,output);
var
a:array[
1
..
2000
]of
string
;
b:array[
1
..
2000
]of integer;
i,j,k,l,n,m,x:integer;
s,s1:
string
;
begin
assign(input,
'
gift1.in
'
);
reset(input);
assign(output,
'
gift1.out
'
);
rewrite(output);
readln(n);
fillchar(a,
sizeof
(a),
0
);
fillchar(b,
sizeof
(b),
0
);
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(m,l);
if
(l
<>
0
) and (m
<>
0
) then
begin
b[k]:
=
b[k]
-
m
+
m mod l;
for
j:
=
1
to l
do
begin
readln(s1);
for
x:
=
1
to n
do
if
s1
=
a[x] then b[x]:
=
b[x]
+
m div l;
end;
end
else
for
j:
=
1
to l
do
readln;
end;
for
i:
=
1
to n
do
begin
write(a[i],
'
'
);
writeln(b[i]);
end;
close(input);
close(output);
end.
To download this PASCAL source file: gift1.pas
program gift1(input,output);var a:array[
1
..
2000
]of
string
; b:array[
1
..
2000
]of integer; i,j,k,l,n,m,x:integer; s,s1:
string
;begin assign(input,
'
gift1.in
'
); reset(input); assign(output,
'
gift1.out
'
); rewrite(output); readln(n); fillchar(a,
sizeof
(a),
0
); fillchar(b,
sizeof
(b),
0
);
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(m,l);
if
(l
<>
0
) and (m
<>
0
) then begin b[k]:
=
b[k]
-
m
+
m mod l;
for
j:
=
1
to l
do
begin readln(s1);
for
x:
=
1
to n
do
if
s1
=
a[x] then b[x]:
=
b[x]
+
m div l; end; end
else
for
j:
=
1
to l
do
readln; end;
for
i:
=
1
to n
do
begin write(a[i],
'
'
); writeln(b[i]); end; close(input); close(output);end.
To download this PASCAL source file: gift1.pas
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
