当前位置:首页 >> 学科竞赛 >>

信息学校本教材——pascal语言与程序设计(3)


信息学校本教材

Pascal 语言与程序设计(3)
主讲: 谭 少 文 单位: 益阳市第一中学

Pascal中函数与过程

函数Function
function 函数名(形式参数表):函数类型; 说明部分; begin 语句1; 语句2; …… 语句n end;

例:

计算|X|的函数 function abs1(x:real):real; var z:integer; begin if x>=0 then z:=x else z:=-x ?函数体中至少要有一条 abs1:=z; 语句对函数名赋值 end;

如何调用函数
为了调用非标准函数,必须预先将函数 定义写在程序的说明部分。然后在程序中需 要调用的地方,将函数名和相应的自变量写 在表达式中即可; 函数名(实在参数表)

Program mypro; 调用函数实例 Var a :real; Function abs1(x:real):real; 形式参数 Var z:integer Begin 注意:1、实在参数与形式参数个 数要相同,且按顺序一一对应 If x>=0 then Z:=x 2、实参可以是表达式。调用时先 Else Z:=-x; 计算后赋给对应的形参。 abs1:= z; End; Begin Readln(a); 实在参数 Writeln(abs1(a)); End.

例:求五边形的面积。边长l1-l7由键盘输入。
三角形面积计算: 已知三角形三边a,b,c,计算三角形面积ts的公式如下:

1 p ? (a ? b ? c) 2 Ts ? p ( p ? a )( p ? b)( p ? c )
l1

l2 S1 l6 l3 S2 l7 S3 l4

l5

分析
1.输入长度l1-l7 2.计算s:=ts(l1,l2,l6)+ts(l6,l3,l7)+ts(l7,l4,l5) 3.输出s

完整的程序
Program area; Var l1,l2,l3,l4,l5,l6,l7,s:real; Function Ts(a,b,c:real):real; Var p:real; Begin l1 P:=(a+b+c)/2; Ts:=sqrt(p*(p-a)*(p-b)*(p-c)); End; Begin Read(l1,l2,l3,l4,l5,l6,l7); S:=ts(l1,l2,l6)+ts(l6,l3,l7)+ts(l7,l4,l5) Write(?area=?,s); End.
l2 S1 l6 l3 S2 l7 S3 l4

l5

编程计算:y=x2+sh(x),其中sh(x)=(ex-e-x)/2

Program ex3(input,output); var x,y:real; function sh(x1:real):real; begin sh:=(exp(x)-exp(-x))/2; end;

Begin write(?input x:?); readln(x); y:=sqr(x) +sh(x); writeln(?y=?,y:10:6); end.

过程Procedure
过程的定义 过程定义的格式如下: PROCEDURE 过程名(形式参数); VAR 过程的变量说明; BEGIN 过程体 END;

过程定义及调用范例
Program mypro;

PROCEDURE print; var i,j:integer; begin for i:=1 to 4 do begin for j:=1 to 5 do write('*'); writeln; end; end;
Begin Print; End.

任意输入10个三角形的三边,用过程把其面积求出。
PROGRAM e5; VAR a,b,c,s:real; i:integer; PROCEDURE area(a1,a2,a3:real); var s1,d:real; begin d:=(a1+a2+a3)/2; s1:=Sqrt(d*(d-a1)*(d-a2)*(d-a3)); writeln('s=',s1); end; BEGIN for i:=1 to 10 do begin writeln('input a,b,c'); readln(a,b,c); if(a+b<=c) or (a+c<=b) or (b+c<=a)then writeln('data error!') else area(a,b,c); end; END.

形式参数—值形 参

传 值

实在参数

求1!+2!+3!+...+10!=?
PROGRAM e9; VAR j:integer; s,m:longint; PROCEDURE js(n:integer; var m:longint); var i:integer; begin m:=1; 传 for i:=1 to n do m:=m*i; end;

形式参数—变形 参



BEGIN s:=0; for j:=1 to 10 do begin js(j,m); s:=s+m; end; writeln('s=',s); END.

传 地 址
实在参数

求数字的乘积根。一个正整数的数字乘积N的定义是:这个整数中非零数 字的乘积。例:999的数字乘积为9*9*9=729,729的数字乘积为 7*2*9=126,126的数字积为1*2*6=12,12的数字积为1*2=2。一个正整 数的数字乘积根M是这样得到的:反得取该整数的数字乘积,直到得到一 位数字为止。例如999的乘积根为2。
编程,输入一个正整数,长度不超过200位,输出计算其数字乘积根的每一 步结果

