1樓：網友
額，第一題直接求平均數，用原來牌數減去平均數餘輪，然後從左向右移牌，注意可以移動-n張，也可是正的，要求移過後變為0，首尾的0可以忽略，中間的0不能省掘毀明，推一遍即可，判告第二題我覺得類似迴圈節那樣，求一位得01的，再求第二位。。一位位搜上去。
2樓：網友
到巧御前pascal吧提孝清提看。
my code:
program program4;
var a:array[1..100] of integer;
n,i,t,ad:integer;
x:real;
b:boolean;
function deng(arr:array of integer):boolean;
var j:byte;
begindeng:=true;
for j:=2 to n do
if arr[j-1]<>arr[j] then deng:=false;
end;begin
t:=0;readln(n);
for i:=1 to n do
beginread(a[i]);
ad:=a[i]+ad;
end;if ad mod n=0
thenif deng(a) then write('0'拆仿)else begin
x:=ad/n;
for i:=1 to n-1 do
if (a[i]=x) and ((i=1)or(i=n))then t:=t
else t:=t+1;
write(t)
end;end.
3樓：網友
均分紙牌啊，可惜我學c的。
對pasical的語法不熟悉。
求助！pascal程式：
4樓：網友
還不是解數獨程式嘛！
程式**見附件。
自己編的，覺得是個人最好的程式。
注：輸入時，同一行各資料用空格隔開，每行9個）
pascal快排程式
5樓：網友
vara:array[1..100] of integer;
n,i:integer;
procedure qsort(head,last:integer);
vari,j,x:integer;
beginif head>=last then exit;
x:=a[head];
i:=head;j:=last;
while i=x) do dec(j);
a[i]:=a[j];
while (ia[j]:=a[i];
end;a[i]:=x;
qsort(head,i-1);qsort(i+1,last);//遞迴。
end;begin
readln(n);
for i:=1 to n do read(a[i]);
qsort(1,n);
for i:=1 to n do write(a[i],' ');
end. 可以根據需要修改。
幫忙用pascal寫一下這兩個程式
6樓：網友
第乙個問題我可以幫你解答。
vars:string;
i,j,x,y:integer;
a:array[1..4] of char;
beginreadln(s);
x:=0;y:=0;
a[1]:=n';
a[2]:=e';
a[3]:=s';
a[4]:=w';
j:=1;for i:=1 to length(s) dobegin
case s[i] of
g','g','l','l','r','r':
begincase s[i] of
l','l':begin dec(j);if j=0 then j:=4; end;
r','r':begin inc(j); if j=5 then j:=1; end;
end;case j of
1:inc(y);
2:inc(x);
3:dec(y);
4:dec(x);
end;end;
s','s':break;
end;end;
writeln('(x,',y,')a[j]);
end.第二個問題沒有圖啊。
希望你把圖發上來。
求問兩道高數題，求兩道高數題
第一個拆成兩個積分，前面那個等於1 2017 x 2017 1,1 2 2017,後面那個是奇函式在對稱區域內的積分等於0，所以結果是2 2017.第二題先利用sinx x,將分母替換成x 2,再利用平方差公式，分子分母同時乘以分子那兩個的和，分子得到3x 2與分母的x 2約分得3,分母乘上它們的和...
求這兩道巨集觀選擇題的詳細解析,求這兩道巨集觀選擇題的詳細解析
引起lm曲線變得平緩的原因可能是 d 貨幣需求曲線是指由凱恩斯的貨幣需求理論推出來的貨幣需求曲線 l ky hr 其中的y是收入，r是利率。所謂貨幣需求的變化對收入變化的反應程度就是貨幣需求的收入彈性，也就是說貨幣需求對利率是否敏感，利率很小的變動能引起貨幣需求的顯著變動就是敏感，也就是彈性大，反之...
兩道宮鬥殿試題求答案，兩道宮鬥殿試題 求答案
兩道露怯的問題。你為了爭寵，而使出假懷孕的計謀，為你主脈的太醫對你一直有情，也多次勸阻你，你卻一意孤行，終於事情敗露，此時你會怎麼做？這一題按照常理就是我死定了。我只有死路一條。你說我還能怎麼做？我唯一的做法只有殺死所有的知情人。包括那個太醫。繼續偽裝下去。這叫殺人滅口，結果只能是欲蓋彌彰。最後，我...