信息学试题6v2答案

信息学试题六

一、完善程序

1．打印以下图案。用循环嵌套完成。

1

2 2

3 3 3

4 4 4 4

5 5 5 5 5

6 6 6 6 6 6

7 7 7 7 7 7 7

8 8 8 8 8 8 8 8

9 9 9 9 9 9 9 9 9

var c,m,n:integer;

begin

for m:=1 to 9 do

begin

write(m: ①);

for n:= ②to ③do

write(m:6);

writeln;

end;

readln;

end.

①30-3*m ② 2 ③m

2、验证哥德巴赫猜想：任一充分大的偶数，可以用两个素数之和表示。例如：4=2+2 6=3+3 8=3+5 98=19+79

即：输入一个大于3的偶数n，输出n=p+q 其中p，q为素数。var s,i,j,n,p,q:integer;

begin

readln(n);s:=0; p:=2;

repeat

i:=0;

for j:=2 to ①do

if p mod j =0 then ②;

if i=0 then

begin

q:= ③; i:=0;

for j:=2 to ④do

if q mod j =0 then ⑤;

if i=0 then

begin

writeln(n,'=',p,'+',q);

s:=1;

end;

end;

⑥;

until (s=1) or (p=n);

readln;

end.

3.五位选手参赛前，预测比赛结果如下：

A选手说：B第二，我第三；

B选手说：我第二，E第四；

C选手说：我第一，D第二；

D选手说：C最后，我第三；

E选手说：我第四，A第一。

结果每人只猜对了一个。请编程解出决赛实际名次。

var a,b,c,d,e:integer;

begin

for a:=1 to 5 do

for b:=1 to 5 do

for c:=1 to 5 do

for d:=1 to 5 do

for e:=1 to 5 do

if (a-b)*(a-c)*(a-d)*(a-e)*(b-c)*(b-d)*(b-e)*(c-d)*(c-e)*(d-e)<>0 then

if (a=3)and(b<>2)or ①then

if (b=2)and(e<>4)or ②then

if (c=1)and(d<>2)or ③then

if (d=3)and(c<>5)or ④then

if (e=4)and(a<>1)or ⑤then

writeln('a=',a,',b=',b,',c=',c,',d=',d,',e=',e);

readln;

end.

二、写出程序运行结果

1、

Program ex33;

Var s, a : integer;

Begin

S := 0;

For a := 1 to 100 do;

S := S + a;

Writeln('S=',S);

Readln;

End. 答案：

S=100

（注意FOR语句后的分号）

三、编程：

1．用循环嵌套语句输出以下图案。

var i,j,s:integer;

begin

for i:=0 to 7 do

begin

for j:=i+1 to 7 do write(' ');

s:=1;

for j:=0 to i do

begin

write(s:5);s:=2*s;

end;

s:=s div 2;

for j:=i-1 downto 0 do

begin

s:=s div 2;write(s:5);

end;

writeln;

end;

readln;

end.

①(a<>3)and(b=2)

②(b<>2)and(e=4)

③(c<>1)and(d=2)

④(d<>3)and(c=5)

⑤(e<>4)and(a=1)

2、将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。

program exam311;

var x, y, r , min, n, m, a: integer;

begin

min:=369; a:=(369-39) div 69; x:=1;

while x<=a do

begin

y:=(369-69*x) div 39;

r:=369-69*x-39*y;

if r

begin

min:=r; n:=x; m:=y

end;

Inc(x);

end;

Writeln('min=', min, ' x=', n, ' y=', m) ;

Readln

end.

3、某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？

var s,i:integer;

begin

s:=0;i:=0;

repeat

i:=i+1;s:=s+i;

until s=903;

writeln(i+1);

readln;

end. 4、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?

5、某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此。到第七天,距山顶还剩91米。求此山峰的高度?