最大正数pascal程序

var
n,i,x,j:longint;
s:array[0..20]of string;
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
s[0]:=s[i];
s[i]:=s[j];
s[j]:=s[0];
end;
end;
end;
for i:=1 to n do//排完序后，输出就可以了
write(s[i]);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500254.html

最大正数pascal程序相关推荐

Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
数列分段pascal程序
题意对于给定的一个长度为N的正整数数列A[i],现要将其分成连续的若干段,并且每段和不超过M(可以等于M),问最少能将其分成多少段使得满足要求. 分析一个一个加上s,如果s>m,那么s就变成 ...
混合牛奶pascal程序
题意给出Marry乳业每天对牛奶的需求量,还有每位奶农提供的牛奶单价和产量.计算采购足够数量的牛奶所需的最小花费. 分析排序,最小价值优先取,太多了就退出循环,输出(之前的价值+还有多少需求*退出 ...
单词接龙pascal程序
题意现在我们已知一组单词,且给定一个开头的字母,要求出以这个字母开头的最长的"龙"(每个单词都最多在"龙"中出现两次),在两个单词相连时,其重合部分合为一部分 ...
谁拿了最多奖学金pascal程序
题意找出奖学金最多的学生分析这题就是很简单的字符串处理,细心一点就好. 先把每一个学生的奖学金算出来,再排序,如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓 ...
奖学金pascal程序
题意把总分排序分析先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序,如果两个同学总分和语文成绩都相同,那么规定学号小的同学排在前面 var a,t,p:array[0..3 ...

最大正数pascal程序

最大正数pascal程序相关推荐

最新文章

热门文章