Program ex7(input,output); var st,sst:string; Procedure init; begin writeln(?input st:?);readln(st); end;

Procedure make(ss:string);var sst:string); var a,b:array[1..200] of integer; x,i,j,code:integer; w:string; begin fillchar(a,sizeof(a),0); for i:=1 to length(ss) do val(ss[i],a[i],code); fillchar(b,sizeof(b),0); x:=1 ;b[1]:=1; for i:=1 to length(ss) do begin for j:=1 to x do if a[i]<>0 then b[j]:=b[j]*a[i]; for j:=1 to x do begin b[j+1]:=b[j+1]+b[j] div 10; b[j]:=b[j] mod 10; end; if b[x+1] > 0 then x:=x+1; end; Sst:=? ?; for i:=x downto 1 do begin str(b[i],w);sst:=sst +w; end; end;

Begin {====main===) init; while length(st)>1 do begin make(st;sst); writeln(sst); st:=sst; end; readln; end.

函数和过程的区别 过程和函数都为子程序,但也有区别: 1. 标识符不同。函数的标识符为FUNCTION,过程为 PROCEDURE。 2. 函数中一般不用变量参数,用函数名直接返回函数 值;而过程如有返回值,则必须用变量参数返回。 3. 函数在定义时一定要进行函数的类型说明,过程则 不进行过程的类型说明。 4. 函数在调用时不能作为一个单独语句使用,而过程 在调用时必须作为单独语句使用。 5. 过程可以只执行一个任务而没有计算的结果,而函 数则必须返回一个计算值。

全程变量与局部变量
PROGRAM e9; VAR j:integer; 全程变量 s,m:longint; PROCEDURE js(n:integer; var m:longint); var i:integer; begin 局部变量 m:=1; for i:=1 to n do m:=m*i; end; BEGIN s:=0; for j:=1 to 10 do begin js(j,m); s:=s+m; end; writeln('s=',s); END.

指出下面程序中的全程变量、局部变量,值参、变参,并写出程序结果: Program ex10(input,output); Var a,b,c:integer; Procedure s( var x:integer , y:integer); Var m,n:integer; Begin m:=x*y; x:=x+1; y:=y+10;m:=x+y; Write(“x=“,x, ”y=“,y ,”m=“,m, “n=“,n); End; Begin a:=3; b:=3; S(a,b); s(a,b); s(a,b); End.

递归调用——在一个函数、过程或概念或数据结构
中,如果在其定义或说明内部又直接或间接的出有定义本身 的引用,则称之为递归。 n! = 1 n * (n-1)! n=0 n>0

Program 2 var Number,fact:longint; function f(n :integer):longint; begin if n<0 then writeln(?error?) else if n = 0 then f := 1 else f := n * f(n-1) end; begin (*main*) readln(number); fact :=f(number) writeln(?the number is?,number:3,?the fact is?,fact:3) end.

汉诺塔游戏

a b c 1 2 3 move(n,a,b,c)----move(n-1,a,c,b) a----c move(n-1,b,a,c)

Program hanoi var total :integer; procedure move (n,a,b,c :integer); begin if n = 1 then writeln(a,?—?c) else begin move(n-1,a,c,b); writeln(a,?---?c); move(n-1,b,a,c) end end; begin read(total); move(total,1,2,3) end.

集合
一.集合的定义: type 类型名=set of 基类型 例如: type num = set of char; var n : num; 或 var n: set of char;
二.集合的表示: 用一组方括号括号一组元素来表示,元素之间用逗号 分隔。如: [A,B,C,D]--有四个枚举量的集合 [?A?,?B?,?C?,?D?]--有四个字符的集合 [1..20]--包含了1到20中所有整数的集合 [0]--只有一个元素0的单元素集 [ ]--空集 [A,C,D] 是[A,B,C,D]的一个子集

二.集合的运算:
(1)赋值(:=): N:=['A'..'C']; (2)并(+): [0..7]+[0..4]的值为[0..7] (3)交(*): [0..7]*[0..4]的值为[0..4] (4)差(-): [0..7]-[0..4]的值为[5..7] (5)相等(=): [0..7]=[0..4]的值为false (6)不等(<>): [0..7]<>[0..4]的值为true (7)包含于(<=): [0..7]<=[0..4]的值为false (8)包含(>=): [0..7]>=[0..4]的值为true (9)成员存在于 (in): 1 in [0..4]的值为true

数学表示方法

