1、下列语句中正确的是。
a. x=x+1;
b. pi*r+r/a;
c. write(‘write(i)=’i);
d. x+y:=z;
2、已知x=100,y=200,z=300以下程序段执行后x,y,z的值应是。
if x>y then z:=x;
x:=y; y:=z
a. x=100,y=200,z=300
b. x=200,y=300,z=300
c. x=200,y=300,z=200
d. x=200,y=300,z=200
3、已知实型变量x的值为12.345，若要求按12.345的形式输出，应该使用的输出语句是。
a. writeln(xb. writeln(x:6:3)
c. writeln(x:3:6d. writeln(x:5:2)
4、program ex(input,output);
var ch1,ch2,ch3:char;
beginreadln(ch1);
readln(ch2,ch2);
readln(ch3,ch3,ch3);
writeln(ch1,ch2,ch3)
end.运行以上程序时，若输入为：
abcdef
ghi以下输出的正确的是。
ａ．adg ｂ．ghi ｃ．aei ｄ．cfi
5、设ｘ，ｙ为整数变量，并有以下程序段。
read(x); readln(y,z);
readln(z);readln(x,y);
writeln(x:2,y:2,z:2);
若运行是输入：
则以下输出中正确的是。
a. 1 2 3b. 1 4 7
c. 7 8 3d. 7 8 4
6、已知均为整型变量，其值分别为若输出结果为。
则正确的输出语句应该是。
a. write(a:3,b:3）;
write(c:3,d:3,e:3);
write(f:3,g:3);
b. writeln(a:3,b:3);
write(c:3,d:3,e:3);
writeln(f:3,g:3);
c. write(a:3,b:3）;
writeln(c:3,d:3,e:3);
writeln;
write(f:3,g:3);
d. write(a:3,b:3）;
writeln;
write(c:3)
writeln(d:3,e:3);
write(f:3,g:3);
7、设x，y，z为整型变量且变量已赋值。下面程序段中能实现当x＜y时则交换x和y的值的正确程序段是。
xz:=x;
y:=z;x:=y
end;xz:=x;
x:=y;y:=z
end;xy:=x;
x:=yend;
not(x>y) then begin
z:=x;x:=y;
y:=zend;
8、已知a，b，c，d，e都是整型变量，由键盘输入以下三行数据：
下列语句中能使a=2，b=4，c=6，d=10，e=12的是。
a．read(a,b); readln(c,d); readln(e);
b．read(a,b); readln; readln(c,d,e)
c．read(a,b,c,d,e);
d．read(a,b); readln(c); readln(d,e);
9、如果ａ时整型变量，b，c时实型变量，下面有效的赋值语句。
a．a:=a+falseb. a+b:=c;
c．a:=a+bd. c:=a+b;
10、如果a是整型变量，b，c是实型变量，ch是字符型变量，x是布尔型变量，并且它们已被赋值为：a=1，b=2.5，c=5.
0, ch=’a’，x=true，下面无效的赋值语句是。
a．b:=c:=8.8b．c:=a+1;
c．chd．x:=x and (a=b)
11、下面程序运行结果正确的是。
program ex104(input,output);
var x1,x2,x3:char;
beginreadln(x1,x2);
read(x3,x2);
readln(x1);
write(x1,x2,x3)
end.输入为：
abcdef
输出结果。a. abc
12、如果有如下说明。
program ex105(input,ouput);
var x1,x2,x3,x4,x5,x6:integer;
并且程序运行时按下面格式输入：
要想让x1=1,x2=2,x3=3,x4=4,x5=5,x6=6那么正确的read语句是。
a. read(x1,x2); read(x2,x4); read(x5,x6);
b. readln(x1,x2,x3); readln(x4,x5);
c. readln(x1,x2,x3,x4,x5);
d. read(x1,x2,x3readln(x4,x5,x6);
13、下面程序运行结果正确的是。
program ex106(input,ouput);
var x,y,z:integer;
beginread(x,y);
readln(z,x,y);
write(x:3,y:3,z:3);
x:=x+1; y:=x+1; z:=x+1;
write(x:3,y:3,z:3);
end.输入为：
输出结果：a. 3 2 4b. 2 1 3
c. 2 1 3 3 4 4d. 3 2 4 4 5 5
14、下面程序中空出的赋值语句段应是。
program ex107(output);
var x,y,z:integer;
beginx:=1; y:=3; z:=8;
write(x:3,y:3,z:3)
end.输出结果：
空出的赋值语句段。
a．x:=y; x:=y+1; z:=y+x;
b．x:=y; y:=x+1; z:=y+x;
c．y:=x; x:=y+1; z:=x+y;
d．y:=x; y:=x+1; z:=x+y;
15、如果有下列说明。
consta:=’aaa’;
varx,y:integer;
n,m:real;
k,j:booleam;
ch,cm:char;
则如下语句正确的是。
a．read(x,y,k,chb．cm:=a;
c．n:=x+yd．j:=k or ch;
16、任意输入一个四位整数，将前两位和后两位分离。下面程序中空出的赋值语句段应是。
program ex109(input,output);
var a,a1,a2:integer;
beginread(a);
writeln(‘a=’,a:5,’a1=’,a1:3,’a2=’,a2:3)
end.div 100;
a2:=a-a1;
mod 100;
a2:=a-a1*100;
mod 100;
a1:=a-a2;
div 100;
a2:=a-a1*100;
1、整型变量x和y的值分别等于。如果输出结果为3，下面正确的程序段是。
a. begin
if y>x and x>3
then if x+3>y then write(x:3)
else write(x:3)
else write(x+5:3);
endb. begin
if y>x then write(x:3)
if x>3 then write(y:3)
else write(x+5:3);
endc. begin
if y>x or x>3
then if x+3>y then write(x:3)
else write(x:3)
else write(x+5:3);
endd. begin
if y>x then write(x:3);
if x+3>y then write(y:3)
else write(x+5:3);
end2、当aa. if a then if c=d then x:=y
else u:=w;
b. if (a then x:=y
else u:=w;
c. if aif c=d then x:=y
else u:=w
endd. if aif c=d then x:=y
endelse u:=w
3、x,y,z都是整型变量，如果z和y都大于等于z，则输出“+”号；如果xa. if x>=z
then if y>=z then write(‘+
else write(‘-
b. if x else if y>=z then write(‘+
PASCAl第一课
1 需要记住的命令 开始新程序 file 菜单中的 new 功能 保存程序 s e f2 注意每次修改后都要保存。编译程序 compile alt f9 运行程序 run ctrl f9 查看程序运行结果 alt f5 2 输出一个字符串的值 beginwriteln hello end.结果 he...
职场语言第一课
职场语言第一课 从称呼谈起。与人谈话，称呼是必不可少的。有礼和得体的称呼会帮助我们达到良好的效果。那么，什么样的称呼是 有礼 和 得体 呢？在日常的生活当中，称呼是以亲切 自然 合理为第一原则。因此，中国北方大部分地区普遍有用仿亲属称谓的方式称呼非亲属的情况。如果关系较好，称呼老李，小李之类的也并不...
语言的魅力第一课练习题
北师大版小学四年级语文语言的魅力第一课练习题。一 查字典，按要求填空。1 愁 是 结构的字，共有 画，第九画是 字的意思是 形近字有用音序查字法应先查大写字母 再查音节 用部首查字法应先查 部，再查 画。能组成词语 用 忧愁 造句。二 读拼音，写词语。b n m zh ng x n x x i y ...