问题 A: [贪心算法]删数问题

原创 2015年07月10日 09:47:22

删数问题 delete.pas/c/cpp

输入一个高精度的正整数n(<=240位),去掉任意s个数字后剩下的数字按原左右次序将组成一个新的正整数。编程对给定的n和s,寻找一种方案,使得剩下的数最小。
【输入样例】
175438
4
【输出样例】
13

var
 s:string;
 i,n,j,k:longint;
begin
 readln(s);
 readln(n);
 i:=1;
 for j:= 1 to n do
  for i:= 1 to length(s) do
   if i=length(s) then
    begin
     delete(s,i,1);
     break;
    end else
   if s[i]>s[i+1] then
    begin
     delete(s,i,1);
     break;
    end;
 for i:=1 to length(s) do
  begin
   if s[i]<>'0' then begin k:=i; break; end;
  end;
 for i:=k to length(s) do
 write(s[i]);
 writeln;
end.
我的另一种:
var
s:string;
i,n,j,k:longint;
begin
readln(s);
readln(n);
s:=s;
for i:=1 to n do
begin
j:=1;
while (s[j]<=s[j+1])and(j<length(s)) do inc(j);
delete(s,j,1);
end;
for i:=1 to length(s) do
  begin
   if s[i]<>'0' then begin k:=i; break; end;
  end;
 for i:=k to length(s) do
 write(s[i]);
 writeln;
end.
别人的:
program delet;
var
 a:array[1..240]of longint;
 st:string;
 i,n,s,j,k:longint;
begin
 readln(st);
 readln(s);
 n:=length(st);
 for i:= 1 to n do val(st[i],a[i]);
 i:=1;
 for j:= 1 to s do
  while i<=n do
   begin
    if i=n then
     begin
      dec(n);
      i:=1;
      break;
     end else
     if a[i]>a[i+1] then
      begin
       for k:= i to n-1 do
         a[k]:=a[k+1];
       dec(n);
       i:=1;
       break;
      end else inc(i);
   end;
 for i:= 1 to n do
  begin
   if a[i]<>0 then begin k:=i; break; end;
  end;
 for i:= k to n do write(a[i]);
 writeln;
end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

基于贪心算法的几类区间覆盖问题:(侵删)

(1)区间完全覆盖问题 问题描述: 给定一个长度为m的区间,再给出n条线段的起点和终点(注意这里是闭区间), 求最少使用多少条线段可以将整个区间完全覆盖 样例: 区间长度8,可选的覆盖线段[...

背包问题中的贪心算法

  • 2012-04-11 16:55
  • 1.34MB
  • 下载

贪心算法-最大不相交区间数问题

数学模型 数轴上有n个区间[Ai,Bi],要求选择尽量多个区间,使得这些区间两两没有公共点。 解题思路贪心策略,按照B1<=B2A2。此时区间2包含区间1。这种情况下显然不会选择区间2,因为选择区...

加油问题贪心算法求解

贪心算法之最大不相交区间数问题

贪心算法之最大不相交区间数问题 数轴上有n个区间[ai,bi],要求选择尽量多个区间,使得这些区间两两没有公共点。 贪心策略: 按照b1 证明: 我们对a1,a2……...

贪心算法解决0-1背包问题

  • 2012-01-04 15:19
  • 492KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)