pascal程序填空题

pascal程序填空题
1．[题目]
输入一个正整数，然后与它倒过来的数相加。

[程序说明]
先将读入的正整数进行数字分离，分离出的个位、十位、百位……数字，依次存放到a[10]、a[9]、a[8]、……各下标变量中，然后再将它们合并成一个倒过来的数y，再与原数相加。

[程序]
program t4_1(input,output);
var a : array[1..10] : integer ; i , j , x , x1 , y : integer;
begin
readln(x); x1 := x ; j := ;
while do
begin
j := j – 1 ; a[j] := x mod 10 ; x := ;
end;
y := 0;
for i := do y := y * 10 + a[i] ;
x := ;
writeln(x)
end.
2．[题目]
读入N个不相同且不为0的数（1≤N≤100），求出其中第R个大的数（1≤R≤N）。

例如：输入3，14，22，15，17，6，其中第3个大的数为15。

[程序说明]
以数组A[100]记录读入的N个数，并以0为结束（0本身不是N个数中的），然后从第一个数开始，将它与其余的数进行比较，并记录出比它大的数的个数（存于变量y中），若y=R-1时，得到所求结果，否则对下一个数进行同样的处理。

[程序]
program t4_1(input,output);
var a : array[1..100] : integer ; i , j , k , x , y : integer;
begin
read( R ); j := 0 ; read(x);
while do
begin j := ; a[j] := x ; read(x) ; end;
i := 0;
repeat
i := i+1; x := a[i] ; y := 0 ;
for k :=1 to do
if x<A[K] ;
until ;
write(a[i]);
end.
3 【问题描述】
给定一个01串，请你找出长度介于a,b之间，重复出现次数最多的01串。

输入：a,b(0<a<=b<=12)
由0，1组合的数列，由‘.’结尾。

输出：要求的串。

提示：本程序中将01序列转换为2进制数存取。

【程序清单】
program shuchuan;
var i,j,s,k,a,b,max:integer;
m:array[1…8192] of integer;
two,v:array[1…20] of integer;
c:char;
begin
for i:=1 to 13 do
;
readln(a,b); read(c); s:=1;k:=1;
while c<>‘.’do begin
s:=s shl 1+ord(c)-48;
if then
s:=((s-two[b+1]) mod two[b])+two[b];
inc(m[s]);
if k<b then
for i:=a to k-1 do
;
inc(k);
read(c);
end;
for i:=two[b] to two[b+1] do
if m[i]>0 then
for j:=a to b-1 do
m[(i mod two[j])+two[j]]:= ;
max:=0;
for i:=two[a] to two[b+1] do
if m[i]>max then ;
for i:=two[a] to two[b+1] do
if m[i]=max then begin
j:=0;k:=I;
repeat
inc(j);v[j]:=k mod 2; ;
until ;
while j>0 do begin write(v[j]);dec(j) end;
writeln;
end;
end.
4、[问题描述] 求出所有满足列条件的二位数：将此二位数的个位数字与十位数字进行
交换，可得到一个新的数，要求新数与原数之和小于100。

程序要求：每行输出6个满足要求的数。

[算法说明]分解每一个二位数，然后重新组成一个新数，当满足条件时，用计数器来统计个数。

[程序清单]
begin
k:=0；
for i:= to 99 do
begin
x:= ; y:= ; j:=x*10+y;
if then
begin
k:=k+1; write(1:4);
then writeln;
end
end
end．
第5题
[问题描述]
找出小于33的6个正整数，用这些整数进行加法运算，使得包括原来的整数在内能组成
尽可能多的不同整数。

例如：用2，3，5这3个数能组成下面的数
2，3，5
2+3=5, 5已经存在
2+5=7，3+5=8，2+3+5=10
所以用2，3，5能组成6个不同的数。

程序要求：输出所选的这6个数，以及能组成不同整数的个数。

[算法说明]
选择的这6个数，用来组成数时应该尽可能不重复，引入数组a保存找出的这6个数。

[程序清单]
begin
a[1]:=1；t:=0；
for i:=2 to 6 do
begin
；
for j:=1 to i-1 do s:= ；
a[i]:= ；
end；
for i:=1 to 6 do begin t:= ；write(a[i]，' ') ; end；
writeln('能组成不同整数的个数：'，t);
end．
第6题
[问题描述]
输入n 个0 到100 之间的整数，由小到大排序输出，每行输出8个
[程序清单]
PROGRAM CHU7_5;
VAR I,J,K,N,X:INTEGER;
B:ARRAY[0..00] OF INTEGER;
BEGIN
READLN(N);
FOR I:=0 TO 100 DO B[I]:=0;
FOR I:=1 TO N DO
BEGIN
READLN(X);
B[X]:=
END;
FOR I:=0 TO 100 DO
WHILE DO
BEGIN
WRITE ;
K:=K+1;
B[I]:=B[I]-1;
IF THEN WRITELN;
END;
READLN;
END.
第7题
[问题描述]
连续整数平台问题
已知一个含有多个整数的数组，其中相同的元素集中在一起形成一个平台。

以下程序用于对输入的数组求出其中最大平台长度。

例如，中元素个数为20，它们依次为
2 2 2 2
3 3 3 3 3 1 1 1 1 1 1 1 1 1
4 4
则它的最大平台长度为9（9个1~~）
[程序清单]
program ex7;
const maxlength=100;
var
a:array<1..maxlength> of integer;
i,maxi,n,s,t:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a<i>);
readln;
maxi:=o;
t:=
s:=1;
for i:=2 to n do
if a<i>=t then
else
begin
if s>maxi then maxi:=s;
t:=a<i>;
end;
writeln('maxi=',maxi);
end.。