趣题之家程序贴吧——USACO 1.1 Greedy Gifts Givers
|
USACO 1.1 Greedy Gifts Givers
|
基本信息:
提交人:趣题之主 提交日期:4/28/2005 10:17:24 PM 点击数:1276 |
编辑 删除
|
|
程序简介:
USACO 1.1 Greedy Gifts Givers
我的程序
|
程序内容:
program gift1;
type info=record
name:string;
money:longint;
end;
var fin,fout:text;
np:integer;
i,j:integer;
name:string;
money,gifts:longint;
infor:array [1..10] of info;
monstart:array [1..10] of longint;
begin
for i:=1 to 10 do
infor[i].money:=0;
assign(fin,'gift1.in');
reset(fin);
readln(fin,np);
for i:=1 to np do
readln(fin,infor[i].name);
while not eof(fin) do
begin
readln(fin,name);
i:=1;
while infor[i].name<>name do
inc(i);
readln(fin,money,gifts);
monstart[i]:=money;
if gifts<>0 then infor[i].money:=money mod gifts + infor[i].money;
writeln(infor[i].money);
for i:=1 to gifts do
begin
readln(fin,name);
j:=1;
while infor[j].name<>name do
inc(j);
infor[j].money:=money div gifts + infor[j].money;
end;
end;
assign(fout,'gift1.out');
rewrite(fout);
for i:=1 to np do
writeln(fout,infor[i].name,' ',infor[i].money-monstart[i]);
close(fout);
close(fin);
end.
|
|
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/bbs/pascal_view.asp, line 345 |