写出程序运行结束ab地值.pptVIP

写出程序运行结束a，b的值 program p4_2 (input,output); var a,b:integer; begin a:=3; b:=a; b:=a+1; a:=a+1; b:=b+1; Readln; {暂停} end. PASCAL 中的布尔（逻辑）类型 整型(integer)与实型（real）。 integer型数据取值范围为-32768到32767之间所有整数。 而real型数据取值范围为其绝对值在10-38到1038之间的所有实数。 布尔型（Boolean）是一种数据的类型，这种类型只有两种值，即“真”与“假”。 1、布尔常量 在Pascal语言中“真”用ture表示，“假”用False表示。 所以布尔类型只有TRUE与FALSE两个常量。 2、布尔变量（BOOLEAN） 如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture或false）。 例如，VAR A，B：BOOLEAN； 3、布尔类型是顺序类型 由于这种类型只有两个常量，Pascal语言中规定ture的序号为1，false的序号为0。 program ex; const s=’abcdefg’; var i:integer; r:real; c:char; b:boolean; begin i:=1234;r:=1234.5678; c:=’#’;b:=true; writeln(i,i:6,i:3); writeln(r,r:12:5,r:8:5); writeln(c,c:5); writeln(s,s:10,s:5); writeln(b,b:5,b:3); end. 运行结果如下: 1234□□1.2345678000E+03□□1234.567801234.56780 #□□□□# abcdefg□□□abcdefgabcdefg TRUE□TRUETRUE 注意read与readln的区别 ????例：有两段程序有相同的变量说明如下，不同的读语句，我们可以通过比较它们执行结果的异同来理解read与readln的区别。 ? 为了避免可能出现的错误，建议在程序中按下列原则使用读语句： (A)如果没有特殊需要,在一个程序中尽量避免混合使用read 语句和readln 语句; (B)尽量用readln 语句来输入数据, 一个数据行对应一个readln 语句;(C)由于执行read 或readln 语句时, 系统不会提供任何提示信息,因此,编程时最好在readln语句之前加以适当提示,例如: write(’Input a,b,c:’); readln(a,b,c); 在执行时,屏幕上显示: Input a,b,c:■ 其中,“■”为光标。执行readln 语句后,系统处于待待输入状态, 只有输入了所需数据后才继续往下执行。 输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 键盘输入两个小数，经过取整操作后，将其整数部分交换值后输出。 （1）round(x)是舍入函数，对于正数，舍小数后，函数值比原值要小，入小数后，函数值比原值要大。 负数则正好相反。也就是说，正数舍小入大，负数舍大入小。 输出两个自然数相除的商和余数。 分析：设被除数、除数、商和余数，分别为A，B，C，D，均为变量， 且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。 ① 给出提示，从键盘输入a, b； ② 求出a除以b的商c； ③求出a除以b的余数d； ④显示两数相除的数学形式； ⑤ 紧接等式后面输出显示商和余数。 有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只? 分析：设鸡为J只，兔为T只，头为H，脚为F，则: J+T=30 ① 2*J+4*T=90 ② 解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法： 假设笼中30 个头全都是兔，那么都按每头４只脚计算，总脚数为(4*H)，与实际脚数 ( F )之差为(4*H—F)，如果这个差=0，则笼中全是兔（即鸡为0只）；如果这个差值 0，说明多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，处理步骤为: ① J=(4*H—F)/2 {先用脚数差值除以2算出鸡的只数} ② T=H—J {再用总头数减鸡数算出兔的只数} 五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