1樓：匿名使用者
1.冒泡
vara,b,t:array [1..100] of longint;
x,n,i,j,k,s:longint;
begin
readln(x,n);
for i:=1 to n do
readln(t[i],a[i],b[i]);
for i:=1 to n-1 do
for j:=n downto i+1 do
if t[j-1]>t[j] then begin
k:=t[j-1];
t[j-1]:=t[j];
t[j]:=k;
k:=a[j-1];
a[j-1]:=a[j];
a[j]:=k;
k:=b[j-1];
b[j-1]:=b[j];
b[j]:=k;
end;
s:=abs(x-a[i])*3+6+abs(a[i]-b[i])*3;
x:= b[1];
for i:=2 to n do begin
if sa[i] then s:=s+abs(x-a[i])*3+6;
s:=s+abs(a[i]-b[i])*3+6;
x:=b[i];
end;
writeln(s);
end.
2.選擇
vart,a,b:array [1..100] of longint;
x,n,i,j,k,s,y:longint;
begin
readln(x,n);
for i:=1 to n do
read(t[i],a[i],b[i]);
for i:=1 to n-1 do begin
k:=i;
for j:=i+1 to n do
if t[k]>t[j] then k:=j;
y:=t[k]; t[k]:=t[i]; t[i]:=y;
y:=a[k]; a[k]:=a[i]; a[i]:=y;
y:=b[k]; b[k]:=b[i]; b[i]:=y;
end;
s:=abs(x-a[1])*3+6+abs(a[1]-b[1])*3+6;
x:=b[1];
for i:=2 to n do begin
if sa[i] then s:=s+abs(x-a[i])*3+6;
s:=s+abs(a[i]-b[i])*3+6;
x:=b[i];
end;
writeln(s);
end.
3.插入
vart,a,b:array [0..1000] of longint;
n,x,s:longint;
procedure init;
vari:longint;
begin
readln(x,n);
for i:=1 to n do
read(t[i],a[i],b[i]);
end;
procedure csort;
vari,j:longint;
begin
for i:=2 to n do begin
t[0]:=t[i];
a[0]:=a[i];
b[0]:=b[i];
j:=i;
while t[j-1]a[i] then s:=s+abs(x-a[i])*3+6;
s:=s+abs(a[i]-b[i])*3+6;
x:=b[i];
end;
writeln(s);
end;
begin
init;
csort;
print;
end.
對的求加分
2樓：匿名使用者
varx,n,i,j,t:longint;
a:array[0..200,0..200]of longint;
begin
readln(x,n);
for i:=1 to n do
begin
readln(a[i,1],a[i,2],a[i,3]);
a[i,4]:=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i,1]>a[j,1])or(a[i,1]=a[i,j])and(a[i,4]>a[j,4]) then
begin
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
end;
t:=abs(x-a[i,2])*3+6+abs(a[1,2]-a[1,3])*3+6;
for i:=2 to n do
begin
t:=t+abs(a[i-1,3]-a[i,2])*3+6+abs(a[i,2]-a[i,3])*3+6;
if a[i-1,3]=a[i,2] then t:=t-6;
end;
writeln(t);
end.
3樓：early影子愛人
這道題資料很jb。
樓下冒泡10分，選擇滿分，插入0分。
4樓：匿名使用者
簡單的模擬，自己做吧，這種題就別發網上了。
最基礎的題。
5樓：
...無聊的題目，很簡單，自己編吧
free pascal題目 奇怪的電梯 用寬度搜尋
6樓：醉夢·上官凌雲
你有沒有更懶一點……
pascal傻瓜問題
電梯的綜合技術考核指標有哪四種，電梯有哪些技術指標
一，基本條件 二，質量保證體系 三，維護人員的質量控制 四，維護操作的質量控制 比如電梯養老綜合保險模式，保險公司專業技術團隊可參照標準來評價參保電梯的維保質量，據此對維保單位進行考核，並根據結果支付維保費用，倒逼維保單位提公升維保質量。同時，保險公司或電梯使用單位 電梯維保單位等電梯各相關方，可運...
電梯井轉角處要設定構造柱嗎，電梯四角一定要設定構造柱嗎，那條規範規定的，求高人解答一定要有規範，謝謝
具體需要根據電梯井的工藝和房屋結構形式。構造柱通常設定在樓梯間的休息平台處，縱橫牆交接處，牆的轉角處，牆長達到五公尺的中間部位要設構造柱。為提高砌體結構的承載能力或穩定性而又不增大截面尺寸，牆中的構造柱已不僅僅設定在房屋牆體轉角 邊緣部位，而按需要設定在牆體的中間部位，圈樑應設定成封閉狀。圈樑可以提...
母女被困電梯，為何會四天無人問津
前兩天，乙個發生在西安的故事引起大眾的熱議。一對母女被困的電梯內，金國四天三夜之後才被解救出來。那麼我們想說的是為什麼被困到電梯中四天三夜卻沒有人發現？如果我們正常的居民樓，電梯停止運作很快就會有人發現，因為無論是平時的生活起居還是上下班，電梯對我們來說都是不可或缺的。但是她們住的是自家別墅，乘坐的...