題意

找出最后一張覆蓋在點上的地毯編號

分析

先輸入，再從后面找，這樣會更快

var
n,i,j:longint;
a:array[0..20]of string;
b,l:array[0..20]of longint;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? begin
? ? ? ? readln(a[i]);
? ? ? ? l[i]:=length(a[i]);
? ? ? ? b[i]:=i;
? ? end;


? ? for i:=1 to n-1 do
? ? begin


? ? ? ? for j:=i+1 to n do
? ? ? ? begin
? ? ? ? ? ? if (l[i]<l[j])or(l[i]=l[j])and(a[i]<a[j]) then
? ? ? ? ? ? begin
? ? ? ? ? ? ? ? a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
? ? ? ? ? ? ? ? l[0]:=l[i];l[i]:=l[j];l[j]:=l[0];
? ? ? ? ? ? ? ? b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
? ? ? ? ? ? end;
? ? ? ? end;


? ? end;
? ? writeln(b[1]);
? ? write(a[1]);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500223.html

總結

以上是生活随笔為你收集整理的铺地毯pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。