上课方式的改进.pptVIP

上课方式的改进 1、每节留作业 2、每节课第一件事上黑板做作业（学期成绩参照） 3、课前看课件内容，申请自主学习（能完成课件后面的作业） 输入n个学生的某门课程的成绩，输出总分与平均分 Pascal数据类型 简单类型 标准类型： 整型、实型、字符型、布尔型 自定义类型：枚举型、子界型 构造类型数组类型、集合类型、记录类型和文件类型 指针类型 数组定义 type data=array[1..50] of integer; var x:data; 数组的基本操作 数组的输入、输出 数组元素的查找 数组元素的移动 数组元素的插入 数组元素的删除 排序 数组元素的输入、输出 数组元素的查找 数组元素的删除 数组元素的插入 * * 在线测试，提交的结果中英文对译： Accepted(通过) Compile Error(编译错) Run Error(运行错) Time Limit Exceeded(超时) Memory Limit Exceeded(超内存) Wrong answer (答案错) Format Error(格式错)。 program pzf; var i,n:integer; s,p:real; a:array[1..10] of real; begin readln(n); s:=0; for i:=1 to n do begin read(a[i]); s:=s+a[i]; end; p:=s/n; for i:=1 to n do if a[i]p then write(a[i]:6:2); end. n=10 integer real char string boolean type 数组是一个整体，数组名是一个整体的标识，要想使用数组中的元素，只能通过下标才能实现。数组下标可以是一个表达式。下标类型必须是有序的，可以是整型、字符型、布尔型、枚举型、子界型等 var x:array [1..50] of integer; student:array[‘a’..’z’] of real； 方式一，先构造，再定义 数组类型 x为数组变量 方式二，构造与定义同时 例：按照顺序读入十个数，然后以逆序方式输出。 for i:=1 to 10 do read(a[i]); {输入} for i:=10 downto 1 do write(a[i]); {输出} Program ex2_1; const n=10; {符号常量} var a:array[1..n] of integer; {下标不能是未知} i,m:integer; begin for i:=1 to n do read(a[i]); {读入} for i:=n downto 1 do write(a[i],’ ‘); end. 思考：将上题A数组中的各元素的值按逆序重新放置再输出，如何操作？ 数10 数9 数8 数7 数6 数5 数4 数3 数2 数1 A[10] A[9] A[8] A[7] A[6] A[5] A[4] A[3] A[2] A[1] 数1 数2 数3 数4 数5 数6 数7 数8 数9 数10 可以先开一个B数组，将A数组各元素的值按逆序赋值B数组元素，再将B数组各元素的值按顺序回到A数组相应元素中。 A[10] A[9] A[8] A[7] A[6] A[5] A[4] A[3] A[2] A[1] Program ex2_1; const n=10; var a,b:array[1..n] of integer; i,m:integer; begin for i:=1 to n do read(a[i]); for i:=1 to n do b[i]:=a[ ]; for i:=1 to n do a[i]:=b[i]; for i:=1 to n do write(a[i],’ ‘); end. n-i+1 也可以共用一个变量t实现不开其它数组对调，如何做？ A[10] A[9] A[8] A[7] A[6] A[5] A[4] A[3] A[2] A[1] 1 2 3 4 5 6 7 8 9 10 A[10] A[9] A[8] A[7] A[6] A[5] A[4] A[3] A[2] A[1] 第一步： 1 2 3 4 5 6 7 8 9 10 1 第二步： 2 3 4 5 6 7 8 9 10 第