1樓：匿名使用者
由於兩個字串長度只有80個，所以最實惠的方法是列舉列舉長度l，然後看第一個字串的後l個字元與第二個字串的前l個字串比較，相同即可跳出迴圈
記錄跳出迴圈的l，交換兩個字串
再次進行1操作
比較跳出迴圈的l和剛才記錄的l的大小，取較大者即為答案程式 略
pascal幾個問題
2樓：匿名使用者
問題a程式：
varn:integer;
a:array[1..9,1..9] of byte;
f:text;
i,j,k,m:integer;
begin
assign(f,'數獨.in');
reset(f);
readln(f,n);
for k:=1 to n do begin
m:=0;
while not seekeof(f) do begin
for i:=1 to 9 do begin
for j:=1 to 9 do read(f,a[i,j]);
readln(f);
end;
end;
for i:=1 to 9 do if a[i,1]+a[i,2]+a[i,3]+a[i,4]+a[i,5]+a[i,6]+a[i,7]+a[i,8]+a[i,9]<>45 then inc(m);
for j:=1 to 9 do if a[1,j]+a[2,j]+a[3,j]+a[4,j]+a[5,j]+a[6,j]+a[7,j]+a[8,j]+a[9,j]<>45 then inc(m);
for i:=1 to 3 do for j:=1 to 3 do
if a[(i-1)*3+1,(j-1)*3+1]+a[(i-1)*3+1,(j-1)*3+2]+a[(i-1)*3+1,(j-1)*3+3]+
a[(i-1)*3+2,(j-1)*3+1]+a[(i-1)*3+2,(j-1)*3+2]+a[(i-1)*3+2,(j-1)*3+3]+
a[(i-1)*3+3,(j-1)*3+1]+a[(i-1)*3+3,(j-1)*3+2]+a[(i-1)*3+3,(j-1)*3+3]<>45
then inc(m);
if m=0 then writeln(k:5,' right') else writeln(k:5,' wrong');
end;
close(f);
end.
pascal 問題！！大牛進！
3樓：匿名使用者
這是個模擬題 只要讀懂意思並不難
**：const maxn = 10000;
var f : array[ 0..maxn ] of longint;
i , n : longint;
m , t , max : longint;
begin
readln( n );
for i := 1 to n do
begin
max := 0 ;
read( m );
read( t );
while true do
begin
read( m );
if m = 0 then break ;
if f[ m ] > max then max := f[ m ] ;
end;
f[ i ] := max + t ;
end;
max := 0 ;
for i := 1 to n do
if f[ i ] > max then max := f[ i ];
writeln( max );
end.
pascal問題
4樓：袁世平
石子合併：動態規劃問題。設f[i][j]為把i和j合併的最優值，然後在i到j-1中選一個k值，來比較。
建立狀態轉移方程f[i][j]=min(f[i][j],f[i][k]+f[k+1][j]+i到j的總石頭數)。（發現我錯了....不好意思，我把它當成我打過的一道動態規劃了）其實也可以用動歸來解決。
可以列舉方案數，然後從中間開始遞減直到求出能組成的最接近中點的那個值。
修理牛棚，我打的是貪心。假設只有一塊板子，那麼全部覆蓋，如果兩塊呢？我就想到要在最大空隙的地方斷開。所以把空隙排個序，然後一個個減去就行了。
釣魚，這是典型的一類的貪心題。首先列舉他停下來的地方x，再在1-x中找，這裡花的時間是路上的時間和釣魚的時間。因為路上的時間一定，所以只用貪心求出釣魚時間的最優值（就是每次在1-x中找出最大的魚塘去釣魚，這樣跨著掉其實不用花時間，因為真實的是一邊走過來的。
）潛水比賽。那麼這個就是比較用最快的人單獨運送氧氣筒和第二快第一塊的人同時運送進行比較，這樣運四次把最慢的兩個人運走花的時間
x:=2*a[2]+a[1]+a[i];
y:=2*a[1]+a[i]+a[i-1]; 進行比較，最終得到最快時間。
5樓：匿名使用者
4個問題都不懸賞,有的題還是動規的.
問你的老師是最好的方法.
pascal小問題。。。
6樓：
你的快速排序呼叫有問題：
quick2的過程中還是呼叫的quick.
procedure quick2(l,r:longint);
vari,j,mid,tmp:longint;
begin
………………
if i if l end; 一道簡單的pascal語言程式設計題（中學） 我剛剛自己編的 試過了 肯定對 程式中公雞數量為a 母雞數量為b 小雞數量為c 輸出順序為 a1 b1 c1 a2 b2 c2 如下 for迴圈 vara,b,c integer begin for a 1 to 100 div 3 do for b 1 to 100 a div 2 do begi... pascal博士 var f array a d of boolean s longint ch char begin for ch a to d dobegin f ch true 列舉誰是小偷，做標記s 0 說真話數量計數器 if not f a then inc s a不是小偷則計數器加一 i... 1 var n,s integer a array 1.3 of integer begin read n a 1 n mod 10 a 2 n div 10 mod 10 a 3 n div 100 s s a 1 a 2 a 3 write s end.2.var n integer a arr...PASCAL程式設計問題，PASCAL程式設計問題
Pascal程式設計題答案，pascal程式設計題目，大師解答一下，最好用最簡潔的方法，做上批註。
pascal程式練習題，pascal程式設計練習題答案