并: ∪ A∪B 交: ∩ A∩ B 差: - A-B 相等: = A=B 不等于: ≠ A≠ B 包含于: A B 包含: B A 属于: ∈ A∈N
∪ ∪





记录
一.记录的定义: 二.记录的运用: type 类型标识符=record 1.对记录中和个域的引用,要写出记 字段名1:类型1; 录名和域名,如:student.num 字段名2:类型2; 域 2.开域语句:with。 表 ... with 记录名 do 语句; 字段名n:类型n; 或 end; with 记录名1,记录名2,... do 如: 语句; type 注意: studata=record (1) 在do后面语句中使用的记录 num:string[6]; 的域时,只要简单地写出域名就可以了, name:string[8]; 域名前的记录变量和"."均可省略。 sex:boolean; (2) 在关键字with后面,语句可 s:array[1..5] of real; 以是一个简单语句,了可以是一个复合语 end; 句。 var (3) 虽然在with后可以有多个记 student:studata; 录变量名,但一般在with后只使用一个记 students:array[1..10] of studata; 录变量名。

例编一程序,用来记录20个学生的姓名、年级、班级、性别、语文成绩、数学成绩、 总分,平均分。 Program exam3 Type student=record Name:string; Grade,class,chinese,mathe,sum:integer; Average:real; Male:char; End; Var s:array[1..20] of student; i ,j:integer; Begin For i :=1 to 20 do begin
Write(?please input the student?s name,grade,class,male,chinese,mathe);

Readln(s[i].name); Readln(s[i].grade); Readln(s[i].class); Readln(s[i].male); Readln(s[i].chinese); Readln(s[i].mathe); S[i].sum:=s[i].chinese+s[i].mathe; S[i].average:=s[i].sum/2 End; … {如果程序要求打印或排序,只需在此增加这些功能语句} end.

例编一程序,用来记录20个学生的姓名、年级、班级、性别、语文成绩、数学成绩、 总分,平均分。 Program exam3 Type student=record Name:string; Grade,class,chinese,mathe,sum:integer; Average:real; Male:char; End; Var s:array[1..20] of student; i ,j:integer; Begin For i :=1 to 20 do begin
Write(?input the student?s name,grade,class,male,chinese,mathe);

with s[i] do begin Readln(name); Readln(grade); Readln(class); Readln(male); Readln(chinese); Readln(mathe); sum:=chinese+mathe; average:=sum/2 End; … {如果程序要求打印或排序,只需在此增加这些功能语句} end.

例编一程序,用来记录n个学生的姓名、出生年月、学号、性别、语文成绩、 成绩、平均分。

Program exam4 const n = 5;m=3 Type date = record day : 1..31; month : 1..12 year : 1960..1999 end; Studata = record num:packed array[1..6] of char; name:packed array[1..15] of char; birth:date; sex : char s: array[1..m] of real ; ave : real end; sarr = array[1..n] of studata Var stu : sarr

读入数据放入stu数组
Procedure readin(var stu:sarr) var k,i: interger; a:studata; begin Writeln(?input num ,name,day,month,year,sex,s[1],s[2],s[3]:?); for k:= 1 to n do begin with a,birth do begin read(num,name,day,month,year,sex); for i:= 1 to M do read(s[i]); readln; end; stu[k]:= a end end;

求平均分
Procedure average(var stu:sarr) var j,i: interger; t:real; begin for k:= 1 to n do begin t:= 0 with stu[i] do begin for j:= 1 to M do t:= t+s[ j ]; ave:=t/m end end end;

输出学生记录
Procedure printtable(var stu:sarr) var k,i: interger; begin for j:= 1 to n do with stu[ j ], birth do begin write(num:7,name:16,day:3,month:3,year:5,sex:3); for i:= 1 to M do write(s[i]:5:1); writeln(ave:6:1) end end;

Begin (*main*) readin(stu); average(stu); printtable(stu) end

记录变体
type type studata2=record studata1=record num:string[6]; num:string[6]; name:string[8]; name:string[8]; case sex:char of sex:char; ?M?:( vision:boolean) vision:boolean ; ?F?:( high,weight:real); high,weight:real end; end; var var student:studata2; student:studata1; students:array[1..10] of studata1; students:array[1..10] of studata2

