1樓：網友
首先是第乙個題目。
這個題目叫m裡面選n個。
首先這裡說明下 懂這個程式至少要幾個小時 我當時弄了一天才明白。
這個我不會解釋表達無能只能你自己去領悟了。
看你也可憐，幫你打。
絕對手打不加點分對不起我 10分誰跟你做啊。
constm=4;
n=3; var
a:array[1..n]of integer;
b:array[1..m]of boolean;
i:integer;
procedure try(x:integer);
vari:integer;
beginif x>n then
beginfor i:=1 to n dowrite(a[i]);
write('
endelse
for i:=1 to m do
if b[i] then
begina[i]:=i;
b[i]:=false;
try(x+1);
b[i]:=true;
end;end;
beginfor i:=1 to m dob[i]:=true;
try(1);
end.這個是完美程式建議你背下來 到時候去跟老師炫耀去= =第二個題 這個不會不應該啊 我批評下你。
varsum:longint;
i:integer;
beginfor i:=1 to 10 dosum:=sum+(i*i);
end.你自己數數有幾行……
第三個題是大猩猩問題（打星星）
這種題做的時候要養車乙個習慣就是首先打的時候空格用醒目的表符代替。
比如@ 或者#
這裡我囧一下 程式我打好了 但是我家是fp暫時出現while linking的情況。
你以後就知道這情況有多煩人了）
所以麻煩你留個郵箱 我把程式發過去……
2樓：匿名使用者
var i,j,k,count:integer;
beginfor i:=1 to 4 dofor j:=1 to 4 do
beginif j=i then continue;
for k:=1 to 4 do
if (k=i) or (k=j) then continueelse writeln(i,j,k);
end;end.
var sum,i:integer;
beginsum:=0;
for i:=1 to 10 do
sum:=sum+i*i;
writeln(sum);
end.第3個是要用演算法嗎？還是直接輸出？不過有沒有空行，有幾個空格看不清楚，能用"_"代替空格再發一張嗎？
pascal問題
3樓：網友
原本有8x+1個蘋果 第乙個人拿了x+1個（x>=1）所以不超過8個人，即最後乙個人拿的蘋果數不超過8蘋果總數不超過64個。
給你個框架：
while p>0 do
begininc(t);p:=p-t;
if (p<0) or (p mod 8<>0) then begin f:=false;break;end;
a[t]:=t+p div 8;
if (t>1) and (a[t-1]<>a[t]) then begin f:=false;break;end;
end;if f then break;
陣列別太大，給你個思路了，要所有**告訴我你的郵箱，給你發，不過要得獎還是自己做吧。
4樓：水藍希凌
用簡單的數學方法推了一下。
設蘋果總數為n個。
第乙個人拿了 a1=1+1/8（n-1）
第二個人拿了 a2=2+1/8（n-a1）=2+1/8（7/8*n-23/8）
因為a1=a2
所以直接解兩個式子，得出的結果是n=49
驗證了一下，有7個人可以拿到蘋果，每個人拿7個排布就是。
7+0 （最後乙個人拿了七個蘋果，籃子裡面就乙個都沒有了）呃，我的結果就是這樣。
有什麼問題 再提好了。
pascal問題，能解答麼？
5樓：匿名使用者
本題需要一定的抽象思維能力，是2014年noip提高組（即高中組）的第一題改編版。思路：
本題可以用類似貪心的思路得到。比如說如果我們按照第一列開始塗，那麼顯然我們必須要塗第一列高度次才可以塗完。然後我們再來看第二列。
如果第二列沒有第一列高（或一樣高），那麼第一列顯然可以在塗的過程中順便把第二列也給塗完。如果第二列比第一列高呢？那麼我們塗完第一列後，首先把第二列中和第一列相同高度的部分也給塗完。
推及到每一列，假設第i列比第i-1列高或一樣（如圖1-2）：那麼在塗第i列的時候，可以在塗a高度時把i+1列也給塗完；假設第i列比第i+1列低，那麼在塗完a高度時，還需要再塗b-a高度才可以把第i+1列塗完。
那麼對於三列或者更多的情況呢？其實也是一樣的，我們仍然一列列看。假設為i,i+1,i+2列時，那麼仍然是現將第i列塗滿，再塗第i+1列沒有塗完的部分（如果需要的話），那麼，對於第i+2列，我們可以將第i列中移到第i+1列的噴塗機器再增加乙個寬，順便塗完。
詳情請看程式：
vari,n,x,y,ans:longint;
beginreadln(n);
for i:=1 to n do
beginread(x); if x>y then ans:=ans+x-y; y:=x;//這是核心。
如果後一列沒有前一列高，就說明可以直接塗滿。否則，塗上前一列沒有塗到的地方，也就是高的地方。
end;writeln(ans):
end.
pascal求解
6樓：市守沐
最直接的思路：
設二維布林陣列，將該圓走過的路徑掃瞄一遍（要用到圓的方程），經過的格仔標記，並記錄走過的格仔數（紅色）。
然後將紅色格仔圍著的格仔（藍色）寬搜，統計個數。
pascal某試題求解
7樓：匿名使用者
無符號數：只考慮正數，不考慮負數。
2a）16=（42）10
最小的數是（37）8
化學問題 急求，急求化學問題答案！！！！！！！
用質量守恆 元素分別是o，c，n，h 有氧 2 28 10 42 24 有氮 12 有碳 28 有氫 20 他們的原子個數比為 6 3 7 5 按氧，氮，碳，氫的順序 tnt的化學式為 n3h5c7o6 水溫的變化不一樣，有的公升高 氫氧化鈉 有的降低 硝酸銨 有的不變 氯化鈉 物質溶於水會有兩個過...
matlab程式設計問題，急求，急求這個matlab程式設計題目怎麼做,好難
將 線之間的內容存為 sanjiaoxing.m function s,r,r sanjiaoxing l 輸入正三角形邊長l 輸出三角形面積s，內切圓半徑r 外接圓半徑rs sqrt 3 8 l r 2 l sqrt 3 r l sqrt 3 執行結果 help sanjiaoxing 輸入正三角...
化學問題急求
c o2 co2 12 44 x 12 0.22 44 0.06g 0.22 0.06 2.0 100 3 次生鐵中碳的質量分數是3 先寫出方程式，設未知數x，然後代入數字求解c o2 co2 12 44 相對摩爾質量 x 0.22 質量x 12 0.22 44 0.06g 0.06 2.0 100...
物理電場問題急求
洛侖茲力只改變速度方向而不改變大小 mv0變為另乙個方向的mv1，受到衝量大小為mv2 大寫v表示向量 這三個向量構成乙個等邊三角形 而且mv0 mv2 mv1 所以粒子在磁場中作圓周運動執行的是k 1 6週期或者k 5 6週期週期為2派m qb k 0，1，2 逐個代入 符合的cd 電子作圓周運動...
感情問題求急
可能他只想看你是不是像以前一樣在乎他,只是想和你撒嬌,以前什麼事情都忍,是因為都想給彼此乙個好的印象,可是時間久了大家在一起久了就會發現彼此缺點,你越是覺得她不好,就越會把她的缺點放大,如過你還愛她,就那齣你的風度,如果覺得你不會和這樣的人過一輩子那機微快刀斬亂麻吧.再適應一下 實在不行 就分吧 其...