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

1、信息学奥赛培训教程之,习题课（二）,补充：,说明以下程序的运行情况和结果：,程序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:

2、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:

3、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

4、; 十位 a:=a div 10; a=3,百位 writeln(ge,shi,a); end.,如果题目改为: 从键盘输入一个三位数,将该三位整数颠倒输出;如何做?,FP中的注释有三种： 多行注释：（* *） 单行注释：/,var ch1,ch2,ch3:char; begin readln(ch1); readln(ch2,ch2); readln(ch3,ch3,ch3); writeln(ch1,ch2,ch3); end.,2-4、编写程序，读入三个数据行，然后把第一行的第一 个字符，第二行的第二个字符，第三行的第三个字符连 接在一行上输出。,输入： 123 abc opq,输出： 1bq,如果看不懂，看下面的：,var ch1,ch2,ch3,ch4,ch5,ch6:char; begin readln(ch1);