-第一章编译程序概述.pptVIP

3 记录（续） 学生记录的定义 Type Student = record name:string; age: integer; sex: integer; end; Var p: Student; 使用 p.age:-=20; 3 记录（续） 记录与数组的结合 题目： 使用记录数组来输入一个班30人的信息，按照总成绩排序。 学生信息包括：姓名、性别、年龄、民族（汉、蒙、满）、总成绩。 自己实现该程序，作为上机题目 4 指针 概念 指针是存放指定类型（或未定义类型）变量内存地址的变量 类型定义 type PointerToInt = ^Integer; 变量定义 Var P: ^Integer; X: Integer; 4 指针（续） 使用 P := @X; X := 10; P^ := 20; 说明 ^号的作用 @号的作用 空指针nil 4 指针（续） 指针空间申请new 指针空间释放dispose 举例 Var P: ^Integer; Begin New (P); P^ := 20; ShowMessage (IntToStr (P^)); Dispose (P); end; 小结 主要内容 函数 复合数据类型：枚举、子界、数组、记录、指针 上机 题目：课上讲解例题、课后习题 时间：第二周 答疑时间 周二晚上 单独约时间 3.6 循环语句（续） While语句 作用 完成条件循环 格式 while 条件表达式 do 循环体 举例 i:=0; sum :=0; while I100 do begin sum:= sum+i; i:= i+1; end; 3.6 循环语句（续） Repeat语句 作用 完成条件循环 格式 repeat 循环体； until 条件表达式 说明 与while语句的不同之处在于先执行一次循环再判断条件 3.6 循环语句（续） 例子：求n的阶乘 program factorial(input,output); var fac:real; n,i:integer; begin read(n); fac:=1; for i:=2 to n do fac:=fac * i; write(fac); end. 3.6 循环语句（续） 例子：计算正弦函数 program sinx(input,output); const eps=1e-7; var x,term,sun:real; n:integer; begin read(x); n:=1; term:=x; sum:=x; repeat n:=n+2; term:=term*(-x*x)/(n-1)/n; sum:= sum+term until abs(term)eps; writeln(‘result is:’,sum) end. 小结 本次课程介绍了Pascal语言的 基本数据 语句 作业 输入20个数，统计正数、负数的个数 自学Pascal语言相关内容 答疑时间 周二晚上 单独约时间 PASCAL语言程序设计 任课教师 王养廷 主要内容 过程和函数 数组 记录 指针 1 过程和函数 函数与过程 过程的定义与调用 函数的定义与调用 过程与函数的区别 形参与实参 数值参数与变量参数 变量的作用域 1.1 函数与过程 例程 例程又称为子程序，它式结构化程序设计的产物 例程由一系列语句组成，例程名是唯一的，通过例程名你可以多次调用它。 Pascal例程 Pascal中的例程有两种形式：过程和函数。 过程与函数区别 过程相当一个语句 函数相当一个值 1.2 过程的定义与调用 过程定义 位置：在变量声明之后，主程序之前。 格式： procedure 过程名（形式参数表）； 常量定义； 类型定义； 变量定义； 过程或函数定义 begin 过程语句体； end; 1.2 过程的定义与调用(续) 过程调用 位置：同级过程、函数或同级主程序中 格式：过程名（实际参数表）； 要求：实参的个数和类型要与形参匹配 1.2 过程的定义与调用（续） 实例 过程定义 procedure NumString(n:integer, var s:array[1..10] of char); var v,j:integer; begin v:=abs(n); j:=2; repeat s[j]:= chr(v mod 10 + ord(‘0’)) ; v:= v div 10; j:=j