编制计算机程序解决问题.ppt
编制计算机程序解决问题,活动一:体验心灵感应程序,游戏规则:请在心里随便想一个两位数，比如：64,然后用该数字减去它的个位和十位，即：64-6-4=54.请牢牢记做这个数字,编制计算机程序解决问题,看教材第7475页,思考以下问题。,1、计算机各部件是如何配合工作的？2、计算机程序设计语言经历了哪些阶段？,编制计算机程序解决问题,编制计算机程序解决问题,0100010001 01101010101 10000100010001 01101010111 10010100010011 01101010101 01101010111,Mov ax,8Mov bx,10Add ax,bx,X=8Y=X+10,高级语言,汇编语言,机器语言,如：BASIC、PASCAL C VB等,活动二：体验VB的开发环境,编制计算机程序解决问题,试一试：把字母A的ASC码+3，对应的字母是什么？,在计算机中的每一个字符（或汉字）在计算机内部都对了一个唯一的数值，这个数值就是ASC码值,又叫机内码.,算法:,A,65,+3,68,D,ASC(A),Chr(68),编制计算机程序解决问题,正确答案已经放在被加密的福尔摩斯.txt 文件里面了。,福尔摩斯骑着自行车到公园玩，突然他觉得肚子不舒服，就在车子前轮上套了一把钢圈锁，自己进了公共厕所。可是他出来后，自行车却不见了。当时公园里有很多小孩子在玩，有的在放风筝、有的在溜旱冰，还有的在打棒球。福尔摩斯知道一定是这些孩子的恶作剧，他很快就找出了恶作剧的小孩，可是孩子们力气那么小是如何把锁着的自行车骑走的呢？,编制计算机程序解决问题,Private Sub Form_Load()FileName$=InputBox(输入需加密的文件名及路径)Open FileName$For Input As#1 Line Input#1,before$MsgBox before$,加密前的文本内容 Close#1 after$=n=Len(before$)For i=1 To n b$=Mid$(before$,i,1)c$=Chr(Asc(b$)+10)after$=after$&c$Next MsgBox after$,加密后的文本内容 Open FileName$For Output As#1 Print#1,after$Close#1 EndEnd Sub,after$用来存放加密后的文本内容用函数len()计算before$中存储的字符个数for.next用于循环读出before$中的每个字符用函数mid()读取出before$中的第i个字符用函数asc()计算出字符的ASC编号，加10得到新编号再用chr()转换成对应的字符,思考：,加密程序中真正实现加密的算法是哪一个语句？如果要求你将它修改成解密程序，你将如何修改？,编制计算机程序解决问题,Private Sub Form_Load()FileName$=InputBox(“输入需解密的文件名及路径)Open FileName$For Input As#1 Line Input#1,before$MsgBox before$,“解密前的文本内容 Close#1 after$=n=Len(before$)For i=1 To n b$=Mid$(before$,i,1)c$=Chr(Asc(b$)-10)after$=after$&c$Next MsgBox after$,“解密后的文本内容 Open FileName$For Output As#1 Print#1,after$Close#1 EndEnd Sub,编制计算机程序解决问题,活动三：解开迷团,1、解密福尔摩斯丢失自行车的答案文件。2、解密“心灵感应程序”的算法。,编制计算机程序解决问题,心灵感应程序揭密,10-1-0=911-1-1=912-1-2=913-1-3=914-1-4=915-1-5=916-1-6=917-1-7=918-1-8=919-1-9=9,20-2-0=1821-2-1=1822-2-2=1823-2-3=1824-2-4=1825-2-5=1826-2-6=1827-2-7=1828-2-8=1829-2-9=18,30-3-0=2731-3-1=2732-3-2=2733-3-3=2734-3-4=2735-3-5=2736-3-6=2737-3-7=2738-3-8=2739-3-9=27,40-4-0=3641-4-1=3642-4-2=3643-4-3=3644-4-4=3645-4-5=3646-4-6=3647-4-7=3648-4-8=3649-4-9=36,通过本节课的学习，我们知道：程序是由一系列计算机可识别的语句组成，这些语句具有一定的功能，并被计算机按照预设的步骤严格执行，在今后的学习过程中我们会逐渐领略到程序的更大魅力！,编制计算机程序解决问题,
