陆平_2011文件与线性表

当数组中每个元素只带有一个下标时,我 当数组中每个元素只带有一个下标时, 们称这样的数组为一维数组。 们称这样的数组为一维数组。 数组A 数组A
86 79 92 …… 67
A[1]
2011年冬令营•江苏
A[2]
A[3]
A[50]
jsoi
一维数组的定义
TYPE 数组类型名=ARRAY[下标类型] OF 数组元素类型 数组类型名=ARRAY[下标类型] =ARRAY[下标类型 例如： 例如： TYPE scoretype = array[1..50] of integer; VAR score:scoretype; 直接在VAR区中定义数组 形式如下 区中定义数组,形式如下 直接在 区中定义数组 形式如下: VAR 数组名： 下标类型] 数组元素类型； 数组名： ARRAY [下标类型 OF 数组元素类型； 下标类型 例如: 例如 VAR score: array [1..50] of integer;
2011年冬令营•江苏
jsoi
例2 var n,m,s,x,i,j,num:longint; begin assign(input,'ex2.in'); 想一想 ssign(output,'ex2.out'); reset(input); rewrite(outpu 当n，m改为若干行若 t); 干列时，又如何实现 readln(n,m); while not eofdo 数据的读取？ for i:=1 to n dobegin s:=0;num:=0; Eoln判断行结束函数 for not eoln dodo j:=1 to m while begin Eof判断文件结束函数 read(x); if x>=0 then s:=s+x;end; num:=num+1; s:=s+x;end; write ln(s,' ',num); readln; end; close(input);close(output); end.
2011年冬令营•江苏 jsoi
文件操作举例
1、从文件ex1.in中读取n个整数，计算它们的和， 并输出至ex1.out. (1)输入文件共两行，第一行包含一个正整数n，第 二行包含n个空格隔开的整数。 (2)输出文件仅一行，表示这些数字的和。 如 输入： 8 12 3 4 565 6 1 5 9 输出 605
2011年冬令营•江苏 jsoi
例2
2、从文件ex2.in中读取n*m个整数，计算每行
整数的和，并统计出每行非负整数的个数，输出 至ex2.out. ex2.pas (1)输入文件共若干行，第一行包含两个整数n和m ，接下来n行，每行包含m个用空格隔开的整数。 (2)输出文件共n行，每行两个整数，第一个数为 表示该行m个数字之和，第二个数为该行中非负 整数个数，中间用一个空格隔开。
2011年冬令营•江苏
jsoi
文件
1、计算机内的数据以文件的形式保存在计算机磁盘中，通常我们 用文件名来标识文件。
2、在Pascal中提供了两个标准文件input和 output文件。
2011年冬令营•江苏
jsoi
Pascal语言中的文件
（1）Pascal程序使用大数据量 （2）信息学比赛要求使用文件来进行输入、输出。
2011年冬令营•江苏 jsoi
例3
3、随机产生n个整数（500以内）存 放在ex3.out中，每行10个整数， 每两个整数之间用空格隔开（行尾 没有空格）。
2011年冬令营•江苏
jsoi
var 例4 x,n,t:integer; begin assign(input,'ex4.in');reset(input); assign(output,'ex4.out');rewrite(output); randomize; 注意空格，注意换行！！！ t:=0; readln(n); repeat x:=trunc(random(500 x:=trunc(random(500)); t:=t+1; 10<>0) if t mod (10<>0) and (t<>n) then write(x ,' ') else writeln(x); until t=n; close(input); close(output); 2011年冬令营•江苏 jsoi end.
线性表的顺序存储
• 顺序存储是线性表的一种最简单的存储结构，存 储方式是：在内存中为线性表开辟一块连续的存 储空间。
假设S为内存中a1的地址，每个 元素占一个存储单元。
2011年冬令营•江苏
jsoi
一维数组的定义
a1 a2 …… ai ai+1 …… an
2011年冬令营•江苏
在内存中开辟一片连续的 存储空间， 存储空间，存放一批具有 相同类型的数据元素。 相同类型的数据元素。
关闭已打开文件 close(input); close(output); ——关闭已打开文件 End.
2011年冬令营•江苏
jsoi
Pascal的文件操作
1、建立标准文件与磁盘文件的关联 assign(input,’f1.in’); assign(output,’f1.out’); 2、打开文件 reset(input); rewrite(output); 3、读写文件 Read(参数表)； Readln(参数表)； Write(参数表)； Writeln(参数表)； 4、关闭文件 close（input）；close（output）；
2011年冬令营•江苏 jsoi
数组元素的输入、输出
数组的基本操作
例1_2.1：按照顺序读入十个数，然后以逆序方式输出。 1_2.1：按照顺序读入十个数，然后以逆序方式输出。 For i:=1 to 10 do read(a[i]);readln;{输入 输入} 输入 For i:=10 downto 1 do write(a[i]:4);readln;{输出 输出} 输出 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]); readln; {读入 读入} 读入 for i:=n downto 1 do write(a[i],‘ ‘);writeln; end. 2011年冬令营•江苏 jsoi
2011年冬令营•江苏 jsoi
如果输入只有一行，不知道n的个数，怎么办？ 如果输入只有一行，不知道n的个数，怎么办？ program file1; var n,s,x,i:longint; 例1 {关联input文件} 关联input文件} begin assign(input,‘ex1.in’ assign(input,‘ex1.in’);reset(input); assign(output,'ex1.out');rewrite(output); {关联output文件} 关联output文件} readln(n); s:=0; for i:=1 notneoln do While to do begin read(x); s:=s+x; Eoln判断行结束函数 end; writeln(s); close(input); close(output); {关闭output文件} 关闭output文件} end. {关闭input文件} 关闭input文件}
jsoi
同一类型的变量，用同一个名字代表， 同一类型的变量，用同一个名字代表， 比如：A[1],A[2],A[3],..,A[50],由此 比如：A[1],A[2],A[3],..,A[50],由此 组成了A的数组，括号里的数字称为A 组成了A的数组，括号里的数字称为A 数组的下标A[1],A[2],A[3],..,A[50]等 数组的下标A[1],A[2],A[3],..,A[50]等 称为数组元素。 称为数组元素。
思考：将上题A 思考：将上题A数组中的各元素的值按逆序重新放置
2011年冬令营•江苏
jsoi
二、线性表的特点 对于非空的线性表：
• 有且仅有一个开始结点a1 a1 a1，a1 a1 a1没有直接前趋， a1 有且仅有一个直接后继a2 a2； a2 • 有且仅有一个终结结点an an an，an an an没有直接后继，有 且仅有一个直接前趋an-1； anan • 其余的内部结点ai 2≤i≤n-1）都有且仅有一个 ai（2≤i≤n ai 2≤i≤n直接前趋ai-1和一个直接后继ai+1 aiai+1。 ai ai+1
——JSOI2011冬令营第1讲
jsoi
Input &
Program swap (input,output); var a, b, x: integer; Begin read(a,b); x:=a; a:=b; b:=x; writeln writeln (a, b); End.
output 标准文件
2011年冬令营•江苏 jsoi
线性表基础
2011年冬令营•江苏
jsoi
算法+数据结构=程序
——沃斯
1、面对问题，组织数据，搭建逻辑结构 面对问题，组织数据， 根据问题， 2、根据问题，选择存储结构 解决问题， 3、解决问题，选择合适的操作
2011年冬令营•江苏 jsoi
引例
• 输入50 50名学生某门课程的成绩,要求把 50 , 高于平均分的那些成绩打印出来. .
利用文件的优点
（1）文件可以永久保存，其中的数据不会因应 用程序的结束而消失； （2）文件中的数据可以为多个应用程序所享； （3)文件中的数据可以多次重复使用； （4）文件中存放的数据的数量理论上没有限制 。