題意

將一些是接起來，找出接的最大的數

分析

這題其實就是最大整數。做的時候，我們可以先把數字符串排序，從小到大，再一個一個接起來

var
n,i,x,j:longint;
t:string;
s:array[0..20]of string;
procedure kp(l,r:longint);
var
i,j:longint;
mid:string;
begin
? ? if l>=r then exit;
? ? i:=l;j:=r;mid:=s[(l+r) div 2];
? ? repeat
? ? ? ? ?while s[i]>mid do inc(i);
? ? ? ? ?while s[j]<mid do dec(j);
? ? ? ? ?if i<=j then
? ? ? ? ?begin
? ? ? ? ? ? ?s[0]:=s[i];s[i]:=s[j];s[j]:=s[0];
? ? ? ? ? ? ?inc(i);dec(j);
? ? ? ? ?end;
? ? until i>j;
? ? kp(l,j);
? ? kp(i,r);
end;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? begin
? ? ? ? read(x);
? ? ? ? str(x,s[i]);
? ? end;
? ? for i:=1 to n-1 do
? ? begin
? ? ? ? for j:=i+1 to n do
? ? ? ? begin
? ? ? ? ? ? if s[i]+s[j]<s[j]+s[i] then
? ? ? ? ? ? begin
? ? ? ? ? ? ? ? t:=s[i];
? ? ? ? ? ? ? ? s[i]:=s[j];
? ? ? ? ? ? ? ? s[j]:=t;
? ? ? ? ? ? end;
? ? ? ? end;
? ? end;
? ? for i:=1 to n do
? ? write(s[i]);
end.

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

總結

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

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