文件
( file类型文件) 随机文件 按数据的二进制代码形式存放时的文件称为file类型文 件。如果再按照组成类型文件的元素数据结构分,又可以分 为有类型文件和无类型文件。其定义为: type 类型名=file of 基类型(元素类型);{有类型文件} 类型名=file; {无类型文件} 例如:var f:file of integer; 说明f为名的变量对应文件将用于存放整数。 var g:file; 说明g为名的变量对应文件的数据无任何规定。
变量的使用是系统在内存中为其开辟一个区域,而文件的元素则 是在磁盘上.要访问某个名字的磁盘文件之前,要把文件变量与要访 问的文件名联系起来,过程Assign实现这一过程.如: Assign(f,d:\tsw\pascal\wen.dat) 执行这一过程后,在程序的以后语句中,凡是出现f这一变量,都认为是 在d:\tsw\pascal\wen.dat文件中,直到该文件被关闭.

Turbo Pascal有关类型文件的函数和过程 (1)assign过程 形式:assign(f,str); 功能:将文件名字符串str赋给文件变量f,程序对文件变量f的操作代替对 文件str的操作。 (2)rewrite过程 形式:rewrite(f); 功能:建立并打开一个新的允许写磁盘文件,其文件名必须先由assign过 程赋给变量f。这时,指向文件元素的指针指向第一个元素,rewrite过程所建 立的文件为空文件。 (3)reset过程 形式:reset(f); 功能:打开一个已经存在的磁盘文件,其文件名必须先由assign过程赋给 变量f,该文件只能读,指向文件元素的指针指向第一个元素。 (4)read过程 形式:read(f,var表); 功能:从磁盘文件f中,将数据依次读到var表表示的各个变量中。 (5)write过程 形式:write(f,var表); 功能:将var表所表示的各个变量的值依次写到磁盘文件 f上。

(6)close过程 形式:close(f); 功能:关闭和f关联的磁盘文件,在写操作时自动产生一个文件结束标志。 (7)seek过程 形式:seek(f,n); 功能:把文件指针移到f指明文件的第n个元素。 (8)eof函数 形式:eof(f); 功能:若文件指向文件尾,则返回true,否则返回false。 对有类型文件的写操作步骤为: assign(f,str); rewrite(f); write(f,var表); close(f); 对有类型文件的读操作步骤为: assign(f,str); reset(f); read(f,var表); close(f);

文件
text类型文件 按数据的AscⅡ代码(即字符形式) 存放时的文件称为text类型文 件。定义使用: var 类型名: text;
Program(input,output); var x,y: integer; begin x:=10;y:= 54; writeln(x:6,y:6); writeln(2*x:6,y:6) end. 10 20 54 108 Program(fdat,output); var fdat:text; x,y: integer; begin rewrite(fdat); x:=10;y:= 54; writeln(fdat,x:6,y:6); writeln(fdat,2*x:6,y:6) end. 程序首部的参数表中写明 文件名 在说明部分说明为text类型 对文件输出数据之前,用 rewrite( )语句打开文件 在输出语句中,在输出项表 前指定文件名

可用TYPE命令在屏幕上显示fdat.dat文件的内容. 10 54 20 108

文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有: (1)readln过程 形式:readln(f,var表);或readln(f); 功能:从磁盘文件f中,将数据依次读到var表表示的各变量中(其中readln(f)只 读数据),并将文件指针移到行结束符后,就是下一行开头。 (2)writeln过程 形式:writeln(f,var表)或writeln(f); 功能:将var表所表示的各个变量的值依次写到磁盘文件f上去(writeln(f)不 写值),然后再写一个行结束符。 (3)append过程 形式:append(f); 功能:打开一个已经存在的磁盘文件,其文件名必须和assign过程中的变量 名f相对应,该文件只能写,此时文件指针指向文件尾。

(4)eoln函数 形式:eoln(f); 功能:若文件指针指向行结束符或文件结束符,则返回true,否则返 回false。 对文本文件的写操作步骤: assign(f,str); rewrite(f); 或append(f); write(f,var表);或writeln(f); close(f); 对文本文件的读操作步骤: assign(f,str); reset(f); readln(f,var表);或readln(f); close(f);

文件、统计管理 编写一个建立学生基本情况的直接存取文件,并能根据学生编号检索其 基本情况的程序。【xoi0015.pas,演示程序:DEM00_06.rar】 学生基本情况存储在记录student内,他有编号、姓名、性别、年龄和五 门课成绩五个域。采用直接存取方式利用seek过程存贮记录数,由于学生 编号从10001-29999,因此,记录数为编号数减10000。为了确定检索已结 束,最后的编号为65535。如果根据编号已检索到该生,这输出其基本情况, 如果检索不到,程序中自动将编号加1,重复检索,直到编号65535,仍未 检索到则表示没有该生的记录,可以继续检索其它学生的基本情况。

