pascal习题阅读程序.doc
时间：2026-01-16
第1题（6分）program yd;
var d, p: integer; begin
P： = l；
d:=ll;
while d>l do
begin
p:=2*(p+l);
d:=d-l
end;
writcln (p)
end.
输出：______
答案：
3070
第2题(6分) program yd;
g, in: integer;
k, t: real;
begin
k::0; g:=0;
for m:=l to 49 do
begin
g:=g+l;
k:=k+l/(g*(g+l))
end;
writcln ( k: 10: 2 end.
输出：______
答案：
0. 98
第3题(6分)
program yd;
var
n, i，t: longint;
tem: integer;
s: string;
begin
write (’Input n: ’)； read In (n); s:= f ;
repeat
i:二length (s);
while s[i] =’ 1’ do
begin
s[i] := ’ 0’ ;dcc(i);
end;
if i〉0 then s[i] :=’ 1’
else s:= ’ 1’ +s;
val (s，t，tem);
until t mod n = 0;
writeln(n, ’ *’，t div n, ’ =’，s); end.
输入：6
$命出：_____
答案：
6*185=1110
第4题(6分)
program yd;
const n 二5;
var
i, j, m, s: integer;
begin
m:=0;
for i:=1 to n do
begin
m:=m+i;
s :=m;
for j:=l to 2*i do write，）;
{’’中间是一个空格} for j:=l to n do
begin
write（s mod 10:2）;
s:=s+j;
end;
writeln;
end;
end.
输出： ______
答案：
1 2 4 7 1
3 4 6 9 3
6 7 9 2 6
0 13 6 0
5 6 8 1 5
第5题（7分）
program yd;
var
a:array[0.. 8] of char;
i: integer;
begin
for i := 1 to 8 do a[i] :=char (i * 2 +ord(’A’))；
for i:= 1 to 4 do begin
a[0] :=a[i];
a[i] :=a[9-i];
a[9-i]:=a[0];
end;
for i := 1 to 8 do writc(a[i]);
writeln;
end.
输出： ______
答案：
QOMKIGEC
第6题(7分)
Program yd;
n, i，x: integer;
d:array[0.. 10] of integer;
begin
readln(n);
fori:二1 to n do
begin
read (x);
d[x]:=d[x] +1;
end;
d[0]:=0;
for i:=l to 10 do d[i]:=d[i—l]+d[i];
for i:=1 to 10 do
if d[i]〈〉d[i—l] then 'vriteln(i :3, d[i—1] + 1:4); end.
输入:
var
m, k, x: integer;
begin
if j-i>l then
begin
m:=(i+j) div 2;
ssort(i, m);
ssort(m+1,j);
k:=i;
for x:=i to m do
b[k]:=a[x]; b[k+l]:=a[m+x—i+1];
k:=k+2;
end;
for x: = i to j do a[x]:=b[x];
end;
end;
begin
for i:=1 to 16 do a[i]:=i;
ssort (1, 16);
for i:= 1 to 16 do write(a[i]:3);
write In;
end.
输出：______
答案：
1 9 5 13 3 11 7 15
2 10 6 14 4 12 8 16
第8题(6分)
program yd;
var
a, d:array[1. < 100] of integer;
n , i，j，k, x，s :integer;
begin
n:=5;a[l] : = 1 ;d[l] :=1;
for i:=1 to n do
begin
s:二i+1;x:=0;
for j:=l to n+l-i do
begin
k:二s+x;x:二x+1 ;a[j+l]:二a[j]+k;
write(a[j]，’ ’)；
end;
write In (’ …’)；d[i+l] :=d[i]+i ;a[l] ::d[i + l];
end;
end.
输出： _________
答案：
1 3 6 10 15 ...
2 5 9 14 …
4 8 13 ...
7 12 ...
11 ...
第9题(7分)
program yd;
const
d: array [0. • 3, 1. • 4] of integer = ((4, 7,10,13), (1,8,11,14), (2, 5,12,15), (3,6, 9,16));
var
i , j , a, x, k , bj : integer;
y，u, v: real;
begin
for i:=1 to 4 do
begin
a:=3-i;bj:=0;
for j:=0 to 3 do
for k:=l to 4 do
begin
x:=d[j, k];u: = (x+a)/4;v: = (x+trunc (u))/4;
y :=4*(v-trunc(v));
if y< >j then begin k:=4;j:=3;bj:=l;end;
end;
if bj=O then
begin
write (’ U = (X，)；
if a>0 then write(’+’)；
writeln(a, ’)/4’)；
end;
end;
end.
输出： _________
答案：
U = (X-D/4
第10题(7分)
program yd;
const
a:array[L . 10] of integer
=(8 ,2,7,4,6,9,3,5,3,8);
type point = "nod;
nod = record
w: integer; right,left: point
end;
var first, head :point;
j，i, k: integer;
procedure hyt ( d: integer; var p: point); begin
if p = nil then
begin
new (p);
if k = 1 then begin first:=p;k:=2;end;
with p do
begin w:=d; right:=nil; left:=nil end;
end
else with p" do
if d >= w then hyt (d,right) else hyt (d,left); end;
procedure hyt1 (p: point);
begin
with p" do
begin
if left <> nil then hytl (left);
write(w:4);
if right ◊ nil then hytl (right);
end;
end;
begin
i:=10;
first:=ni1;k:二1;
for j:=1 to i do hyt(a[j] , first);
hytl(first);writeln
end.
?俞出：___________
答案：
2334567889
第11题(7分)
program yd;
var in, n, i, p, k: integer;
r:array[1.. 200] of integer;
b: boolean;
begin
m:=6;n:=2;
for i:=l to m-1 do r[i]:=i+l;
r[m]:二1;i:=O;p:=l;b:二true;
while b do
begin
i:=i+l;k:=p;p:=r[p];
if k=p then begin writeln(p) ;b:=false end
else if i=n+l then
begin
write (p,1’)；i:=0;p:=r[p];r[k]:=p;
end
end
end.
$命出： _______
答案：
4 2 1 3 6 5
第12题(7分)
program yd；
var n, k, s： longint；
begin
n:=1000000000；
k:=0;
S：=l :
while s <= n do
begin
k:=k+l;
n:=n-s;
s:=s+6*k
end;
writeln (k)
end.
输出：________
答案：
1000
第13题(7分)
program yd;
const
a: array[1. . 14] of lon …… 此处隐藏：2866字，全部文档内容请下载后查看。喜欢就下载吧 ……
pascal习题阅读程序.doc.doc
将本文的Word文档下载到电脑
上一篇：智慧树食品保藏探秘期末考试答案
下一篇：水力学期末考试题 4
