Turbo Pascal编程问题{ 帮帮忙吧:-( }

来源:百度知道 编辑:UC知道 时间:2024/05/22 17:40:41
填空题
一个程序有这样三条read和readln语句:readln(a); read('b,c,d); readln(e,f);如键盘输入样式为:
1 2 3 (回车换行)
4 5 6 7 8 9 (回车换行)
10 11 12 (回车换行)
填一填(变量接受的值):变量a的值( ) 变量b的值( )
变量c的值( ) 变量d的值( )
变量e的值( ) 变量f的值( )

2、根据程序功能填空。
程序功能:输入两个数和一个运算符,程序根据运算符计算出结果,并保留三位小数。
键盘输入:
23 3
*
屏幕输出:
23*3=69.000
程序代码:
Program ju_char_2;
Var a,b,sum:real; fh:char;
Begin
readln(a,b);________________;
if fh='+' then sum:=a+b; if____________________then sum:=a-b;
if fh='*' then sum:=a*b; if fh='/'then sum:=a/b;
writeln(a,___________,____________,'=',_____________);
End.

3、根据程序功能填空。
现在你为班级编程实现统计“学生的学期积分”程序!规则如下:每人的基本分为100分,表扬一次加10分,批评一次扣5分,且批评次超过4次的扣40分。现在要求输入某学生的姓名、表扬次数、批评次数,程序运行输出学生的姓名和总等分!
键盘输入:
Yang xiaoming 表示:某学生的姓名
1

1、变量a的值(1) 变量b的值(4)
变量c的值(5) 变量d的值(6)
变量e的值(7) 变量f的值(8)

======================================

2、 填:
<1>: readln(fh);
<2>: if fh='-' then sum:=a-b;
<3>: write(a,fh,b,'=',sum);

======================================

3、 填:
<1>: sum:=100;
<2>: if b>4 then sum:=sum-40;
<3>: writeln(name,':',sum:3);

=================================
第二道题自己编的吗?
改善点,if fh='/'then sum:=a/b;改为:if fh='/' then
if b<>0 then sum:=a/b
else writeln('the number that you input is false');