简明pascal教程（求pascal txt教程）

本文目录

• 求pascal txt教程
• 求Free Pascal IDE基本教程 要教程 所有的
• Pascal 详解“指针类型“
• pascal排列组合教程
• pascal递归教程

求pascal txt教程

定义：var 文件变量名:text;
关联assign(文件变量名,’路径和文件名’);《路径缺省的话默认在制定目录下》
重写或创建：rewrite(文件变量名);
阅读方式打开：reset(文件变量名);
在原文件的基础上向后添加：append(文件变量名);
关闭文件:close(文件变量名);
输入：read/readln (文件变量名,《需要读取的数据,同键盘输入》);
输出：write/writeln (文件变量名,《需要输出的数据，同屏幕输出》);
用完文件后一定要关闭，不然可能没有输出。

求Free Pascal IDE基本教程 要教程 所有的

(1)进入与退出(注意:退出时必须使用文件菜单中的退出命令或Alt+X) (2)程序 光标移动键的使用 Backspace键:删除光标前一个字符 Ctrl+N:在光标前插入一行 Ctrl+Y:删除光标所在行 Home:光标移到行首 End:光标移到行尾 PageUp/PageDown:上下翻页 Insert:插入与改写状态切换 (3)编译程序(Compile):Alt+F9 (4)运行程序(Run):Ctrl+F9 (5)保存程序(Save):F2 (6)打开原有的程序:F3 (7)查看程序运行结果:Alt+F5 (8)EXIT 返回(9) program lt1;{程序首部} var {说明部分} a,b:integer; sum:integer; begin {执行部分} a:=3355; b:=789; sum:=a+b; writeln(’sum=’,sum); end.(10) 1.3 完整的Pascal程序结构一个完全的Pascal程序结构program 程序名；uses　　　已知单元说明；label 　　标号说明；const 　　常量说明；type 　　类型说明；var 　　变量说明；function　函数说明；procedure 过程说明；begin　语句；　语句；　……　语句;end. 　(11) round　　　　实型　　　四舍五入　　　　　　longint
　　trunc　　　　实型　　　截断取整　　　　　　longint (12) 运算符　　运算　　运算对象　　　　　　　结果类型
　　+　　　　加　　整型、实型　　只要有一个运算对象是实型，结果就
　　-　　　　减　　整型、实型　　是实型，如果全部的运算对象都是整
　　*　　　　乘　　整型、实型　　型并且运算不是除法，则结果为整型，
　　/　　　　除　　整型、实型　　若运算是除法，则结果是实型。
　　div　　整除　　整型　　　　　　　　　整型
　　mod　　取余　　整型　　　　　　　　　整型(13) ⑴ 当程序开始把数据输出（写）到文件中去时，总是从文件的起始位置开始。也就是说不可能从文件 的中间位置开始存放数据。 ⑵ 输出的数据是一个接一个地存放在文件中的。 ⑶ 当程序从文件中输入（读取）数据到内存时，也总是从文件的起始位置开始。也就是说不可能从文 件的中间位置开始读取数据。 ⑷ 读数据时，也必须按存入文件时的顺序一个接一个的读入到内存中。 ⑸ 对同一个文件的读写操作不能交叉进行。即不能在读取文件的同时往文件里写，也不能在写入文件 的同时从文件里读。 (13) 1.适合于所有文件类型的标准过程和函数 表 9.1 适合于所有文件类型的标准过程和函数 名 字 过程或函数 基 本 功 能 assign 过 程 将一个外部文件名赋予文件变量 close 过 程 关闭一个已打开的文件 eof 函 数 返回文件结束状态 erase 过 程 删除一个外部文件 rename 过 程 重新命名一个外部文件名 reset 过 程 打开一个已存在的文件 rewrite 过 程 建立并打开一个新文件 2.只适合于文本文件的标准过程和函数 表 9.2 只适合文本文件的标准过程和函数 名 字 过程或函数 基 本 功 能 append 过 程 打开一个已存在的文件，从尾部增添元素 eoln 函 数 返回文件的行结束状态 read 过 程 从文本文件中读取一个或多个值赋予相应的变量 readln 过 程 执行 read过程，然后跳到文件的下一行 write 过 程 将一个或多个值写入文本文件 writeln 过 程 执行 write 过程，然后写入一个行结束标志 3.只适合于类型文件的标准过程和函数 表 9.3 只适合类型文件的标准过程和函数 名 字 过程或函数 基 本 功 能 read 过 程 从类型文件中读取一个或多个值赋予相应的变量 write 过 程 将一个或多个值写入类型文件中 filepos 函 数 返回指定文件的当前文件位置 filesize 函 数 返回文件的当前长度，即文件中元素的个数 seek 过 程 将文件指针移到指定的位置(14) 在 Turbo Pascal 系统中，对于整型字符串的输出都是按数据本身长度输出，对于布尔型数据（只有 True和 False 两种值），TRUE 为 4 列，FALSE 为 5列，一律采用大写输出。而 real 型数据的输出时，则按 17列输出，其中第一列为符号位，正号不显示，后四位为 “E±nn”， 中间的 12列为尾数部分。如： writeln(sqrt(75)); 则输出□8.6602540379E+00。(15) ⑴指定单场宽. 格式：write(表达式 :N)或 writeln(表达式:N),其中 N 为 自然数，指定单场宽后，所有数据不再按标 准场宽输出，而按指定场宽输出。若数据实际长度小于指定场宽时，则一律“向右靠齐，左留空格”。 如 write(1234:8);write(’abcdef’:12); 输出结果 : □□□□1234□□□□□□abcdef 对于标准实型数据指定单场宽时，如果场宽大于标准场宽时，右靠齐按标准场宽格式输出 17位，左 留空格。若场宽小于标准场宽时，第一位仍为符号位，最后四位仍为 “E±nn”，中间部分为尾数显示部分。 如果指定的宽度小于 8位，则数据按 8位格式 “*.*E±nn ”输出。 ⑵指定双场宽 如果输出项是实数时，如果希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场 宽方法输出。 双场宽输出格式为：write(实型表达式：m：n)，其中 m 和 n 都是 自然数，m 用以指定整个数据所 占 的宽度,n指定输出实数的小数位数。 如 : write(sqrt(75):9:4); 输出 :□□□8.6602 如果双场宽不能满足输出数据的最低要求, 系统 自动突破指定的场宽限制 ，按实际长度输出。 如 :write(sqrt(75):5:4); 要使小数点后有 4位数字，而总场宽为 5，是不可能的(因为还有一个小数点， 小数点前面还有一个数字)。它最低限度要有 6列，即输出为 : 8.6602

