noip普及组初赛写运行结果+完善程序9(附答案)

更新时间:2024-03-29 10:16:01 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

写出下列程序运行结果

1.var

i,a,b,c,d:integer;

f:array[0..3] of integer; begin

for i:=0 to 3 do read(f[i]);

a := f[0] + f[1] + f[2] + f[3]; a := a div f[0];

b := f[0] + f[2] + f[3]; b := b div a;

c := (b * f[1] + a) div f[2]; d := f[(b div c) mod 4];

if (f[(a + b + c + d) mod 4] > f[2]) then begin

a := a + b; writeln(a); end else begin

c := c + d; writeln(c); end; end.

输入30 20 10 5 输出74

2.VAR a:ARRAY [1..4] OF Char; C,Ch :Char; BEGIN

FOR Ch:='W' TO 'Z' DO a[Ord(Ch)-Ord('W')+1]:=Ch; FOR Ch:='W' TO 'Z' DO BEGIN

FOR C:=Ch TO 'Z' DO Write(a[Ord(C)一Ord('W')+1];

Writeln END

END.

输出 WXYZ XYZ YZ Z 3.VAR

a, b:Integer;

PROCEDURE P(C:Integer:VAR d:Integer); BEGIN C:=a+b; d:=a-b; END; BEGIN

a:=1; b:=2; P(a,b);

Writeln(a:3,b:3)

END. 输出 1 -1 4.type

TT= array[0..20]of integer; procedure func(var ary:TT; n:integer); var

i,j,x:integer; begin

i:=0;j:=n-1; while i

while (i0) do inc(i); while (i

a:TT;

i,m:integer; begin

m:=10;

for i:=0 to m-1 do read(a[i]); func(a,m);

for i:=0 to m-1 do write(a[i], ' '); writeln;

end.

输入:5 4 -6 -11 6 -59 22 -6 1 10

输出:_5 4 10 1 6 22 -59 -6 -11 -6___ 完善程序:

当输入一个给定的数后,能输出所有不超过n的、其平方由左右对称的数字组成的数。例如:n=23,则输出:1,2,3,11,22。它们的平方依次是:1,4,9,121,484,都是左右对称的数字组成的数。

const max=1000; var m,n,i,j,s:longint;

d:array[0..max] of byte; begin

write('Please input a number: '); readln(n);

for m:=1 to n do begin 【1】; j:=0;

while s>0 do begin j:=j+1;

d[j]:=s mod 10; 【2】; end; i:=1;

while (d[i]=d[j]) and (i

if i>=j then writeln(【5】) end; readln end. 【1】s:=m*m 【2】s:=s div 10; 【3】i:=i+1 【4】j:=j-1 【5】m:5,’ ‘,m*m

本文来源:https://www.bwwdw.com/article/3onr.html

Top