写出下列程序的运行结果
- 格式：pdf
- 大小：477.71 KB
- 文档页数：28
P10-1. 写出下列程序的运行结果。 (1) (2)
P15-1. 写出下列字母的ASCII码。 A____、B____、
Y____、Z____、a____、b____、y____、z____
o____、l____、9____、+____、=____、$____、( ____、<____
(提示:如果记不起来,你可以让个程序来帮忙啊!) 2.写出下列程序的运行结果。
(1) (2)
3.找出下列程序中的错误，并改正。
(1) (2)
Begin
Writeln(„I am‟);
Write(9:3,‟ years old‟) End. Begin
Write(„7*9=‟);
Write(7*9:5); Writeln;
Writeln(8*9:10) End.
Begin
Write(19); Writeln(ord(„b‟))
End. Begin
Write(chr(66),chr(101)); Writeln(„Jing‟)
End.
Begin
Writeln(20); Writeln(chr(„x‟))
End. Begin
Write(chr(57)+10); Writeln(„Jing‟)
End.
4.编一个程序，对你自己的姓名进行加密。加密的方法是：取姓名每
一个字母的ASCII再加7，作为该字母对应的密码。 5.编一程序，求出微软公司名称“Microsoft”中各个字符对应ASCII
码的和。 6.编个程序找出以下字符的前一个字符和后一个字符分别是什么？
B E G J
要求每行输出一个字符的前一个字符、该字符和它的后继字符，如第一行应如：
7.假设一个储物柜S中有很多个格子，每个各自都编上不同的编号。
已知编号为65、66、67和68的格子中分别保存着标记为“A”、“B”、
“C”和“D”的宝物。 65 66 67 68
如果用S[65]表示编号为65的格子中的宝物，你知道其余的几种宝物
该如何表示吗？ P20-1.比较下列字符串的大小，并在横线上填上“>”“<”或“=”。
MS-DOS___Windows IE___Excel FrontPage___Word 2000___Win excel___exercise Power___Page
2.写出下列程序的运行结果。
ABC
A B C D (1) (2)
(3) (4)
3.找出下列程序中的错误，并改正它。 (1) (2)
(3) (4)
Begin Writeln(Length(„word‟));
Writeln(3+Length(„IE‟))
End. Begin if length(„Excel‟)>3 then
Writeln(„long‟);
End. Begin
Writeln(„Big:‟); if ord(„T‟)>ord(„D‟) then
Writeln(„T>D‟)
Else writeln(„T
if Length(„Gate‟)>3 then Writeln(„>3‟);
if ord(„G‟)>80 then
writeln(1) Else writeln(2);
End.
Begin
Writeln(3+Length(“IE”)) End. Begin
if length(„Powerpoint‟)<3 then; Writeln(„<3‟);
End.
Begin if chr(65)=‟A‟ then
Writeln(„a‟) Else;
Writeln(„OT‟);
End. Begin Writeln(„>3‟:5);
If ord(„R‟)>‟ST‟ then writeln End.
4.遍个程序算一算：下列微软公司的产品名称长度分别是多少？总长
度是多少？ Access、Excel、FrontPage、Outlook
5.编程序比较你和爸爸的姓名（用拼音表示），将大的显示在前面，
小的显示在后面。
P24-1.指出下列哪些不能作变量名使用，并说说理由。
Ty age pred S11 VAR END3 writeln d:= p_12 ord succ2 String integer x+y w8n k2
2.指出下列语句的错误，并改正： (1) win+3:=50
(2) x2:=‟years‟ (变量x2已说明为integer类型)
(3) ky:=‟windows‟-„dows‟ (想取得除“dows”以外的那部分字符) (4) p1:=p2:=a×b （想把a×b的值存入p1和p2两个变量）
3.写出下列程序的运行结果。 (1) (2)
Var my:integer; Begin
My:=16-3;
Writeln(my) End. Var n,v:integer; Begin
N:=25;
V:=5*n Writeln(‘VP=‟,v)
End. (3) (4)
(分别编程求解下列问题) 4.面包车准乘17人，5辆面包车最多可乘多少人？
5.小军每分钟大约走65米，他从家到学校大约要走8分钟。他家里
学校大约有多远？ 6．副食店运来410千克鸡蛋，上午卖出152千克，下午卖出174千
克，还剩多少千克？ 7.从键盘输入两个整数319和25，求它们的积。
要求按如下格式输出结果：
319+25=344 p31-1.写出下列式子的值。
12*3+6= 54/9= 45div4= 98mod10= 30/3+2= (40mod3)+5= (120div12)+12=
(52div10)*10= (78div10)*10+(78mod10)=
2.要使下列程序运行后能显示出所示的结果，程序运行时应输入什么Var w1,w2:integer; Begin
Writeln(„Enter‟);
W1:=250;w2:=295; If w1>w2 then writeln(w1)
Else writeln(w2); End. Var k1,k2,fn:integer; Begin
k1:=219;k2:=91;
fn:=k1+2*k2; If fn>100 then writeln(fn); End.
数据？
3.写出下列程序的运行结果。 (1) (2)
(3) (4)
程序 结果
Var x:integer;
Begin Readln(x);
Writeln(chr(x),chr(x+1),chr(x+2)) End. BCD
Var my:real; Begin
My:=18/4-3;
Writeln(my:10:2) End. Var n,v:integer; Begin
Read(n);
v:=n mod 5; Writeln(„VP=‟,v)
End.{运行时输入34}
Var w1,w2:integer; Begin
Writeln(„Enter‟);
Read(w1,w2); W1:=0;w1:=w1+w2;
Writeln(w1); End. Var k1,k2,fn:integer; Begin
Readln(k1,k2);
Fn:=k1+2*k2; If fn<7 then writeln(fn);
End.
4.从键盘输入一个字符，然后县是一个由该字符组成的图案。
5.输入一个时间的秒数，求对应的分钟数和小时数。
6.输入两个整数，让计算机算出它们的和、差、积、商、整除商和余
数。
7.编一个程序计算任意一个长方形的周长和面积。 (提示：假设长方形的长为a、宽为b、周长为L、面积为s，那么长
方形周长为L=2×a+2×b、面积为S=a×b)。 p38-1.运行以下程序，找出下列程序中存在的错误，并改正它。
输入样例 输出样例
K K KKK
KKKKK 输入样例 输出样例 18 5 18+5=23
18-5=13 18*5=90
18/5=3.60
18 div 5=3 18 mod 5=3
2.写出下列程序的运行结果，并上机验证。
题号
(1) 程序 存在问题及解决方法
Begin
S:=123*50 Writeln(s);
End.
(2)
(3) Var k:integer;
Begin
Readln(k); Writeln(k+100);
Var tj,s:integer; Begin
Readln(th);tj+1:=s;
Writeln(s); End.
题号
(1) 程序 运行结果
Var ch1,ch2:char;
Begin Readln(ch1,ch2);
Writeln(ord(ch1),ord(ch2):5) End. 我的发现
