登录 | 注册 |
趣题之家程序贴吧——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
我的程序

 

程序内容:  

{
ID: chenjia1
PROG: gift1
}


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..10of info;
    monstart:array [1..10of 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