Pascal 详解“指针类型“

第十一章 指针类型
11.1 指针
11.2 单链表
11.1 指针
指针是通过地址来访问变量的一种特殊的数据类型，属于动态的数据结构，它可以在需要时产生，用完后则又可以取消或回收，以减少占用的内存空间。指针变量与其他类型的变量不同，它占有的不是数据，而是地址。
由于动态数据结构的变量是在程序执行过程中动态生成的，所以不能预先予以说明，无法预先给这些变量起名字，访问时也无法通过名字直接输出或显示，而只能用指针得到其地址，然后间接访问。
1、定义指针类型
在Turbo Pascal中，指针变量用来存放某个存储单元的地址，即指针变量指向某个存储单元。一个指针变量仅能指向某一种类型的存储单元，这种数据类型是在指针类型的定义中确定的，称为指针类型的基类型。指针类型定义如下：
类型名＝^基类型名；
例如：type q=^integer;
var a,b,c:q;
说明：q是一指向整型存储单元的指针类型，其中"^"为指针符。a,b,c均定义为指针变量，分别可以指向一个整型存储单元。
上例也可用变量说明为：
var a,b,c:^integer;
指针也可以指向有结构的存储单元。
例如：type person=record
name:string;
sex:(male,female);
age:20..70
end;
var pt:^person;
pt为指向记录类型person的指针变量。
2、动态变量
应用一个指针指向的动态存储单元即动态变量的形式如下：
指针变量名^
例如：p^、q^、r^
指针变量p和它所指向的动态变量p^之间有如下关系：
以下语句把整数5存放到p所指向的动态变量p^中去：
p^:=5;
以下语句把p所指向的p^中的值赋给整型变量i：
i:=p^;
如果指针变量p并未指向任何存储单元，则可用下列赋值语句：
p:=nil;
其中nil是保留字，表示“空”，相当于C语言里面的null
3、对动态变量的操作
在Turob Pascal程序中，动态变量不能由var直接定义而是通过调用标准过程new建立的。过程形式为：
new(指针变量名);
如果有下列变量定义语句：
var p:^integer;
仅仅说明了p是一个指向整型变量单元的指针变量，但这个整型单元并不存在，在指针变量p中还没有具体的地址值。在程序中必须通过过程调用语句：new(p);才在内存中分配了一个整型变量单元，并把这个单元的地址放在变量p中，一个指针变量只能存放一个地址。在同一时间内一个指针只能指向一个变量单元。当程序再次执行new(p)时，又在内存中新建立了一个整型变量单元，并把新单元的地址存放在p中，从而丢失了旧的变量单元的地址。
为了节省内存空间，对于一些已经不使用的现有动态变量，应该使用标准过程dispose予以释放。过程形式为：dispose(指针变量名)；为new(指针变量名)的逆过程，其作用是释放由指针变量所指向的动态变量的存储单元。例如在用了new(p)后在调用dispose(p)，则指针p所指向的动态变量被撤销，内存空间还给系统，这时p的值为 nil。
4．需要注意之处
1、P与P^的区别
P是指向该动态变量的指针变量名，P^则称为动态变量或标志变量。P的值是P^的首地址，P^的值为与基类型相同的一个值。
2、定义后及时分配存储单元
定义了一个指针变量后，并没有为该指针分配动态存储单元，此时的P的值无定义，调用P^则会产生运行错误。若想使该指针可用，可以对指针赋值，也可以通过NEW（）过程分配存储单元。
3、使用后及时收回存储单元
指针使用后，不会自动归还占用的存储空间，应及时使用DISPOSE（）过程来释放P^所占用的存储单元，以免浪费有限的存储空间．
11.2 单链表
单链表的数据类型可定义如下：
type dlb=^node;
node=record
data:datatype;
next:dlb;
end;
例1 连续输入一序列整数,组成链表（并以动态的形式把它们记录下来）,当输入的数为-1时,停止输入,然后把输入的整数按相反的顺序输出.
program lianbiao;
type link=^data;
data=record
num:integer;
next:link;
end;
var p,q:link;
i:integer;
begin
q:=nil;
readln(i);
while i《》-1 do
begin
new(p);
with p^ do
begin
num:=i;
next:=q;
end;
q:=p;
readln(i);
end;
while p《》nil do
begin
write(p^.num:6);
p:=p^.next;
end;
readln;
end.
练习:将例1中如果数据不按现反的顺序(按输入时的顺序)输出时,怎样建表.(程序)
上述建表方式其实就是分别从表头和表尾插入元素,下面是从表中插入元素;
例2:输入若干整数（输入32767停止输入）排序（小到大）输出之。
program lianbiao;
type link=^data;
data=record
num:integer;
next:link;
end;
var head,p,q,r:link;
i:integer;
begin
head:=nil;
readln(i);
while i《》32767 do
begin
new(p);
p^.num:=i;
p^.next:=nil;
if head=nil then begin head:=p;end
else
begin
q:=head;
if p^.num《q^.num then begin head:=p;p^.next:=q end else
begin
while (p^.num 》=q^.num) and (q《》nil) do begin r:=q ;q:=q^.next;end;
if q=nil then r^.next:=p else begin r^.next:=p;p^.next:=q end
end;
end;
readln(i);
end;
p:=head;
while p《》nil do
begin
write(p^.num:6);
p:=p^.next;
end;
readln;
end.

