写出下列程序的运行结果

《写出下列程序的运行结果》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、P10-1.写出下列程序的运行结果。BeginWriteln(‘Iam’);Write(9:3,’yearsold’)End.BeginWrite(‘7*9=’);Write(7*9:5);Writeln;Writeln(8*9:10)End.(1)(2)P15-1. 写出下列字母的ASCII码。A____、B____、Y____、Z____、a____、b____、y____、z____o____、l____、9____、+____、=____、$____、(____、<____(提示

2、:如果记不起来,你可以让个程序来帮忙啊!)2.写出下列程序的运行结果。BeginWrite(chr(66),chr(101));Writeln(‘Jing’)End.BeginWrite(19);Writeln(ord(‘b’))End.(1)(2)3.找出下列程序中的错误，并改正。BeginWrite(chr(57)+10);Writeln(‘Jing’)End.BeginWriteln(20);Writeln(chr(‘x’))End.(1)(2)4.编一个程序，对你自己的姓名进行加密。加密

3、的方法是：取姓名每一个字母的ASCII再加7，作为该字母对应的密码。5.编一程序，求出微软公司名称“Microsoft”中各个字符对应ASCII码的和。6.编个程序找出以下字符的前一个字符和后一个字符分别是什么？BEGJABC要求每行输出一个字符的前一个字符、该字符和它的后继字符，如第一行应如：7.假设一个储物柜S中有很多个格子，每个各自都编上不同的编号。已知编号为65、66、67和68的格子中分别保存着标记为“A”、“B”、“C”和“D”的宝物。65666768DCBA如果用S[65]表示编号

4、为65的格子中的宝物，你知道其余的几种宝物该如何表示吗？P20-1.比较下列字符串的大小，并在横线上填上“>”“<”或“=”。MS-DOS___WindowsIE___ExcelFrontPage___Word2000___Winexcel___exercisePower___Page2.写出下列程序的运行结果。Beginiflength(‘Excel’)>3thenWriteln(‘long’);End.BeginWriteln(Length(‘word’));Writeln(3+Length

5、(‘IE’))End.(1)(2)BeginWriteln(‘Big:’);iford(‘T’)>ord(‘D’)thenWriteln(‘T>D’)Elsewriteln(‘T3thenWriteln(‘>3’);iford(‘G’)>80thenwriteln(1)Elsewriteln(2);End.(3)(4)3.找出下列程序中的错误，并改正它。BeginWriteln(3+Length(“IE”))End.Beginifle

6、ngth(‘Powerpoint’)<3then;Writeln(‘<3’);End.(1)(2)BeginWriteln(‘>3’:5);Iford(‘R’)>’ST’thenwritelnEnd.Beginifchr(65)=’A’thenWriteln(‘a’)Else;Writeln(‘OT’);End.(3)(4)4.遍个程序算一算：下列微软公司的产品名称长度分别是多少？总长度是多少？Access、Excel、FrontPage、Outlook5.编程序比较你和爸爸的姓名（用拼音表示）

7、，将大的显示在前面，小的显示在后面。P24-1.指出下列哪些不能作变量名使用，并说说理由。TyagepredS11VAREND3writelnd:=p_12ordsucc2Stringintegerx+yw8nk22.指出下列语句的错误，并改正：(1)win+3:=50(2)x2:=’years’(变量x2已说明为integer类型)(3)ky:=’windows’-‘dows’(想取得除“dows”以外的那部分字符)(4)p1:=p2:=a×b（想把a×b的值存入p1和p2两个变量）3.写出下

8、列程序的运行结果。Varmy:integer;BeginMy:=16-3;Writeln(my)End.Varn,v:integer;BeginN:=25;V:=5*nWriteln(‘VP=’,v)End.(1)(2)Vark1,k2,fn:integer;Begink1:=219;k2:=91;fn:=k1+2*k2;Iffn>100thenwriteln(fn);End.Varw1,w2:integer;BeginWriteln(‘Enter’);W1:=250;w2:=295;Ifw1>