pascal題目不難希望各位高手能幫幫菜鳥急急急

2022-02-06 08:25:03 字數 2967 閱讀 1079

1樓:匿名使用者

題目描述似乎短了點,有些地方沒說清楚

1."相鄰的兩部分不能存在包含關係"這個不管它

2.相鄰的單詞必須有重疊部分

3.樣例中,tact+tact=tactact

4.121212+121212=1212121212而不是12121212

5.n達不到20

注意到這些,只要dfs就可以ac了

醜陋的**:

vara:array[1..20,1..20] of longint;

word:array[1..20] of string;

len,count:array[1..20] of longint;

n,ans,i,j,k,tt:longint;

beg:char;

procedure work(cur,tot_len:longint);//dfs

varnext:longint;

begin

if tot_len>ans then ans:=tot_len;

for next:=1 to n do

if (a[cur,next]<>-1)and(count[next]<2) then

begin

inc(count[next]);

work(next,tot_len+a[cur,next]);

dec(count[next]);

end;

end;

begin

readln(n);

for i:=1 to n do

begin

readln(word[i]);

len[i]:=length(word[i]);

end;

readln(beg);

for i:=1 to n do//預處理

for j:=1 to n do

begin

if len[i]

a[i,j]:=-1;

for k:=tt downto 1 do

if copy(word[i],len[i]-k+1,k)=copy(word[j],1,k) then a[i,j]:=len[j]-k;

if a[i,j]=0 then a[i,j]:=-1;

end;

ans:=-maxlongint;

for i:=1 to n do

if word[i,1]=beg then

begin

count[i]:=1;

work(i,len[i]);

count[i]:=0;

end;

writeln(ans);

end.

不過如果n真的到20可能這樣還不太行

其實上那些做題網找不更嗎?

pascal新手問題,請各位高手幫幫忙,跪求,急求!急急急急急急急急急急急急急急急!!!!!!

2樓:匿名使用者

var n,i,j:integer;

a:array[0..20]of integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n-1 do

for j:=1 to n-i do

if a[j]

3樓:匿名使用者

for i:=1 to n do

read(a[i]);

for i:=1 to n-1 do

inc(f[a[i],a[i+1]]);

f[i,j]表示出現數對i,j的個數

最後輸出即可

我是乙個五年級的學生,在做程式設計題目時遇到乙個問題,希望高手來幫忙,題目如下。(pascal語言)

4樓:匿名使用者

大學狗表示沒用過pascal...

果然已經輸在起跑線上了嗎 哈哈

急急急急急急急急急!!!!手機問題,各位大師,幫幫我。詳細點,但不要太專業,我看不懂,謝謝 10

5樓:lol迪莫

你應該沒有在手機系統中解除安裝sd卡所以才會出現這種情況安裝不上應該是應為沒有儲存空間。可以記住儲存之前資訊

6樓:螞蟻的店

其實不用擔心,用你的手機連線電腦,備份在電腦的360助手裡,也是在電腦裡的。如果你成功安裝了360手機助手,可以把電腦裡備份的轉移過去。

親們,怎樣用vb做乙個學生成績管理系統啊,急急急急啊,希望高手們幫幫我這菜鳥吧!!!謝謝謝謝啦! 20

7樓:手機使用者

就是幾個月前的事兒。有乙個小孩兒,他爸爸媽媽晚上都出去了,就他乙個人在家。由於那個小孩兒也不信什麼鬼呀神呀的,所以也不害怕。

這就是「心裡沒鬼怕什麼?」到了晚上十一點多了,他爸爸媽媽還沒回來,他開始有點擔心。結果一給他爸爸媽媽打**,**筒裡傳出來的,卻是「您的的**是空號,請查詢後再撥······」那個小孩兒很害怕,就報了警。

結果不知道怎麼回事,他家的**突然著火了。那個小孩兒大叫,往外跑,結果們也鎖了。他絕望的看著牆壁。

「嚇死我了!」那個小孩兒醒過來,發現自己在做夢。這是,乙個女的拿來毛巾,給他擦了擦汗。

然後那個小孩兒倒頭就睡。正當閉上眼睛的那一霎那,回想起那個女的,突然想起那個女的沒有眼睛,眼眶裡是漆黑的,臉上也留著血,臉色慘白。他大叫一聲:

「啊!救命啊,快來人呀!」他開始往門外跑,結果門真的鎖了,他去廚房拿起菜刀,就像那個女的砍去,結果菜刀把那個女的一截兩半,然後那個女的有復原了。

伸出指甲裡都是血的手,向那個小孩兒抓去。

此時此刻,你千萬別看你的後面,因為,用肉眼是看不到的!如果你不把這篇帖子複製發給3個人,凌晨四點,你將會死於非命······

關於會計的,希望高手解答,會計基礎題目(2)單選 (希望高手解答)

當年的利潤先彌補前5年的虧損,如果彌補完畢還有利潤,僅就剩餘的利潤徵收企業所得稅。如果利潤不足彌補虧損,就先從虧損最早的年份的虧損額開始彌補,剩餘的虧損留待下一年度繼續彌補,如果虧損額超過5年仍未彌補的就不再給與彌補了。所說利潤和虧損並不是企業的會計利潤,而是稅務機關根據企業利潤,在按照會計制度與稅...

幫忙!我想裝機,我想裝機,希望各位高手可以幫幫忙。

先你最後乙個問題。答案是不一定高出市場價,因為中關村 上的 僅僅是北京中關村的當日 並且還不一定準確,因為各商價的 還是有差異 而涉及到了別的省市的話,由於各地物價和經銷商存貨的關係,誤差會很大,比網上便宜當然有可能。cpu用amd athlon64 x2 3600 65nm 和90nm的 相差不多...

希望高人能幫忙給對一下對聯,對聯希望各位有識之士幫忙對一下下聯

落地只為生根,就為乙個情字,值也 飛穹碧落煙滅,但為一情字,值否?跑馬塵騰土揚,常因些賭頭,怪哉!飛穹碧落煙滅,但為一情字,值否?落葉入土歸根,皆報此恩情,嘆矣!說實話,你的上聯不是很工整 鄙人在此嘗試一下 舞掌紅降氣絕,僅為一理字,爭否?老人70歲了,想要一副特別的對聯,哪位高人可以幫忙一下?古稀...