作业帮翻译为pascal语言
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 22:31:27
翻译为pascal语言
CLS
INPUT D$
F$ = "D:\T\T4\" + D$ + ".IN"
OPEN F$ FOR INPUT AS #1
INPUT #1, N
DIM A$(N)
FOR I = 1 TO N
INPUT #1, A$(I)
NEXT I
FOR I = 1 TO N - 1
FOR J = I + 1 TO N
IF A$(I) + A$(J) < A$(J) + A$(I) THEN SWAP A$(I), A$(J)
NEXT J
NEXT I
FOR I = 1 TO N
PRINT A$(I);
NEXT I
END
快点啊.
或者用pascal做这道题目
【问题描述】
设有n个整数(3≤n≤10),将这些整数拼接起来,可以形成一个最大的整数.
例如 n=3, 三个整数分别为21, 7, 34, 拼接后最大的整数为： 73421
【输 入】：文件读入.第一行一个整数n ,表示有n 个整数
第二行n个整数,数与数之间用一个逗号分隔.
【输 出】：输出到屏幕 .一个拼接后的最大的整数.
【样 例】：
输入 输出
3 73421
21,7,34
快点啊20分钟追加啊
CLS
INPUT D$
F$ = "D:\T\T4\" + D$ + ".IN"
OPEN F$ FOR INPUT AS #1
INPUT #1, N
DIM A$(N)
FOR I = 1 TO N
INPUT #1, A$(I)
NEXT I
FOR I = 1 TO N - 1
FOR J = I + 1 TO N
IF A$(I) + A$(J) < A$(J) + A$(I) THEN SWAP A$(I), A$(J)
NEXT J
NEXT I
FOR I = 1 TO N
PRINT A$(I);
NEXT I
END
快点啊.
或者用pascal做这道题目
【问题描述】
设有n个整数(3≤n≤10),将这些整数拼接起来,可以形成一个最大的整数.
例如 n=3, 三个整数分别为21, 7, 34, 拼接后最大的整数为： 73421
【输 入】：文件读入.第一行一个整数n ,表示有n 个整数
第二行n个整数,数与数之间用一个逗号分隔.
【输 出】：输出到屏幕 .一个拼接后的最大的整数.
【样 例】：
输入 输出
3 73421
21,7,34
快点啊20分钟追加啊
program connect;
var
s:array[1..10]of string;
ss:string;
n,i,j:longint;
begin
readln(ss);
assign(input,ss+'.in');
reset(input);
readln(n);
readln(ss);
i:=1;
j:=0;
while j
var
s:array[1..10]of string;
ss:string;
n,i,j:longint;
begin
readln(ss);
assign(input,ss+'.in');
reset(input);
readln(n);
readln(ss);
i:=1;
j:=0;
while j