地铁建设 (Standard IO)

Description

某地铁沿线共设N站，可分为U（地面式）、D（地下式）和C（复合式）三种类型。为避免单调，相邻地铁站的类型不能重复。同时，由于地铁站所处环境和地质条件有所差异，每个站点按不同类型的建设成本也不尽相同。现给定各站点的三种建设成本，请计算出该地铁线的最低总造价。

Input

输入文件subway.in包含N+1行：
第1行为一个正整数，表示地铁站的总数N。
第2行到第N+1行分别包含用空格分隔的三个正整数U，D和C。其中第i+1行表示第i个地铁站按U、D 或C 类型的建设成本，1≤i≤N。

Output

输出文件subway.out只包含一个正整数，表示建成这N个地铁站所需要的最低成本。

题解
DP嘛。
a[i,1]:=a[i,1]+min(a[i-1,2],a[i-1,3]);
a[i,2]:=a[i,2]+min(a[i-1,1],a[i-1,3]);
a[i,3]:=a[i,3]+min(a[i-1,1],a[i-1,2]);

代码

var
  a:array[0..300000,1..3] of longint;
  n,i,ans:longint;
function min(x,y:longint):longint;
begin
  if x<y then exit(x)
  else exit(y);
end;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i,1],a[i,2],a[i,3]);
  for i:=1 to n do
    begin
      a[i,1]:=a[i,1]+min(a[i-1,2],a[i-1,3]);
      a[i,2]:=a[i,2]+min(a[i-1,1],a[i-1,3]);
      a[i,3]:=a[i,3]+min(a[i-1,1],a[i-1,2]);
    end;
  ans:=min(a[n,1],a[n,2]);
  ans:=min(ans,a[n,3]);
  writeln(ans);
end.


var
  a:array[0..300000,1..3] of longint;
  n,i,ans:longint;
function min(x,y:longint):longint;
begin
  if x<y then exit(x)
  else exit(y);
end;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i,1],a[i,2],a[i,3]);
  for i:=1 to n do
    begin
      a[i,1]:=a[i,1]+min(a[i-1,2],a[i-1,3]);
      a[i,2]:=a[i,2]+min(a[i-1,1],a[i-1,3]);
      a[i,3]:=a[i,3]+min(a[i-1,1],a[i-1,2]);
    end;
  ans:=min(a[n,1],a[n,2]);
  ans:=min(ans,a[n,3]);
  writeln(ans);
end.