第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號安全,請及時綁定郵箱和手機(jī)立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

c++翻譯成pascal

c++翻譯成pascal

C++
蝴蝶刀刀 2018-07-30 21:21:44
#include <stdio.h>#include <algorithm>#include <string.h>using namespace std;int dp[100000];int main(){int a[11],sum,v,i,j,k,cnt,cas = 1;while(~scanf("%d",&a[1])){sum = a[1];for(i = 2;i<=6;i++){scanf("%d",&a[i]);sum+=i*a[i];}if(!sum)break;printf("Collection #%d:\n",cas++);if(sum%2)//總和為奇數(shù),必定不能平分{printf("Can't be divided.\n\n");continue;}v = sum/2;memset(dp,0,sizeof(dp));dp[0] = 1;for(i = 1;i<=6;i++){if(!a[i])continue;for(j = 1;j<=a[i];j*=2)//二進(jìn)制優(yōu)化{cnt = j*i;for(k = v;k>=cnt;k--){if(dp[k-cnt])//必須前面的能夠放入背包,現(xiàn)在的才能放入背包dp[k] = 1;}a[i]-=j;}cnt = a[i]*i;//剩下的if(cnt){for(k = v;k>=cnt;k--){if(dp[k-cnt])dp[k] = 1;}}}if(dp[v])printf("Can be divided.\n\n");elseprintf("Can't be divided.\n\n");}return 0;}謝謝!急求!!各位大佬能回答一下嗎
查看完整描述

2 回答

?
慕碼人2483693

TA貢獻(xiàn)1860條經(jīng)驗(yàn) 獲得超9個贊

var dp:array[0..100000]of longint;

    a:array[0..11]of longint;

    sum,i,v,j,k,cnt,cas

begin

    cas:=1;

    while (not eoln) do

    begin 

      read(a[1]);

      sum:=a[1];

      for i:=2 to 6 do 

      begin

        read(a[i]);

        sum:=sum+i*a[i];

      end;

      if (sum=0) break;

      writeln("Collection #%d:",cas++);

      if(sum mod 2=1)

      begin

        writeln("Can't be divided.");

        continue;

      end;

      v:=sum div 2;

      fillchar(dp,0,sizeof(dp));

      dp[0]:=1;  

      for i:=1 to 6 do 

      begin  

        if(a[i]=0) continue;

        j=1;

        while (j<=a[i]) do 

        begin

          cnt:=j*i;

          for k:=v downto cnt do 

            if(dp[k-cnt]) dp[k] = 1;

          a[i]=a[i]-j;

          j:=j*2;

        end;

        cnt:=a[i]*i;

        if (cnt=1)

        begin

            for k:=v downto cnt do 

            if (dp[k-cnt]=1) dp[k]=1;

        end;

      end;

      if (dp[v]=1) writeln("Can be divided.")

      else writeln("Can't be divided.\n\n");

    end;

end.

自己改一下吧,沒有編譯器,sorry了,不會的問我


查看完整回答
反對 回復(fù) 2018-08-01
?
一只萌萌小番薯

TA貢獻(xiàn)1795條經(jīng)驗(yàn) 獲得超7個贊

動態(tài)規(guī)劃背包問題嗎?可以啊

查看完整回答
反對 回復(fù) 2018-08-01
  • 2 回答
  • 0 關(guān)注
  • 870 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學(xué)習(xí)伙伴

公眾號

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號