RIEXUEYING RIEXUEYING
关注数: 0 粉丝数: 4 发帖数: 163 关注贴吧数: 0
求解几道PASCAL选择题 1、设变量ch为字符类型,且ch为数字字符,下列能将ch中字符转换成对应数字的正确表达式是A.Ord(ch-'0') B.Ord(ch)-Ord(0)C.Ord(ch)-'0' D.Ord(ch)-Ord('0')2.以下程序段执行后,Data的值是L1:=False; L2:=True; L3:=False Data:=0;IF L1 Then Data:=5else if Not L2 ThenIf Not L3 Then Data:=10else Data:=15A.0 B.5 C.10 D.153.判断ch是否是小写字母的正确表达式是A.'a'<=ch<='z' B.(ch>='a') And (ch<='z')C.(ch>=a) And (ch<=z) D.(ch>='a') or (ch<='z')4.以下所有变量均已说明,以下程序段中既无语法错又无逻辑错的是..A.x:=1 y:=0;while x<10 dobegin y:=y+x; writeln(y);end.B.x:=10; repeat writeln(x); x:=x+1; until x<0;C. case num of 0,1:rate:=0.05; 1,2:rate:=0.10; 3,4:rate:=0.15;D.x:=0; y:=10; while (x<10) and (y>=0) do begin x:=x+1; y:=y+2;end;5.以下合乎语法的函数过程首部有A.function sum(n:integer);B.procedure add(x,y:var z);C.procedure abc;D.function(a:integer,b:real):integer; 6.以下正确的数组类型定义是A.type arr1 = array[1..Sqrt(3)] of Integer;B.type arr2 = array[0.1..0.9] of Real;C.type arr3 = array[Boolean] of Boolean;D.type arr4 = array['a'..'E'] of Integer;7.已知有函数定义function fn(a,b,c:Real);Real;begin fn:=sin(a)/(sin(a-b)*sin(a-c));end;通过调用函数fn计算m:=sin(x)/(sin(x-y)*sin(x-z))+sin(y)/(sin(y-z)*sin(y-x))+sin(z)/(sin(z-x)*sin(z-y));正确语句是A.m:=fn(x,y,z)+fn(x,y,z)+fn(x,y,z);B.m:=fn(x-y)+fn(y-z)+fn(z-x);C.m:=fn(x,y,z)+fn(y,z,x)+fn(z,x,y);D.m:=fn(x)+fn(y)+fn(z);8.下面的程序运行结果是var a:array[1..4] of Char; c,ch:char;begin for ch:='A' to 'D' do a[Ord(ch)-Ord('A')+1]:=ch; for ch:='A' to 'D' do begin for c:=ch to 'D' do Write(a[Ord(c)-Ord('A')+1]); Writeln; end;end.A.A B.D C.ABCD D.ABCD B C ABC BCD C B AB CD D A A D9.function FIB(n:Integer):Integer; begin if n=1 Then FIB:=0 else if n=2 Then FIB:=1 else FIB:=FIB(n-1)+FIB(n-2);end;表达式FIB(FIB(5))的值是A.1 B.2 C.3 D.5
1 下一页