普及組題解pascal版本（能測民間資料的三題）

1.成績(score.cpp/c/pas)

【問題描述】

牛牛最近學習了 C++入門課程，這門課程的總成績計算方法是:

總成績=作業成績×20%+小測成績×30%+期末考試成績×50%

牛牛想知道，這門課程自己最終能得到多少分。

【輸入格式】

輸入檔名為 score.in。

輸入檔案只有 1 行，包含三個非負整數A、B、C，分別表示牛牛的作業成績、小測成績和期末考試成績。相鄰兩個數之間用一個空格隔開，三項成績滿分都是 100 分。

【輸出格式】

輸出檔名為 score.out。

輸出檔案只有 1 行，包含一個整數，即牛牛這門課程的總成績，滿分也是 100 分。

【輸入輸出樣例

score.in

100100 80

score.out

90

【輸入輸出樣例 2】

score.in

60 90 80

score.out

79

【資料說明】

對於 30% 的資料，A=B=0。

對於另外 30% 的資料，A = B = 100。

對於 100% 的資料， 0 ≤ A、B、C ≤ 100 且 A、B、C 都是 10 的整數倍。

題解：垃圾題目，自己去解

var

  n,m,i,j,a,b,c:longint;

begin

  readln(a,b,c);

  m:=a*20 div 100+b*30 div 100+c*50 div 100;

  writeln(m);

end.

2. 圖書管理員 (librarian.cpp/c/pas)

【問題描述】

圖書館中每本書都有一個圖書編碼，可以用於快速檢索圖書，這個圖書編碼是一個正整數。

每位借書的讀者手中有一個需求碼，這個需求碼也是一個正整數。如果一本書的圖書編碼恰好以讀者的需求碼結尾，那麼這本書就是這位讀者所需要的。

小 D 剛剛當上圖書館的管理員，她知道圖書館裡所有書的圖書編碼，她請你幫她寫一個程式，對於每一位讀者，求出他所需要的書中圖書編碼最小的那本書，如果沒有他需要的書，請輸出-1。

【輸入格式】

輸入檔名為 librarian.in。

輸入檔案的第一行，包含兩個正整數 n 和 q，以一個空格分開，分別代表圖書館裡書的數量和讀者的數量。

接下來的 n 行，每行包含一個正整數，代表圖書館裡某本書的圖書編碼。

接下來的 q 行，每行包含兩個正整數，以一個空格分開，第一個正整數代表圖書館裡讀者的需求碼的長度，第二個正整數代表讀者的需求碼。

【輸出格式】

輸出檔名為 librarian.out。

輸出檔案有 q 行，每行包含一個整數，如果存在第 i 個讀者所需要的書，則在第 i行輸出第 i 個讀者所需要的書中圖書編碼最小的那本書的圖書編碼，否則輸出-1。

【輸入輸出樣例 1】

librarian.in

5  5

2123

1123

23

24

24

2  23

3  123

3  124

2  12

2  12

librarian.out

23

1123

-1

-1

-1

【資料規模與約定】

對於 20%的資料，1 ≤ n ≤ 2。

另有 20%的資料，q = 1。

另有 20%的資料，所有讀者的需求碼的長度均為 1。

另有 20%的資料，所有的圖書編碼按從小到大的順序給出。

對於 100%的資料，1 ≤ n ≤ 1,000，1 ≤ q ≤ 1,000，所有的圖書編碼和需求碼均不超過 10,000,000。

題解：程式碼能力的模擬測試題，咋搞都爆不了（pos要找程式碼也行，不用字串也行）

注意：圖書編碼 mod 10^編碼長度與需求碼比較，我們可以定義變數min來儲存最小編碼！

程式碼：

var

  n,m,i,j,x,y,k,v:longint;

  a,b:array[1..100000] of string;

  t,f:boolean;

  min:longint;

begin

  readln(n,m);

  for i:=1 to n do

    readln(a[i]);

  for i:=1 to m do

  begin

    readln(x,y);

    str(y,b[i]);

  end;

  for i:=1 to m do

  begin

    min:=100000000;

    for j:=1 to n do

    begin

      if length(b[i])>length(a[j])  then

        continue;

      for k:=1 to length(b[i]) do

        if b[i,k]<>a[j,length(a[j])-length(b[i])+k] then

        begin

          t:=true;

          break;

        end;

      val(a[j],v,y);

      if (not t) and (v<min) then

      begin

        min:=v;

        f:=true;

      end;

      t:=false;

    end;

    if not f then

      writeln(-1) else

    writeln(min);

    f:=false;

  end;

end.

3. 棋盤 (chess.cpp/c/pas)

【問題描述】

有一個m × m的棋盤，棋盤上每一個格子可能是紅色、黃色或沒有任何顏色的。你現在要從棋盤的最左上角走到棋盤的最右下角。