(1)算法: a.定义一个记录文件 TYPE student=RECORD number:word; {lstring,IBM Pascal提供的高级数组类 name:lstring(10) ; 型:L串。 name为可变字符串,其可变 sex:lstring(6); 字符长度为10} age:integer; grades:array[1..5] of real end; VAR i:integer; total,avg:real; n,m:word; answer,c:char; buf:student; sfile:file of student; t:boolean;

b.建立一个记录文件并输入记录 assign(sfile,'student.bat'); sfile.mode:=DIRECT; rewrite(sfile); answer:=' '; while (answer<>'.') do begin write('Enter student number(10001-29999) '); write('name,sex(f-m),age..'); with buf do begin readln(number);readln(name); readln(sex);readln(age); writeln('sc1,sc2,sc3,sc4,sc5 '); for i:=1 to 5 do readln(grades[i]); seek(sfile.number-10000) end; write(sfile,buf); writeln('type''''.'''' to end'); readln(answer) end; seek(sfile,buf.number+1-10000); buf.number:=65535; write(sfile,buf); close(sfile);

c.根据输入的学生编号检索学生的基本情况 sfile.mode:=direct; reset(sfile); t:=false; write('Enter students number(10001-29999)..'); readln(n);m:=n; writeln(' grades report'); write('number':6,'name':10); write('age':4,'sex':4,' '); write('total':5,'1':5,'7':5); write('3':5,'4':5,'5':5 '); writeln('avg':5); while not t do begin seek(sfile,m-10000); get(sfile);buf:=sfile^; with buf do begin

if number=65535 then begin writeln('not found this student '); t:=true end else if number=n then begin t:=true; total:=0; for i:=1 to 5 do total:=total+grades[i]; avg:=total/5; write(number:6,name:10,age:4,' '); write(sex:4,' ',total:5:1,' '); for i:=1 to 5 do write(' ',grades[i]:4:1); writeln(' ',avg:4:1,' ') end else begin t:=true; writeln('not found'); m:=m+1 end end end;

指针类型与动态数据结构
1、指针类型属于静态的简单类型,但和整型、实型、字符型这 些简单类型不同。首先整型、实型、字符型的变量单元中存放的 是相应类型的数据,而指针类型变量单元中存放的是某种类型变 量单元的地址,通过该地址可以找到这种类型的数据,所以称它 是一个指针,而这种数据就是动态数据;其次整型、实型、字符 型等类型都有规定的标准标识符integer、real、char等与之对 应,而指针类型则没有相应的标准标识符。这是因为在动态数据 产生的过程中,程序员关心的是指针指向一个什么类型的数据。 所以,在Pascal程序说明部分定义指针类型时必须给出该指针 类型变量所指向的数据类型,即该指针类型标识何种类型的变量。

2、指针类型的定义: Type 指针类型名= ^ 基类型名; 例:type pointer = ^ integer; var p0,p1,p2 : pointer; 或:var p0,p1,p2 :^ interger;

指针类型与动态数据结构
3、开辟和释放动态存储单元
a 开辟动态存储单元必须调用NEW( )过程.
type pointer = ^ integer; qqt=^real; var p1 : pointer; q1: qqt; 这时只说明了p1是指示整型存储单元的指针变量,q1是指示实型存 储单元的指针变量,但这时这几个单元并不存在,指针也没有具体的地 址值,所以必须调用new( )过程:new(p1):系统动态地产生整型变量单 元,即动态地给一个整型变量分配内存单元,并将该单元的地址放入p1 单元中。该整型变量单元命名为p1^,表明通过p1指针可访问这个单元 的整型数据。new(q1):系统动态地产生实型变量单元,即动态地给一 个实型变量分配内存单元,并将该单元地址放入q1单元中。该实型变量 单元命名为q 1^,表明通过q1指针可访问这个单元的实型数据。

b

释放动态存储单元必须调用dispose( )过程.

4、动态存储单元的引用:指针变量名^
例:P1^ :=4 i := P1^ P1 := i ( × )

5、对指针变量的操作 a 具有同一基类型的指针变量之间可相互赋值。 b 可以给指针变量赋空值(nil) c 可以对指针变量进行关系运算

例:PROGRAM EX00(OUTPUT); TYPE pint=^integer; pre=^real; VAR p:pint; q:pre; BEGIN NEW(p); p^ :=3; NEW(q); q^ :=4.5; q^:=q^* p^; WRITELN(q^); DISPOSE(p);DISPOSE(q) END.

例:PROGRAM EX11(OUTPUT); TYPE rec=record a: integer; b:char end; pint=^integer; pre=^real; VAR p1,p2:^rec; BEGIN NEW(p1);new(p2); p1^.a :=32;p1^.b:=?A?; p2^.a :=p1^.a+1;p2^.b:=succ(p1^.b); WRITELN(p2^.a); WRITELN(p2^.b); DISPOSE(p1);DISPOSE(p2) END.

指针类型与动态数据结构
指针类型变量所指向的数据类型可以是整型,实型, 字符型等简单类型,也可以是数组、集合、记录等结构类 型。推而广之就有了链表、树结构等的产生及其应用 例如:下面就是一个简单链表结构的示意图
1382 head 1382 12 1296 1296 34 2089 2089 6666 2221 55 nil

56
6666

65
2221

PROGRAM EX01(INPUT,OUTPUT); TYPE Lp=^Litem; Litem=RECORD int:integer; next:Lp END; VAR head:Lp; n:integer;

procedure creat(var h :Lp;var n:integer); var p,q:Lp;
BEGIN n:=0 ;NEW(p);h:=p; q:=p READLN(P^.int); WHILE P^.int <> 9999 DO BEGIN n:=n+1; if n=1 then h:=p else q^.next:=p q:=p; new(P);READLN( P^.int ) END; q^.next:=nil

procedure print(h :Lp); var p:Lp; begin p:=h; if h <>nil then repeat writeln(p^.int); p:=p^.next until p=nil; writeln END;

Begin creat(head,n); print(head); end

end;


相关文章:
信息学pascal语言校本教材
信息学pascal语言校本教材_英语学习_外语学习_教育专区。什么是 Turbo Pascal 1968...PROGRAM 程序名(input,output); {……} 解释 CONST pi=3.14159; VAR r,l...
信息学pascal语言程序设计教案1
信息学pascal语言程序设计教案1_学科竞赛_高中教育_教育专区。信息学奥赛教程授课...(二)说明和语句 1、保留字 2、标识符 标准标识符 自定义标识符 3、常量 ...
信息学pascal语言程序设计教案2
信息学pascal语言程序设计教案2_学科竞赛_高中教育_教育专区。信息学 奥赛授课...例 3.7 一、输出语句格式 利用计算机解题,最终要把程序的运行结果通过屏幕或...
PASCAL语言程序设计
Pascal 语言信息学奥赛中普遍使用的程序设计语言。 1 / 53 第一节 程序的...<常量标识符>=<常量>; 例如: const pi=3.141592; //此种方式定义的常量...
信息技术活动课《PASCAL语言程序设计》教学计划
PASCAL语言程序设计》教学计划_其它课程_小学教育_...3、培养学生对信息技术的兴趣。 4、提高学生的信息...“学”字(为学生服务);教学过程突出一个 “难”...
信息学奥林匹克竞赛辅导Pascal语言
程序的表示 数据结构的类型 程序设计基本知识 程序设计 基本算法处理 信息学奥林匹克竞赛辅导 Pascal 语言 淮北一中 秦护矿 第3页 二、复赛内容与要求: 在初赛的...
Pascal语言和程序设计基础 一
Pascal语言和程序设计基础 32页 2财富值 小学信息学竞赛试题_PASCA... 6页 免费...((3=3) or (3<7)) 第一节 顺序结构 操作一 操作二 顺序结构是程序设计...
《Pascal语言》课程教学大纲
语言的特点及结构化程序设计的基本知识 第三章 Pascal 程序的基本知识(2 学时...第 3 页共 5 页 本章要点:掌握值真类型定义、指针变量的说明方法和指针变量...
信息技术活动课《PASCAL语言程序设计》教学计划
信息技术活动课《PASCAL语言程序设计》教学计划_其它课程_高中教育_教育专区。莱西...信息学pascal语言程序设... 暂无评价 3页 1下载券 信息学奥赛--Pascal语言....
Pascal语言教案
信息学奥林匹克竞赛是一项益智性的竞赛活动,核心是考...3、能适用于数值运算和非数值运算领域。有些语言(...由于以上特点, 许多学校PASCAL 作为程序设计课程...
更多相关标签:
pascal语言程序设计 | c语言程序设计教材 | 高级语言程序设计教材 | pascal语言 | pascal语言视频教程 | pascal语言教程 | pascal语言教程整理版 | pascal和c语言 |