信息学奥赛培训教程之——习题课(二).pptVIP

补充： * 信息学奥赛培训教程之—— 习题课（二） 说明以下程序的运行情况和结果： 程序1 begin writeln; end. 程序2 begin readln; end. 换行，把光标移到下一行。 程序处于等待状态，等待接收一个 回车。接收后，光标移到下一行。 var i,j:integer; begin writeln(Input two numbers:); readln(i,j); i:=i+j; j:=i-j; i:=i-j; writeln(i, ,j); end. 程序3 交换两个变量的值 var a,b:integer; begin a:=253;b:=43; writeln(a:10,*,b,=,a*b); writeln(a:12); write(*:8);writeln(b:4); writeln(--------:12); writeln(a*3:12); write(+:6);writeln(a*4:5); writeln(--------:12); writeln(a*b:12); end. 2-1、已知 A=253，B=43，输出 A*B 的运算式子。 即输出如下： 253*43=10879 253 * 43 -------------- 759 + 1012 --------------- 10879 □□□□□□□ □□□□□□□□□ □□□□□□□ □□□□□ □□□□□□□□□ □□□□□ □□□□□ □□□□□□□□ 2-2、编写程序，从键盘读入C到X之间的字母，输出该字母位 于中间的相邻五个字母；例如：输入：G 输出：EFGHI var ch:char; begin readln(ch); writeln(pred(pred(ch)),pred(ch),ch,succ(ch),succ(succ(ch))); end. var ch:char; a:integer; begin readln(ch); a:=ord(ch); writeln(chr(a-2),chr(a-1),ch,chr(a+1),chr(a+2)); end. 2-3、编写将三位整数345颠倒输出的程序 var a,ge,shi:integer; begin a:=345; ge:=a mod 10; {个位} a:=a div 10; {a=34} shi:=a mod 10; {十位} a:=a div 10; {a=3,百位} writeln(ge,shi,a); end. 如果题目改为: 从键盘输入一个三位数,将该三位整数颠倒输出;如何做? FP中的注释有三种： 多行注释：（* *） ｛ ｝ 单行注释：// *