原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
循环程序阅读,写出程序的运行结果
一、程序阅读，写出程序的运行结果
1 program p431;
var
i,s,t:integer;
begin
t: 0;
s: 0;
for i: -5 to 5 do
begin
t: t+1;
s: s+t+i;
end;
writeln s,t ,s:10,t:10 ;
end.
结果为： 2 program p432;
var
p,m:integer;
begin
p: 20;
m: 2;
repeat
p: p-m;
m: m+3;
until m p;
writeln m,p ,m:10,p:10 ;
end.
结果为： 3 program p433;
var
a,n:integer;
begin
n: 6;
a: 0;
while n 1 do
begin
a: 1;
repeat
write * ;
a: a+1;
until a n;
writeln;
n: n-1;
end;
end.
结果为： 4 program p434;
var
i,j,k,s:integer;
begin
s: 0;
for i: 3 downto 1 do
begin
for j: 1 to 3 do
begin
k: 0;
repeat
k: k+1;
s: s+k;
until k j;
end;
s: s-k-1;
end;
write s ,s ;
end.
结果为： 5 program p5305;
var
s,i:integer;
begin s: 0;
for i: 1 to 100 do if i mod 3 0 and i mod 4 0 then s: s+i;
writeln s ,s ;
end.
结果为： 6 program p5306;
var i:integer;
begin
for i: 1 to 100 do if i mod 2 0 then begin write i:4 ; if i mod 5 0 then writeln; end;
end.
结果为： 7 program p5307;
var
i,j:integer；
begin
for i: 1 to 5 do begin for j: 5 downto i do write + ； writeln;
end;
end．
结果为： 8 program p5308;
var
n,i,a1,a2,a3:integer;
begin
readln n ;
a1: 3; a2: 5;
write a1:8,a2:8 ;
for i: 3 to n do
begin a3: a1+a2; a1: a2; a2: a3; write a3:8 ; end;
end.
输入:10
结果为： 9 program p5309;
var i,j, k,sum1,sum2:integer;
begin
sum1: 0;
sum2: 0;
k: 1;
while k 10 do begin if k mod 2 0 then for i: 1 to 5 do sum1: sum1+i else for j: 1 to 5 do sum2:＝sum2+i; k:＝k+1;
end;
writeln sum1, :5,sum2 ;
end.
结果为： 10 program p5310;.
var
n:integer; b,t:real;
begin
t: 1;
b: 1;
n: 2;
repeat b: b*n; t: t+b; n: n+1;
until n 8;
writeln t:3:0 ;
end.
结果为： 二、.编写下列程序
1 人键盘输入20个整数，分别统计其中正数，负数和零的个数。
2 输出100以内能够被5整除余1的自然数。
4
文档评论（0）