把下列几个赋值语句合并成个赋值语句.docVIP

1、把下列几个赋值语句合并成一个赋值语句： number:=2* number; number:=4- number; number:=7* number 2、已知a、b、c、d、e、f、g均为整型变量，其值分别为2、4、6、8、10、12、14，请写出执行下面的写语句后的输出结果： （1）write（a，b，c）； （2）writeln（a，b，c）； write（d，e，f）； writeln（d，e，f）； write（g） writeln（g） （3）write（a，b）； （4）writeln； writeln； write（a）； write（c）； write（b，c，d，e）； writeln（d，e）； writeln（f） write（f） 3、a1、a2、a3是布尔变量，分别等于true、true、false，计算下列表达式的值： （1）not a1 and not a2 （2）a1 or a2 and a3 （3）（not a1 or a2）and （a2 or a3） （4）false or not a1 and a2 or not a3 4、把下面两个if语句合并成一个不嵌套的if语句： （1）if ab then x:=1 else x:=2; if a=b then read(y) else read(z); （2）if rate0 then if rate1 then a:=0 else a:=1 else a:=1; 5、设k为整型变量，用case语句重写下面的程序段： if （k=10）and (k0) then if k5 then if k8 then x:=0 else x:=1 else if k2 then x:=3 else x:=4 6、比较下列各题中①、②两个程序段的输出： （1）①for counter:=‘c’to ‘f’ do write(‘hello!’); writeln(‘good-bye!’) ②for counter:=‘c’to ‘f’ do begin write(‘hello!’); writeln(‘good-bye!’) end （2）① for counter:=‘c’to ‘f’ do write(‘hello!’) ② fff:=‘f’; for counter:=‘c’to fff do writeln(‘hello!’) （3）① for i:=‘c’to‘f’ do writeln(‘hello!’); ②for i:=‘f’ downto ‘c’ do writeln(‘hello!’); （4）①while（a=b） do Begin writeln(‘hello!’); a:=sqr(a); end ②repeat writeln(‘hello!’); a:=sqr(a) until ab 7、写出下列各程序段的输出结果 （1）program one; Var a,b:integer; Procedure proc1(x,y:integer); Begin x:=a+b; y:=a-b end; begin a:=1; b:=2; proc1(a,b); writeln(a,b) end. （2）program two; Var a,b:integer; Procedure proc2(x:integer;var y:integer); Begin x:=a+b; y:=a-b end; begin a:=1; b:=2; proc2(a,b); writeln(a,b) end. （3）program three; Var a,b:integer; Procedure proc3(var x,y:integer); Begin x:=3; y:=4 end; begin a:=1; b:=2;