4.1编制计算机解决问题

4.1 编制计算机程序解决问题 第四章 信息的加工与表达 什么是计算机程序？ 生活中有哪些包含了计算机程序？ 生活中包含计算机程序的例子非常多，比如学校的作息钟就是用程序控制的，包括控制播放眼保操、音乐、课间操，各类软件，等等。 某位同学的日记片段： 我的早晨 清晨六点，伴随着准时而优美的起床铃声，我迈出宿舍，走进了一楼餐厅。餐厅里人很多，没有办法，我只买了两个馒头作为我的早餐罢了。随着我的餐卡在打卡机上轻轻掠过，一元便不翼而飞了。当我走到超市的时候，突然感觉只吃包子是不是太单调了，于是在超市里拿了一包早餐奶，但付钱的时候却发现超市的收银机坏掉了，没奈何，我只得忍痛把刚拿到手的早餐奶又放了回去，真郁闷！ 你能在这个生活片段中，找出几处计算机程序为我们生活服务的痕迹来呢？ 4.1.1 认识计算机与程序 1、计算机工作原理 数据程序 输入设备 输出设备 存储器 内 存 外 存 计算机各部件配合工作（ 冯诺伊曼：存储程序控制原理） 结果 中央处理器 简单地说就是：输入 处理 输出 4.1.1 认识计算机与程序 2、计算机的自动化处理过程 计算机是如何实现信息的自动处理呢？ 首先 ,将我们要完成的任务通过一系列的指令去描述 ,这一指令组称为 程序 。然后 ,将完成任务所需的数据和程序 输入 到计算机 ,再由计算机根据程序中的指令自动对数据进行处理 ,得出 结果。 程序： 可以看作是让计算机实现某一功能的一系列计算机能够识别的语句。 3、程序设计语言 程序设计语言：是人们与计算机打交道的桥梁，通过它告诉计算机执行一系列操作，实现某种功能。 人与人的交流通过人的自然语言 人与计算机交流通过人设计的计算机语言 认识计算机编程语言 第一代： 机器语言 。完全由二进制的“ 0” ，“ 1” 组成的一些数字信息，只有计算机专业人员才能掌握它的编写规则，但计算机可以非常方便的读懂； 第二代： 汇编语言 。这种语言增加了一些容易记忆的英文缩写来表示命令，它编制出来的程序计算机无法直接读懂，必须翻译成计算机语言。虽然比机器语言容易掌握，仍需要大量的计算机知识； 第三代： 高级语言 。高级语言是使用一些简单的英文单词 (或缩写符号 )、数学式子来描述命令。这些语言的编程规则比较接近人的自然思考规则，所以比较容易被一般人掌握，也需要翻译为机器语言。常用的高级语言如： BASIC， visual BASIC（简称 VB）， PASCAL,C等 . 低级语言 0100010001 01101010101 1000 0100010001 01101010111 1010 0100010011 01101010101 01101010111 Mov ax,8 Mov bx,10 Add ax,bx Y=8 X=Y+10 4.1.1 认识计算机与程序 高级语言 汇编语言 机器语言 机器语言、汇编语言、高级语言的区别 4.1.1 认识计算机与程序 4、计算机程序的编写与执行 计算机高级 语言程序 计算机机器 语言程序 人 计算机 编写 编译程序 执行 计算机语言系统 问题：人和计算机如何交流呢？ Private Sub UserForm_Click() FileName$ = InputBox(请输入需要加密的文件名及路径 ) Open FileName$ For Input As #1 Line Input #1, yw$ Close #1 xw$ = n = Len(yw$) For i = 1 To n yz$ = Mid$(yw$, i, 1) xz$ = Chr(Asc(yz$) - 10) xw$ = xw$ & xz$ Next Open FileName$ For Output As #1 Print #1, xw$ Close #1 MsgBox # # # #加密已完成！ # # # # End Sub 4.1.2体验程序的作用及其编制环境 案例 1：加密及解密程序 Private Sub Form_Activate() Option1.Caption = 石头 Option2.Caption = 剪刀 Option3.Caption = 布 Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 对方也出石头！继续！ Case 1: MsgBox 哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！ Case 2: MsgBox 你输了！对方出的是布哦！不好意思，苹果给对方了哈！ End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 你输了！对方出的是石头哦！不好意思，苹果给对方了哈！ Case 1: MsgBox 对方也出剪刀！继续！ Case 2: MsgBox 哈哈！你赢了！对方出的是布！奖励你一个苹果！ End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 哈哈！你赢了！对方出的是石头！奖励你一个苹果！ Case 1: MsgBox 你输了！对方出的