pascal排列组合教程

排列与组合
3.1加法原理与乘法原理
1.加法原理：
做一件事情，完成它可以有n类办法，在第一类办法中有m1 种不同的方法，在第二类办法中有 m2种不同的方法，……，在第n类办法中有 mn种不同的方法。那么完成这件事共有 N= m1+m2+...+mn 种不同的方法。
2.乘法原理：
做一件事情，完成它需要分成n个步骤，做第一步有m1 种不同的方法，做第二步有 m2种不同的方法，……，做第n步有 种mn不同的方法，那么完成这件事有 N=m1*m2*...*mn 种不同的方法。
3.两个原理的区别：一个与分类有关，一个与分步有关；加法原理是“分类完成”，乘法原理是“分步完成”。
练习：
1.由数字1，2，3，4，5可以组成多少个三位数（各位上的数字允许重复）？
② 2.由数字0、1，2，3，4，5可以组成多少个三位数（各位上的数字允许重复）？
③ 3.由数字0，1，2，3，4，5可以组成多少个十位数字大于个位数字的两位数？
例 4. 一个三位密码锁,各位上数字由0,1,2,3,4,5,6,7,8,9十个数字组成,可以设置多少种三位数的密码(各位上的数字允许重复)？首位数字不为0的密码数是多少种？首位数字是0的密码数又是多少种？
5.如图，要给地图A、B、C、D四个区域分别涂上3种不同颜色中的某一种，允许同一种颜色使用多次，但相邻区域必须涂不同的颜色，不同的涂色方案有多少种？
6.某班有22名女生，23名男生.
① 选一位学生代表班级去领奖，有几种不同选法？
② 选出男学生与女学生各一名去参加智力竞赛，有几种不同的选法？
7.105有多少个约数？并将这些约数写出来.
8.从5幅不同的国画、2幅不同的油画、7幅不同的水彩画中选不同画种的两幅画布置房间，有几种选法？
9.若x、y可以取1，2，3，4，5中的任一个，则点(x,y)的不同个数有多少？
10.一个口袋内装有5个小球另一个口袋内装有4个小球，所有这些小球的颜色各不相同① 从两个口袋内任取一个小球，有 种不同的取法；
11.从两个口袋内各取一个小球，有 种不同的取法.
12.乘积（a1+a2+a3）(b1+b2+b3+b4)(c1+c2+c3+c4+c5)展开共有 个项。
13.有四位考生安排在5个考场参加考试.有 种不同的安排方法。
(答案:125；180；15；1000，900，100；6；45，506；8；59；25；9；20；60；625）
3. 2 排列与组合的概念与计算公式
1．排列及计算公式
从n个不同元素中，任取m(m≤n)个元素按照一定的顺序排成一列，叫做从n个不同元素中取出m个元素的一个排列；从n个不同元素中取出m(m≤n)个元素的所有排列的个数，叫做从n个不同元素中取出m个元素的排列数，用符号 p(n,m)表示.
p(n,m)=n(n-1)(n-2)……(n-m+1)= n!/(n-m)!(规定0!=1).
2．组合及计算公式
从n个不同元素中，任取m(m≤n)个元素并成一组，叫做从n个不同元素中取出m个元素的一个组合；从n个不同元素中取出m(m≤n)个元素的所有组合的个数，叫做从n个不同元素中取出m个元素的组合数.用符号
c(n,m) 表示.
c(n,m)=p(n,m)/m!=n!/((n-m)!*m!)；c(n,m)=c(n,n-m);
3．其他排列与组合公式
从n个元素中取出r个元素的循环排列数＝p(n,r)/r=n!/r(n-r)!.
n个元素被分成k类，每类的个数分别是n1,n2,...nk这n个元素的全排列数为
n!/(n1!*n2!*...*nk!).
k类元素,每类的个数无限,从中取出m个元素的组合数为c(m+k-1,m).
练习：
1．（1）用0，1，2，3，4组合多少无重复数字的四位数？（96）
（2）这四位数中能被4整除的数有多少个？（30）
（3）这四位数中能被3整除的数有多少个？（36）
2．用0，1，2，3，4五个数字组成无重复数字的五位数从小到大依次排列.
（1） 第49个数是多少？（30124）
（2） 23140是第几个数？（40）
3．求下列不同的排法种数：
（1） 6男2女排成一排，2女相邻；(p(7,7)*p(2,2))
（2） 6男2女排成一排，2女不能相邻；(p(6,6)*p(7,2))
（3） 5男3女排成一排，3女都不能相邻;(p(5.5)*p(6,3))
（4） 4男4女排成一排，同性者相邻；(p(4,4)*p(4,4)*p(2,2))
（5） 4男4女排成一排，同性者不能相邻。(p(4,4)*p(4,4)*p(2,2))
4．有四位医生、六位护士、五所学校。
(1) 若要选派三位医生到五所学校之中的三所学校举办健康教育讲座，每所学校去一位医生有多少种不同的选派方法？(c(5,3)*p(4,3))
(2) 在医生或护士中任选五人，派到五所学校进行健康情况调查，每校去且仅去一人，有多少种不同的选派方法？(p(10,5))
(3) 组成三个体检小组，每组一名医生、两名护士，到五所学校中的三所学校为老师体检，有多少种不同的选派方法？(c(5,3)*p(4,3)*c(6,2)*c(4,2)*c(2,2))
5．平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同四边形？(2250)
6．平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同三角形？(751)
7．将N个红球和M个黄球排成一行。例如:N=2,M=2可得到以下6种排法:
红红黄黄 红黄红黄 红黄黄红 黄红红黄 黄红黄红 黄黄红红
问题:当N=4,M=3时有多少种不同排法?(不用列出每种排法)(35)
8.用20个不同颜色的念珠穿成一条项链,能做多少个不同的项链.(20!/20)
9．在单词MISSISSIPPI 中字母的排列数是(11!/(1!*4!*4!*2!)
10．求取自1,2,...k的长为r的非减序列的个数为(c(r+k-1,r))
3.3排列与组合的产生算法
1．排列的产生
方法1：（递归，深度优先产生）
程序如下：
program pailei;
const m=4;
var a:array of integer ;
b:array of boolean;
procedure print;
var i:integer;
begin
for i:=1 to m do
write(a);
writeln;
end;
procedure try(dep:integer);
var i:integer;
begin
for i:=1 to m do
if b then
begin
a:=false;
if dep=m then print else try(dep+1);
b:=true;
end;
end;
begin
fillchar(b,sizeof(b),true);
try(1);
end.
方法2．根据上一个排列产生下一个排列．
程序如下：
program pailei;
const m=5;
var a:array of integer ;
i,j,temp,k,l:integer;
procedure print;
var i:integer;
begin
for i:=1 to m do
write(a);
writeln;
end;
begin
for i:=1 to m do a:=i;
repeat
print;
i:=m-1;
while (i》0) and (a) do i:=i-1;
if i》0 then
begin
j:=m;
while a do j:=j-1;
temp:=a:=temp;
k:=i+1;l:=m;
while k《l do
begin
temp:=a:=temp;
k:=k+1;l:=l-1
end;
end;
until i=0;
end.
2．组合的产生算法
算法1：（递归，深度优先产生）
程序如下：
program zuhe;
const n=6;m=4;
var a:array of integer;
i,j:integer;
procedure print;
var i:integer;
begin
for i:=1 to m do write(a);
writeln;
end;
procedure try(dep:integer);
var i:integer;
begin
for i:=a+1 to n-(m-dep) do
begin
a:=i;
if dep=m then print else try(dep+1);
end
end;
begin
a:=0;
try(1);
end.
算法2：根据前一个组合产生下一个组合
程序如下：
program zuhe;
const n=6;m=4;
var a:array of integer;
i,j:integer;
procedure print;
var i:integer;
begin
for i:=1 to m do write(a);
writeln;
end;
begin
for i:=1 to m do
a:=i;
repeat
print;
i:=m;
while (i》0) and (a=n-(m-i)) do dec(i);
if i》0 then
begin
a+1;
for j:=i+1 to m do a+1;
end;
until i=0;
end.
练习：
1．已知n（1《=n《=20）个整数x1,x2,…,xn（1《=xi《=5000000），以及一个整数k（k《n）。从n个整数中任选k个整数相加，可分别得到一系列的和。现在，要求你计算出和为素数共有多少种。
2．n个部件,每个部件必须经过先A后B两道工序。
以知部件i在A,B 机器上的时间分别为ai，bi。如何安排加工顺序，总加工时间最短？
输入：
5 部件 1 2 3 4 5
ai 3 5 8 7 10
bi 6 2 1 4 9
输出：
34
1 5 4 2 3
我有这个的EXE，讲的东西也还行，这个只是其中的一章，你要要把邮箱留下

pascal递归教程

递归是计算机科学的一个重要概念,递归的方法是程序设计中有效的方法,采用递归编写
程序能是程序变得简洁和清晰.
2.1
递归的概念
1.概念
一个过程(或函数)直接或间接调用自己本身,这种过程(或函数)叫递归过程(或函数).
如:
procedure
a;
begin
.
.
.
a;
.
.
.
end;
这种方式是直接调用.
又如:
procedure
b;
procedure
c;
begin
begin
.
.
.
.
.
.
c;
b;
.
.
.
.
.
.
end;
end;
这种方式是间接调用.
例1计算n!可用递归公式如下:
1
当
n=0
时
fac(n)={n*fac(n-1)
当n》0时
可编写程序如下:
program
fac2;
var
n:integer;
function
fac(n:integer):real;
begin
if
n=0
then
fac:=1
else
fac:=n*fac(n-1)
end;
begin
write(’n=’);readln(n);
writeln(’fac(’,n,’)=’,fac(n):6:0);
end.
例2
楼梯有n阶台阶,上楼可以一步上1阶,也可以一步上2阶,编一程序计算共有多少种不同的走法.
设n阶台阶的走法数为f(n)
显然有
1
n=1
f(n)={2
n=2
f(n-1)+f(n-2)
n》2
可编程序如下:
program
louti;
var
n:integer;
function
f(x:integer):integer;
begin
if
x=1
then
f:=1
else
if
x=2
then
f:=2
else
f:=f(x-1)+f(x-2);
end;
begin
write(’n=’);read(n);
writeln(’f(’,n,’)=’,f(n))
end.
2.2
如何设计递归算法
1.确定递归公式
2.确定边界(终了)条件
练习:
用递归的方法完成下列问题
1.求数组中的最大数
2.1+2+3+...+n
3.求n个整数的积
4.求n个整数的平均值
5.求n个自然数的最大公约数与最小公倍数
6.有一对雌雄兔,每两个月就繁殖雌雄各一对兔子.问n个月后共有多少对兔子?
7.已知:数列1,1,2,4,7,13,24,44,...求数列的第
n项.
2.3典型例题
例3
梵塔问题
如图:已知有三根针分别用1,2,3表示,在一号针中从小放n个盘子,现要求把所有的盘子
从1针全部移到3针,移动规则是:使用2针作为过度针,每次只移动一块盘子,且每根针上
不能出现大盘压小盘.找出移动次数最小的方案.
程序如下:
program
fanta;
var
n: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
write(’Enter
n=’);
read(n);
move(n,1,2,3);
end.
例4
快速排序
快速排序的思想是:先从数据序列中选一个元素,并将序列中所有比该元素小的元素都放到它的右边或左边,再对左右两边分别用同样的方法处之直到每一个待处理的序列的长度为1,
处理结束.
程序如下:
program
kspv;
const
n=7;
type
arr=array
of
integer;
var
a:arr;
i:integer;
procedure
quicksort(var
b:arr;
s,t:integer);
var
i,j,x,t1:integer;
begin
i:=s;j:=t;x:=b;
repeat
while
(b》=x)
and
(j》i)
do
j:=j-1;
if
j》i
then
begin
t1:=b;
b:=t1;end;
while
(b《=x)
and
(i《j)
do
i:=i+1;
if
i《j
then
begin
t1:=b:=t1;
end
until
i=j;
b:=x;
i:=i+1;j:=j-1;
if
s《j
then
quicksort(b,s,j);
if
i《t
then
quicksort(b,i,t);
end;
begin
write(’input
data:’);
for
i:=1
to
n
do
read(a);
writeln;
quicksort(a,1,n);
write(’output
data:’);
for
i:=1
to
n
do
write(a:6);
writeln;
end.
练习:
1.计算ackerman函数值:
n+1
m=0
ack(m,n)={
ack(m-1,1)
m《》0
,n=0
ack(m-1,ack(m,n-1))
m《》0,n《》0
求ack(5,4)