当前位置:首页 >> >>

PASCAL奥林匹克竞赛习题

信息学题目( 信息学题目(一)
1.1. 输入三个数,计算并输出他们的平均值以及三个数的乘积,写出程序。 1.2. 读入摄氏温度 c,将它转换成华氏温度 f 输出,写出程序。已知 f=

9 c + 32 。 5

1.3. 输入长方体的长、宽、高,计算并输出长方体的体积和表面积。 1.4. 输入一个三位整数,将它反向输出。例如输入 127,输出应为 721。 1.5. 看下面的程序: program x6 Var a,b,integer; Begin a:=6; b:=7; writeln(a,b); writeln(a+b); writeln("a+b=",a+b); end. 输出结果是 1.6. 请看下面程序: program x10 var a,b:interger; c:real; begin readln(a,b); c:=(a+b)/abs(a-b)+1; writeln(round(c):4,trunc(c):4); c:=(a div b)*b+(a mod b); writeln(c:8:2); end. 从键盘输入“35,12” ,则输出结果是 1.7. 阅读程序,写出结果。 program 1x341; 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:12:5,r:8:5); writeln(c,c:5); writeln(s,s:10,s:5); writeln(b,b:5,b:3); end. 输出结果是: program lx342; var yes:boolean; x,y:real; begin read(x,y); writeln('x=',x:4:1,'y=',y:4:1); yes:=(x*x+y*y<=9); writeln(yes) end. 输出结果是:


更多相关标签: