1樓：篤悅
var a,b,c,d,temp:integer;
beginread(a,b,c,d);
if a>b then begin temp:=a;a:=b;b:=temp;end;
if a>c then begin temp:=a;a:=c;c:=temp;end;
if a>d then begin temp:=a;a:=d;d:=temp;end;
if b>c then begin temp:=b;b:=c;c:=temp;end;
if b>d then begin temp:=b;b:=d;d:=temp;end;
if c>d then begin temp:=c;c:=d;d:=temp;end;
writeln(a,' b,' c,' d);
end. 這個答案可以但是要把integer改成longint或是real，因為他是任意的4個數。
pascal程式練習題
2樓：揭綺波
for i:=2 to 100 do
a[i]:=i;
begin這個begin幹什麼，放這個地方有何用處？？
for i:=2 to 100 do
beginforj:=1 to i-1 do
if i mod j =0 then s:=s+j;
if i=s then write(i);
end當然沒有輸出```你的判斷條件根本不可能成立'if a[i]=s then write(a[i]);'這句的s沒有初值。
1樓的 那段程式是初始化。
2樓 3樓更不說了．．
不過我建議樓主可以用fillchar
初始化陣列會比較快。
具體格式fillchar(a,sizeof(a),0)上邊的語句是把a陣列的每個單元賦值為0
vari,j,h:longint;
beginfor i:=2 to 100 do beginh:=0;
for j:=1 to i-1 do if i mod j=0 then inc(h,j);
if h=i then writeln(i);
end;readln
end.
3樓：網友
第8行錯。
for:=1 to i-1 do
s要賦值。可以看書去。
高中pascal程式練習題，求高手
4樓：
初學題……
vars:string;
i,j:longint;
procedure make(i:longint);
beginif (s[i]='1') write('one ');
if (s[i]='2') write('two ');
. //自己寫完。
end;begin
readln(s);
for i:=1 to length(s) domake(i);
writeln;
end./沒有編譯，裸寫。
5樓：風雨之聲
不能用迴圈和陣列？？？
這個工程有點浩大。
6樓：網友
分解年份的各個數字，再用case of輸出。
pascal練習題
7樓：網友
問題1：
program howmany;
varm,n,ra,ch:integer;
beginread(m,n);
ra:=(m*4-n)/2;
ch:=m-ra;
writeln("兔子的數量為：",ra);
writeln("雞的數量為：",ch)
end.問題2：
program water;
consta=3;b=1;c=4;d=5;
varq1,q2:real;
beginq1:=1/(1/a+1/b);
q2:=1/(1/a+1/b+1/c+1/d);
writeln("a,b同時注水，需",q1,"天注滿");
writeln("a,b,c,d同時注水，需",q2,"天注滿");
end.
pascal 練習題
8樓：網友
這桐衫孝是我寫的，都對，便於理解，有註釋，希望能幫助你。
vari,j:integer;
beginfor i:=1 to 3 dobegin
for j:=7-2*i downto 1 do write('
for j:=1 to 2*i-1 do write('*輸出塌物*和後面的乙個空格，每一行都有2*i-1個*，比如局稿：當i=1(即第一行)，就是2*1-1個*，就是1個}
writeln;
end; readln;
end.要加分哦~
o(∩_o~
9樓：網友
program ex1;
vari, j : longint;
beginfor i:=1 to 3 do beginfor j:=1 to (3-i)*2 do write('
for j:=1 to 2*i-1 do
write('櫻巧*',脊前鍵 ')
writeln;
end;end.
格式不悔凱太清楚，那個空格是幾個？
程式題:輸入三個數,找出並顯示其中的最大數(pascal語言)
10樓：太陽精靈
其實非常的簡單，不必要很煩。
var i,a,b:integer;
beginfor i:=1 to 3 do 迴圈begin
readln(a); 讀入if a>b then b:=a; 比較一下，如果a大於b,就把b內放a。（打擂臺，b存下最大）
end;writeln(b); 輸出end.
Pascal陣列的練習題兩道，請幫忙解釋。
var a array a e .,boolean of real 相當於。var a array a e ofarray . of array boolean of reala a 相當於 a a 所以 a a 是 b，乙個陣列，該陣列具有兩個實型陣列元素。答案 b 關於陣列問題，這道題怎麼解釋啊...
小學語文習作練習題，一個小學語文習作練習題
每個人都有自己美好的理想，我的理想是當一名合格的醫生。醫生可以拯救已經不能動的人，讓他們健康，讓他們快樂。醫生也可以將殘疾的人從病魔的魔爪中救出來。使盲人重見光明，看清楚大自然的美好時光 使聾子恢復正常，聽清楚大自然中美味的迴音 讓沒有四肢的人重新站在這五彩 可愛和美麗的地球。為了使這個美好而遠大的...
四年級修改病句練習題,四年級修改病句練習題
把猛烈給成激烈 這場戰爭打得真激烈 這場戰爭打得真激烈！沒有標點符號.用詞不當 方法 猛烈 應修改為 激烈 四年級修改病句大全全練練習題及答案 1.去年我國的石油輸出量是世界上石油輸出最多的國家之一。2.我們搞四化建設，需 要繼承和發揮艱苦奮鬥的優良傳統。3.下半夜，突然雷聲隆隆，接著電光閃閃。4....