汽车加油行驶问题（car）

最新推荐文章于 2021-06-12 10:01:06 发布

five213ddking

最新推荐文章于 2021-06-12 10:01:06 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/five213ddking/article/details/6716504

本文介绍使用动态规划（DP）算法解决油库路径问题，通过构建工作矩阵和枚举走法，优化路径选择并考虑油量消耗，最终求解最小花费路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

强烈的鄙视一下《算法设计与实验题解》这本书，书上的题解根本就是另一道题，根本对应不上答案。

算法：DP

分析：用work[i,j,k]表示到(i,j)这个点剩余油量为k的最小花费。

program car;

const
 maxn=100;
 maxoil=12;

var
 n,go,cost,gocost,build:longint;
 map:array [0..maxn,0..maxn] of longint;{map[i,j]表示当前是否为油库。}
 work:array [0..maxn,0..maxn,0..maxoil] of longint;{}
 s:array [0..4,0..3] of longint;{s虽然是变量，但是相当于一个常量数组，里面记录了四个方向的走法和花费。}

procedure init;
var
 i,j:longint;
begin
 readln(n,go,cost,gocost,build);
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do read(map[i,j]);
   readln;
  end;
 s[0,0]:=-1;
 s[0,1]:=0;
 s[0,2]:=0;
 s[1,0]:=0;
 s[1,1]:=-1;
 s[1,2]:=0;
 s[2,0]:=1;
 s[2,1]:=0;
 s[2,2]:=gocost;
 s[3,0]:=0;
 s[3,1]:=1;
 s[3,2]:=gocost;
end;

procedure main;
var
 i,y,j,p,q,min,x:longint;
begin
 fillchar(work,sizeof(work),100);{求最小值赋值为最大值。}
 for i:=0 to go do work[0,0,i]:=0;
 y:=1;
 while y<>0 do
  begin
   y:=0;
   for i:=0 to n-1 do
    begin
     for j:=0 to n-1 do
      begin
       if (i<>0) or (j<>0) then{不能为起点。}
        begin
         for p:=0 to go do{枚举能走的距离。}
          begin
           min:=1000000;{初始化最小值。}
           for q:=0 to 3 do
            begin
 	     {判断不能出了边界。}
             if (i=0) and (q=0) then continue;
             if (j=0) and (q=1) then continue;
             if (i=n-1) and (q=2) then continue;
             if (j=n-1) and (q=3) then continue;
             if work[i+s[q,0],j+s[q,1],p+1]+s[q,2]<min then min:=work[i+s[q,0],j+s[q,1],p+1]+s[q,2];{先计算正规的走法。}
            end;
           if min<1000000 then
            begin
             if work[i,j,p]>min+cost*map[i,j] then inc(y);
             work[i,j,p]:=min;
             if map[i,j]=1 then
              begin
               inc(work[i,j,0],cost);
               for x:=1 to go do work[i,j,x]:=work[i,j,0];
               break;
              end;
            end
           else
            begin
             work[i,j,p]:=work[i,j,0]+cost+build;
             for x:=p+1 to go do work[i,j,x]:=work[i,j,p];
             break;
            end;
          end;
        end;
      end;
    end;
  end;
end;

begin
 assign(input,'car.in'); reset(input);
 assign(output,'car.out'); rewrite(output);

 init;
 main;
 writeln(work[n-1,n-1,0]);

 close(input); close(output);
end.