《2022年4月全国高等教育自学考试高级语言程序设计2》由会员分享,可在线阅读,更多相关《2022年4月全国高等教育自学考试高级语言程序设计2(3页珍藏版)》请在金锄头文库上搜索。
1、 2022年4月全国高等教育自学考试高级语言程序设计21.program er1(input,output);var x:real;begin read(x);if odd(x)then writeln(x is odd.)else if x mod 3=0then writeln(There is a factor of 3 in x)else writeln(x:4)end.(1)_(2)_2.program er2(input,output);var i,s:integer;begin s:=0;for i:=a to ord(z)dobegin s:=s+i;i:=i+1 end;wr
2、iteln(s:4)end.(1)_(2)_3.program er3(input,output);var a,b:integer;function f(a,b:integer):char;begin f:=ord(A)+(a-b)mod26 end;begin read(a,b);if f(a-b)=cthen writeln(O.K.)elsewriteln(NOT)end.(1)_(2)_4.program er4(input,output);type e=(a,b,c);ta1=arraye,A.C,0.0.9of integer;var i:e;j:char;k:real;m:tal;beginfor i:=a to c dofor j:=A to C doread(mi,j);(*下略*)end.(1)_(2)_四、阅读程序题:阅读以下程序,说明其功能(7分)(不需给出运行结果)program calpro(output);var i,m,s,k:integer;begin