任何一個時刻，你所站在的位置必須是有顏色的(不能是無色的)，你只能向上、下、左、右四個方向前進。當你從一個格子走向另一個格子時，如果兩個格子的顏色相同，那你不需要花費金幣;如果不同，則你需要花費 1 個金幣。

另外，你可以花費 2 個金幣施展魔法讓下一個無色格子暫時變為你指定的顏色。但這個魔法不能連續使用，而且這個魔法的持續時間很短，也就是說，如果你使用了這個魔法，走到了這個暫時有顏色的格子上，你就不能繼續使用魔法;只有當你離開這個位置，走到一個本來就有顏色的格子上的時候，你才能繼續使用這個魔法，而當你離開了這個位置(施展魔法使得變為有顏色的格子)時，這個格子恢復為無色。

現在你要從棋盤的最左上角，走到棋盤的最右下角，求花費的最少金幣是多少?

【輸入格式】

輸入檔名為 chess.in。

資料的第一行包含兩個正整數 m，n，以一個空格分開，分別代表棋盤的大小，棋盤上有顏色的格子的數量。

接下來的 n 行，每行三個正整數 x，y，c，分別表示座標為(x，y)的格子有顏色 c。其中 c=1 代表黃色，c=0 代表紅色。相鄰兩個數之間用一個空格隔開。棋盤左上角的座標為(1, 1)，右下角的座標為(m, m)。

棋盤上其餘的格子都是無色。保證棋盤的左上角，也就是(1，1)一定是有顏色的。

【輸出格式】

輸出檔名為 chess.out。

輸出一行，一個整數，表示花費的金幣的最小值，如果無法到達，輸出-1。

【輸入輸出樣例 1】

chess.in

5 7

1  1  0

1  2  0

2  2  1

3  3  1

3  4  0

4  4  1

5  5  0

chess.out

8

【輸入輸出樣例 2】

chess.in

5  5

1  1  0

1  2  0

2  2  1

3  3  1

5  5  0

chess.out

-1

【資料規模與約定】

對於 30%的資料，1 ≤ m ≤ 5， 1 ≤ n ≤ 10。

對於 60%的資料，1 ≤ m ≤ 20， 1 ≤ n ≤ 200。

對於100%的資料，1 ≤ m ≤ 100， 1 ≤ n ≤ 1,000。

題解：記憶化的最佳鍛鍊時期，dfs雖然TLE但是，加一個記憶化可能會好一些，（1000*1000*100爆不了把）方法也是有很多的（DP堅決不行，方向天生不夠。。。）

注意：魔法要把變的顏色和當前一樣。

程式碼：

var x,y,k,n,m,i,j:longint; a,f:array[0..1010,0..1010] of longint; procedure try(dq,x,y,ma:longint;cannot:boolean); var i,j:longint; begin if (x>n) or (x<1) or (y>n) or (y<1) then exit; f[x,y]:=dq; if (abs(ma-a[x+1,y])+dq<f[x+1,y]) and (a[x+1,y]<>-1) then try(abs(ma-a[x+1,y])+dq,x+1,y,a[x+1,y],false); if (abs(ma-a[x,y+1])+dq<f[x,y+1]) and (a[x,y+1]<>-1) then try(abs(ma-a[x,y+1])+dq,x,y+1,a[x,y+1],false); if (abs(ma-a[x-1,y])+dq<f[x-1,y]) and (a[x-1,y]<>-1) then try(abs(ma-a[x-1,y])+dq,x-1,y,a[x-1,y],false); if (abs(ma-a[x,y-1])+dq<f[x,y-1]) and (a[x,y-1]<>-1) then try(abs(ma-a[x,y-1])+dq,x,y-1,a[x,y-1],false);//這些很明確了，找條最優路徑計算總分 if (not cannot) then begin if (2+dq<f[x+1,y]) and (a[x+1,y]=-1) then try(dq+2,x+1,y,ma,true); if (2+dq<f[x-1,y]) and (a[x-1,y]=-1) then try(dq+2,x-1,y,ma,true); if (2+dq<f[x,y+1]) and (a[x,y+1]=-1) then try(dq+2,x,y+1,ma,true); if (2+dq<f[x,y-1]) and (a[x,y-1]=-1) then try(dq+2,x,y-1,ma,true);//找到最優路徑+魔法金幣2個 end; end; begin for i:=0 to 1010 do for j:=0 to 1010 do a[i,j]:=-1; readln(n,m); for i:=1 to m do begin readln(x,y,k); a[x,y]:=k; end; for i:=0 to n+1 do for j:=0 to n+1 do f[i,j]:=988; try(0,1,1,a[1,1],false); if f[n,n]=988 then writeln(-1) else//如果無法通過 writeln(f[n,n]); end.