求小学信息学奥赛QB教程和试题
发布网友
发布时间：2022-05-16 13:37
共2个回答
热心网友
时间：2023-08-03 10:07
1. 通常在输入一个正确的程序之后，我们如何运行？
2. 运行完毕之后，假如按Alt+F5，通常会出现什么颜色的界面？
3. 如何定义变量abc为整数？
4. 请完成这样的程序：从键盘输入一个非零整数，接着在屏幕输出其10倍
5. 为了计算半径为30的圆的周长，我们利用公式l=2*pi*r。请解释下面的程序为何不能输入3.14
program exe1_5;
var pi:integer;
begin
read(pi);
write(2*pi*30);
end.
6. 请指出下列语句的错误
var a,b,a,3a,begin:integer;
7. 请指出下列程序的错误
begin
read(a).
write(a;3);
end;
1、写出下列程序在turbo pascal下的输出结果。
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
2、编一程序，将摄氏温度换为华氏温度。公式为：F=9*C/5+32，其中F为华氏温度,C是摄氏温度。
3、编一程序，输入三角形的三边a、b、c（假设这三边可以构成一个三角形），求三角形的面积S？ （提示：可利用海*式
1、分析并写出下列程序的运行结果：
program chengji;
var s:real;ch:char;
begin
s:=78.6;
if(s>=90)and(s<=100)then ch:='A'
else if (s>=70)and(s<90) then ch:='B'
else if (s<70) then ch:='C';
writeln(s,'--',ch);
End.
2、编写一与电脑猜"红"或"黑"的游戏。（先由计算机给出随机答案，然后由人猜，猜对输出"YOU WIN"否则输出"YOU LOST"。）
课内作业：输入两个数a、b，输出他们的和、差、积。
参考程序：
Program xumin0001;
Var a,b,he,cha,ji:integer;
begin
a:=10;
b:=12;
he:=a+b;
cha:=a-b;
ji:=a*b;
write(he,cha,ji);
end.
补充练习：
1、输入矩形的边长，分别输出周长、面积值。
2、输入两个整数，输出它们的平方和它们的平方根。
3、输入两个整数，输出它们相除的整数商（整除值）以及余数。
4、输入一个时间秒数，分别将其换算为下述时间单位输出：小时，天，星期
1、输入矩形的边长，分别输出周长、面积值。
2、输入两个整数，输出它们的平方和它们的平方根。
3、输入两个整数，输出它们相除的整数商（整除值）以及余数。
4、输入一个时间秒数，分别将其换算为下述时间单位输出：小时，天，星期
热心网友
时间：2023-08-03 10:08
*的是试题
