1樓：熊熊豐雅
真複雜，我還沒編出來。
用pascal編寫
2樓：網友
自我感覺描述的應該還可以~~
program ttdd8;
var max,i,x,sum:longint;
beginmax:=-100000;
for i:=1 to 10 do
beignread(x);
if x>max then max:=x;
sum:=sum+x;
end;writeln('max=',max);
writeln('平均數=',(sum/10):0:2);
end.
3樓：網友
給你個簡潔點的。
var a:array[1..10]of longint;
sum:longint;
max,pin:integer;
beginmax:=0;
sum:=0;
for i:=1 to 10 do
beginread(a[i]);
sum:=sum+a[i];
if a[i]>max then max:=a[i];
end;writeln('max=',max,'pin=',sum/10:0:2);設定場寬，保留兩位小數。
end.
4樓：網友
program wenti;
var a,s,d,f,g,h,j,k,l,o，pj,zd:integer //設定10個變數，是需要輸入的，而pj和zd是代表平均數和最大的數。
beginread（a,s,d,f,g,h,j,k,l,o）; //標準輸入10個正整數。
pj:=(a+s+d+f+g+h+j+k+l+o)/10; //這是平均數。
if a>s then zd:=a;
if d>zd then zd:=d;
if f>zd then zd:=f;
if g>zd then zd:=g;
if h>zd then zd:=h;
if j>zd then zd:=j;
if k>zd then zd:=k;
if l>zd then zd:=l;
if o>zd then zd:=o;
readln; //停留。
end.是按標準輸入的方法寫的，有些繁瑣- -
pascal 如何編?
5樓：網友
校門外的樹05年競賽題。
so easy
program tree;
var a:array[0..10000]of integer;
mo:array[1..100,1..100]of integer;
i,j,t,l,m:integer;
beginread(l,m);readln;
for i:=1 to m do
beginread(mo[i,1],mo[i,2]);readln;
end;for i:=0 to l do
a[i]:=1;
for i:=1 to m do
for j:=mo[i,1] to mo[i,2] doa[j]:=0;
for i:=0 to l do
if a[i]<>0 then inc(t);
writeln(t);
end.
6樓：網友
ls幾個要超時的………
正解是離散化。具體的百毒hi我，不難的。
pascal編寫
7樓：網友
第一題 排序。
第二題 dp
8樓：抬頭看看空氣
我不會告訴你我三題都見過。
pascal 編寫錯誤
9樓：網友
第6行 應該是d:= 少了等號"=" 第一行後加分號 readln 和 writeln 後面都加分號。
10樓：網友
唉，晚了一點啊，話說你編譯通過了嗎？少了分號應該會提示編譯錯誤啊。你不會是自學的吧？
11樓：幾夢絲兒
d:b*b-4*a*c;應改為d:=b*b-4*a*c;
writeln後漏了乙個分號。
readln後的分號可加可不加。
幫忙編下程式啊。。。pascal。。
12樓：網友
二 vara,b:real;
beginreadln(a,b);
if a>b
then a:=a*a
else b:=b*b;
writeln(a,b)
end. 三 var
weight,pay:
real;read(weight);
beginif weight<=50
then pay:=weight*
else pay:=50*;
writeln(pay)
end.四 var
spent,pay:real;
beginread(spent);
if spent<=50
then pay:=spent
else if spent<=100
then pay:=spent*
else pay;=100+(spent-100)*;
writeln(pay)
end.五 var
a,b,c,temp:integer;
beginread(a,b,c);
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 b>c
then begin
temp;=b;
b:=a;a:=temp;
end;writeln(a,b,c)
end.六 var
year,month,days:integer;
beginread(year,month);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2 :if (year mod 4=0)
and(year mod 100<>0)
or(year mod 400=0)
then days:29
else days:28;
end;end.
第七題不太理解題目意思 到底計算機需要輸出什麼樣的結果？ 玩的人只需要輸入 石頭 剪刀 布 中的任意乙個是吧！
循序漸進程式設計作業。
一 vara,b,temp:real;
beginread(a,b);
temp:=a;
a;=b;b:=temp;
writeln(a);
writeln(b)
end. 選我吧，下面的人是抄我的。
13樓：06書中客
問題比較簡單，但是量太大了，做完不把我累死，有時間再給你寫吧。
編寫pascal題目
14樓：網友
var i,s:longint;
beginreadln(n);
for i:=1 to n do //從1到n窮舉if odd(i) then s:=s+i //奇數相加。
else s:=s-i; //偶數相減。
writeln(s); //輸出答案。
end.
打籃球增重？ 100，打籃球增重？
打籃球增重？個人建議 可以去醫院查下是否體內有幽門螺旋桿菌。原因 我上大學時身高，體重，上了社會，一直想增重，無論怎麼吃，怎麼調節，都沒有胖。後來我交了女朋友，她跟我說，可以去醫院查下，是不是體內有 幽門螺旋桿菌 會導致你吃東西，吃得多過油，就會拉肚子，營養吸收不足，所以才會吃不胖。我就去了醫院，問...
如何學習打籃球，如何學習打籃球
驀然回首處 第一步 學會運球 運球是打籃球的基本，首先，拿一個籃球來自己練習拍，拍的很熟練之後就試著邊拍邊走，邊拍邊走熟練後就邊拍邊跑，先練習一隻手上的動作，等到一隻手熟練後再練另一隻手，等到兩隻手都熟練後就兩隻手一起用上。第二步 學會三大步上籃 運球熟練後就學上籃，學習上籃之前應該先了解籃球的基本...
打籃球的好處，打籃球的好處
打籃球是一項男女皆愛的運動，那麼打籃球究竟有哪些好處呢，下面我們一起來了解關於打籃球的好處吧，歡迎大家閱讀。打籃球的好處是什麼 強身健體 籃球是一項運動量比較大的運動，在球場上跑來跑去，有時還有激烈的身體對抗，因此在運動過程中就達到了強身健體的效果，自己的體力變得更好，身體也變得更加強壯了。鍛鍊反應...