原创力文档- 1、本文档共2页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
写出下列程序运行结果
1．VAR
a：ARRAY [1．．3，1..3] OF Integer；
i，j：Integer；
Begin
FOR i：=1 TO 3 DO
FOR j：=1 TO 3 DO
A[i，j]：=(i DIV j+2)*(j DIV i+2)；
FOR I：=1 TO 3 DO
BEGIN
FOR J：=I T0 3 DO Write(a[i，j]：3)；
Writeln；
END；
END.
输出
2．VAR
i， j， n， t： Integer；
a：ARRAY[1．．100] OF Integer；
f：Boolean；
BEGIN
Read(n)；
FOR i：=1 TO n DO Read(a[i])；
Readln；
f：=True； i：=1；
WHILE (i=n-1)AND f DO
BEGIN
f：=False；
FOR j：=1 TO n -1 DO
IF a[j]a[j+1]THEN
BEGIN
t：=a[j]；
a[j]：=a[j+1]；
a[j+1]：=t；
f：=True
END；
i：=i+1
END；
FOR i：=1 TO n DO
Write(a[i]：2)；
Writeln
END.
输入数据：5 5 6 8 9 5回车
输出
3．FUNCTION FUN(X：INTEGER)：INTEGER；
BEGIN
IF(X=0)OR(X=1)THEN FUN:=3
ELSE FUN:=X-FUN(X-2)
END；
BEGIN
WRITELN(FUN(20))；
READLN；
END.
输出：
完善程序
问题描述：
给出一个正整数N（1≤N≤100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，……N-2,N-1,N，且可求出从1开始的这N个数的全部各个数位上的数字之和。 例如：当N=12时，这12个数是：1，2，3，4，5，6，7，8，9，10，11，12。
则这12个数的数字之和为： S=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51
程序如下：
program dgc1_401;
var
n,s,x,y,j:integer;
begin
readln(n);
s:=0;
for j:=1 to n do
begin
（1） ；
while （2） do
begin
y:=x mod 10;
s:=（3）
x:= （4） ;
end;
end;
writeln(s=,s);
end.
文档评论（0）