解題思路：
先把讀入的字串全部轉為大寫，然後用迴圈對字串進行查詢，找到就儲存位置，並且統計次數，最後輸出，如果沒有找到就輸出-1。
程式：var
word,article:ansistring;
i,p,s,len:longint;
begin
readln(word);
readln(article);
word:=' '+upcase(word)+' ';
article:=' '+upcase(article)+' ';
p:=-1;s:=0;
len:=length(word);
for i:=1 to length(article)-len+1 do
if copy(article,i,len)=word then
begin
if p=-1 then p:=i-1;
inc(s);
end;
if p=-1 then write(p)
else write(s,' ',p);
end.
版權屬於: chris
NOIP2011複賽普級組 瑞士輪
解題思路 先讀入資料，用快排對所有選手按照實力值排序，然後模擬，每打一場比賽就把贏的和輸的分為兩個有序陣列，再進行歸併，最後按要求輸出即可。程式 const maxn 100000 vara array 0.2 maxn,1.3 of longint b,c array 0.maxn,1.3 of ...
洛谷 鋪地毯 NOIP2011提高組複賽
為了準備乙個獨特的頒獎典禮，組織者在會場的一片矩形區域 可看做是平面直角座標系的第一象限 鋪上一些矩形地毯。一共有 n 張地毯，編號從 1 到n 現在將這些地毯按照編號從小到大的順序平行於座標軸先後鋪設，後鋪的地毯覆蓋在前面已經鋪好的地毯之上。地毯鋪設完成後，組織者想知道覆蓋地面某個點的最上面的那張...
NOIP2011 普及組複賽模擬試題 第二題 買票
題目背景background ztc真的遇上黃牛了。題目描述description 週末ztc想去劇場看演出，但是他沒有票。這時，救世主wzj出現了，他慷慨地願意賣給ztc一些票。wzj手上共有n張票，但每張票的費用都不一樣，貪心的ztc想要得到更多的票，但又想花費的最少，慷慨的wzj願意給連續的m...