随笔分类 -  C/C++/Pascal/Java Code

[1][USACO][1.1.2][Greedy Gift Givers][PASCAL]
摘要:Programgift1;TypeGift=Record nm:ansistring; get,give:longint;End;VarNP:longint;ar:array[1..10]ofGift;ProcedureInit;Varj:longint;Beginreadln(NP);forj:=1toNPdobeginreadln(ar[j].nm);ar[j].get:=0;ar[j].give:=0;end;End;FunctionSearch(s:ansistring):longint;Varj:longint;Beginforj:=1toNPdobeginifar[j].nm=st 阅读全文
posted @ 2011-02-07 21:52 LittleMagic 阅读(212) 评论(0) 推荐(0)