谁能解释PASCAL中的词语的意思？？
div表示整数相除，如果有定义两个变量a和b都是整数类型，那么a/b这样的写是错的，应该用a div b；
mod表示取余数，和其它语言的%是相同的，比如5 mod 3的值为2，因为5除以3商1余2；
var是变量定义的关键字，比如我们要定义一个整数类型的变量a，那么我们应该写var a:integer;
祝你好运！周末愉快！热烈祝贺重庆市直辖10周年！欢迎你到两江汇合处来看烟花！
free pascal 教程
第一章、pascal介绍
一、pascal的基本语法单位
1、基本符号
A——Z；a——z；0——9；+，-，*，/，=，，=，，(，)，[，]，{，}，:=，，，；，.，：，..，'，^
注意：pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。
2、保留字
AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DIWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，LABEL，MOD，NIL，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH。
注意：所起的文件名不能与保留字相同。
3、标识符
以字母打头的字母数字串，长度小于等于8。
标准标识符（共三十九个）：
标准常量：
false,true,maxint
标准类型：
integer,real,char,boolean,text
标准文件：
input,output
标准函数：
abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord,ored,round,sin,sqr,
sqrt,succ,trunc
标准过程：
get,new,pack,page,put,read,readln,reset,rewrite,unpack,write, writeln
二、程序结构
1、由三大部分组成：程序首部，说明部分，语句部分。
PROGRAM 程序名(input,output)；
{……} 解释
CONST
pi=3.14159；
VAR
r,l,s:real;
BEGIN
write('input r:');
read(r);
l:=2*pi*r;
write('l=',l,'s=',s);
END;
2、大量使用标点符号，保留字后不加标点符号（END除外）。
第二章、顺序结构程序设计
一、标准数据类型
1、实型(real)
小数表示法、指数表示法
2、整型(integer)
正、负整数和零
maxint=32767
pred：前导；succ：后继
[例]：pred(3)=2；succ(3)=4；
pred(true)=false；
succ(false)=true
3、字符型(char)
是指在两个单引号中的一个字符。
ord：取序数
[例]：ord('A')=65
4、布尔型(boolean)
false；true
用于布尔型的运算：NOT、AND、OR
ord(true)=1；ord(false)=0
二、常量和变量的定义
常量的定义：CONST
pi=3.14159；
blank=' '；
变量的定义：VAR
r,l,s:read；
cl:char；
三、表达式及赋值语句
[例]：b2-4ac 写成：sqt(b)-4*a*c
赋值：：=
四、输入输出语句
1、输入语句：read()；readln()
注：表达式里面变量与变量之间用逗号隔开；
readln表示下一个语句将从下一行开始操作；
输入时，整型或实型用空格或回车隔开，字符型之间无需分隔，一个接一
个输入。
2、输出语句：write()；writeln()
注：对real或integer限定场宽：write('a=',a:2:0) {a为real型}
第三章、选择结构程序设计
一、if 语句
格式：IF
THEN
ESLE
注：1、ELSE与最近的并且未被配对的ELSE配对；
2、复合，如果THEN或ELSE带有多个语句，则要用BEGIN——END括起来。
二、CASE语句
格式：CASE OF
：
：
……
：
[ELSE]
END
注：1、值表的三种表达方式：“1：”；“2，4，6：”；“10..100：”
2、CHAR，INTEGER，BOOLEAN有序
第四章、循环结构程序设计
一、FOR语句
格式：1、FOR ：= TO DO ；
2、FOR：= DOWNTO DO 。
[例1]：输入10个数，求最大值、最小值、和、及平均值。
PROGRAM ten(input,output);
VAR
a,s,max,min,avg:real;
i:integer;
BEGIN
write('please input:');
read(a);
s:=a;
max:=a;
min:=a;
FOR i:=2 TO 10 DO
BEGIN
read(a);
s:=s+a;
IF a>max THEN
max:=a
ELSE
IF a<min THEN min:=a
END;
avg:=s/i;
writeln(……);
END.
[例2]：求s=1!+2!+3!+……+10!
program sum_fac(input,output);
var
i,j,s,m:integer;
begin
s:=0:
for j:=1 to 10 do
begin
m:=1;
for j:=1 to i do
m:=m*j;
s:=s+m;
end;
write(……);
end;
二、while语句
格式：WHILE DO
[例1]：输入一串字符串，求第一个“，”前的大小写字母个数和其它字符个数。
program string(input,output);
var
ch:char;
c,s,o:integer;
begin
write(……);
read(ch);
c:=0;
s:=0;
o:=0;
while ch',' do
begin
if (ch>='A')and(ch<='Z') then
c:=c+1
else if (ch>='a')and(ch<='z') then
s:=s+1
else
o:=o+1;
read(ch);
end;
write(……)；
end.
三、REPEAT语句
格式：REPEAT
UNTIL
[例]：以字符(char)的形式读入一实数，以实形(real)输出该数。
第五章、函数与过程程序设计
一、函数（包括标准函数和自定义函数）
1、函数的定义
格式：FUNCTION 函数名（）：返回值类型；
VAR
BEGIN
END
[注]：1、形参表每个参数都写明其类型；
2、有且只有一个返回值，并且要将返回值赋值给函数名。
[例]：求五边形的面积
function area(a,b,c:real):real;
var
p:real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c);
end;
2、函数的调用
1）、函数的调用必然出现在表达式中（等号的右边），不能以单独地在语句出现
2）、调用时，将每个实参传递给对应的形参
program ml_area(input,output);
var
l1,l2,l3,l4,l5,l6,l7,s:real;
function area(a,b,c:real):real;
var
p:real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c);
end;
begin
write('input');
readln(l1,l2,l3,l4,l5,l6,l7);
s:=area(l1,l2,l6)+area(l2,l6,l7)+……;
writeln('s=',s:10:3);
end.
二、过程
格式：PROCEDURE()
VAR
BEGIN
END；
[例1]某过程的形参表为（var a,b:real;c,d:integer;var e:char)；
主程序中有如下变量说明：x,y:real; m:integer; next:char；
则以下实参表中合法的有：(1、2、3)
1、(x,y,m+3,70,next)
2、(y,x,m,m,next)
3、(y,x,35,m DIV 10,next)
4、(m,x,30,10,next)
5、(x,y,m,10)
6、(35,0,y,m,10,next)
7、(x,y,m,m/10,next)
8、(A,B,30,10,next)
[例2]求程序输出的结果。
program ex(input,output);
var
x,y,z:integer;
procedure s(x:integer; var y:integer);
var
z:integer
begin
x:=5; y:=6; z:=7;
end;
begin
x:=1; y:=2; z:=3;
s(x,y);
writeln(x,y,z);
end.
输出结果：1 6 3
[例3]：求五个数中的最大值。
program max_in_5(input,output);
var
n1,n2,n3,n4,n5:integer;
procedure lagest_in_three(a,b,c:integer;var e:integer)
begin
e:=a;
if b>e then
e:=b;
if c>e then
e:=c;
end;
begin
write('……');
readln(n1,n2,n3,n4,n5);
lagest(n1,n2,n3,n1);
lagest(n1,n4,n5,n1);
write(n1);
end.
三、嵌套
[例]：计算、
program Cmn(input,output);
function fax(x:integer):integer:
var
i:integer;
begin
fac:=1;
for i:=1 to x do
fac:=fac*i;
end;
function c(a,b:integer):real;
begin
c:=fac(a)/fac(b)*fac(a-b)
end;
begin
writeln('c(9,3)=',c(9,3));
writeln('c(8,5=',c(8,5));
end.
四、递归
函数或过程调用它本身，称为递归。
[例1]、用递归计算n! {=m!/n!(m-n)!}
program fac_n(input,output);
var
n:integer;
function fac(n:integer):integer;
begin
if n=1 then fac:=1
else fac:=n*fac(n-1);
end;
[例2]、用递归计算
1)、function power(a,b:integer):integer;
begin
if b=1 then power:=a
else power:=a*power(a,b-1);
end;
2)、procedure power(a,b:integer;var c:integer);
begin
if b=1 then c:=a
else power(a,b-1,c);
c:=a*c;
end;
[例3]、输入一串字符串（以‘.’结束）按逆顺输出
program revers(input,output);
procedure rever;
var
c:char;
begin
read(c);
if c'.' then rever;
write(c);
end;
begin
rever;
end.
五、标识符的作用域
1、全局变量和局部变量
1）、全局变量：在主程序中被说明，作用域：整个程序；
2）、局部变量：在子程序中被说明，作用域：主程序及其下级的程序。
2、子程序（function、precedure）的作用域
一个子程序可以调用它的下一级了程序，或可以调用在它之前定义的同级子程序。
[例]写出程序运行的结果。
program range(input,output);
var
x,y:integer;
procedure p1;
var
x,z:integer;
begin
x:=10; y:=y+1; z:=10;
writeln(x,y,z);
end;
begin
x:=1; y:=1;
writeln(x,y);
p1;
writeln(x,y,z);
end.
结果为：
(x y z)
1 1
10 2 10
1 2 (error)
3、在子程序中被改变值的变量可以回传的两种方法：
a、变量参数 procedure(var 变量名);
b、在上一级程序定义了的，且在下一级程序未被重新定义的。
[注]如果主程序的变量在子程序被重新定义，在子程序中主程序的变量被稳藏，在主程序中子程序的变量无效。
pascal教程
一、第一次课的内容
1、 信息学奥林匹克简介、青岛市中小学信息学竞赛简介；
2、 Pascal语言简介；
3、 Free Pascal环境介绍；
4、 编辑运行第一个Pascal语言程序；
5、 Pascal程序结构。
二、第二次课内容
1、 Pascal语言基本字符集、保留字、标识符的有概念及组成；
2、 数据类型、常量、变量及说明方法；
3、 Pascal语言包含的所有数据类型；
4、 整数类型和实数类型的类型符、取值范围及可进行的运算；
5、 举例讲解上述内容的使用及对Free Pascal语言环境的进一步熟悉。
三、第三次课内容
1、 结构化程序设计思想介绍；
2、 赋值语句介绍及应用举例；
3、 Write、Writeln语句介绍及应用举例；
4、 Pascal语言的表达式；
5、 程序设计的解题步骤及应用举例。
四、第四次课内容
1、 Read、Readln语句介绍及应用举例；
2、 字符类型及逻辑类型的类型符、取值范围及可进行的运算；
3、 Randomize语句、Trunc函数及随机整数的产生；
4、 所学内容的应用举例。
五、第五次课内容
1、 复合语句介绍；
2、 顺序结构语句总结；
3、 选择结构程序设计介绍；
4、 if…then语句介绍；
5、 if…then…else语句介绍；
6、 条件语句的嵌套；
7、 本次内容的应用举例；
六、第六次课内容
1、 顺序结构及分支结构程序设计的应用举例；
2、 对循环结构的初步认识；
3、 While语句介绍及应用举例。
七、第七次课内容
1、 循环结构的介绍；
2、 For语句介绍；
3、 循环结构的嵌套；
4、 循环结构的应用；
八、第八次课内容
1、 顺序结构、选择结构、循环结构应用举例；
2、 Repeat语句介绍及应用；
3、 三种循环语句分析及比较；
九、第九次课内容
1、 文件的介绍；
2、 从文本文件中如何读数据；
3、 Assign、Reset、Read、Readln及Close的使用；
4、 读文件应用举例。
5、 Case语句介绍及应用举例。
十、第十次课内容
1、 如何将数据输出到文件中；
2、 Assign、Rewrite、Write、Writeln及Close的使用；
3、 写文件应用举例；
4、 Pascal常用函数介绍。
十一、第十一次课内容
1、 认识数组；
2、 类型的定义方法；
3、 一维数组的定义和使用；
4、 一维数组的应用举例。
十二、第十二次课内容
1、 二维数组的定义和使用；
2、 多维数组的简单介绍；
3、 Inc、Dec、Break、Continue语句及应用举例。
十三、第十三次课内容
1、 字符数组；
2、 字符串的特性；
3、 字符串函数；
4、 字符串的应用。
十四、第十四次课内容
1、 一维数组的查找、插入、删除；
2、 一维数组的排序；
3、 数组的复习及应用举例。
十五、第十五次课内容
1、 枚举类型的定义及应用；
2、 子界类型的定义及应用；
3、 对程序设计中所有语句的复习。
十六、第十六次课内容
1、 子程序的概念、作用及分类；
2、 函数的定义、调用及应用举例；
3、 值参数和变量参数；
4、 按值传递的执行过程；
5、 前面所学内容的应用举例。
十七、第十七次课内容
1、 过程的定义、调用及应用举例；
2、 按地址传递的执行过程；
3、 Label说明及Goto语句的简单介绍。
十八、第十八次课内容
1、 全局变量及局部变量的作用域；
2、 函数和过程的作用域；
3、 子程序的递归及应用举例；
4、 子程序的嵌套；
5、 程序说明部分的完整复习。
十九、第十九次课内容
1、 记录类型的定义及使用；
2、 记录类型的应用举例；
3、 前面所学内容的应用举例。
二十、第二十次课内容
1、 集合类型的定义及使用；
2、 集合类型的应用举例；
3、 指针类型的简单介绍；
4、 参加竞赛时应注意的一些问题；
5、 初级班后继课程的安排介绍。
科技馆信息学奥林匹克中级班内容
一、第一次课内容
1、 顺序结构语句复习；
2、 选择结构语句复习；
3、 循环结构语句复习；
4、 程序设计应用举例；
5、 典型试题分析。
二、第二次课内容
1、 子界类型及枚举类型典型试题分析及应用举例；
2、 数组类型典型试题分析及应用举例。
三、第三次课内容
1、程序设计应用举例；
2、函数及过程典型试题分析；
四、第四次课内容
1、 集合、记录的应用举例；
2、 集合、记录典型试题分析。
五、第五次课内容
1、程序设计中的基本算法之模拟法。
六、第六次课内容
1、程序设计中的基本算法之枚举法。
七、第七次课内容
1、程序设计中的基本算法之贪心法。
八、第八次课内容
1、程序设计中的基本算法之递归法。
九、第九次课内容
1、程序设计中的基本算法之回溯法。
十、第十次课内容
1、程序设计中的基本算法之分治法。
十一、第十一次课内容
1、 进制；
2、 二、八、十六进制和十进制的相互转换；
3、 二、八、十六进制之间的转换。
十二、第十二次课内容（排列与组合）
1、 加法原理与乘法原理；
2、 排列；
3、 组合。
十三、第十三次课内容（高精度运算）
1、 高精度数的读入和存储；
2、 高精度加法；
3、 高精度减法；
4、 高精度乘法；
5、 高精度除法。
十四、第十四次课内容（排序算法）
1、 归并排序；
2、 希尔排序；
3、 堆排序；
4、 快速排序；
5、 基数排序。
十五、第十五次课内容
1、 指针类型的复习；
2、 链表的结构及操作；
3、 典型试题分析。
pascal的教程
Pascal肯定能学的，我就是六年级开始学的，学了半年就得了一等奖，你肯定也行的，加油！
有问题来找我好了。
适合小学生学的Pascal是什么意思啊？
Pascal只有一种版本。
书你不如买一本舒春平的棕黄色书。
里面从初学到深奥都有。
初学的我估计你闭着眼睛都会。
深奥的连我都不会。
你自己看着办吧。
如果实在不会做，不知道怎么办，
可以来请教我，
给我发信息。
pascal的高精度排列组合怎样处理？
加：
readln(s);
a[0]:=length(s);
for i:=1 to a[0] do
a[i]:=ord(s[a[0]-i+1])-48;
type date=array[0..100] of longint;
function add(a,b:date):date;
var i:integer;
begin
if b[0]>a[0] then a[0]:=b[0];
for i:=1 to a[0] do
begin
inc(a[i],b[i]);
inc(a[i+1],a[i] div 10);
a[i]:=a[i] mod 10;
end;
if a[i+1]>0 then inc(a[0]);
add:=a;
end;
乘：
function mul(a:data;b:integer):data;
begin
for i:=1 to a[0] do a[i]:=a[i]*b;
a[0]:=a[0]+5;
for i:=1 to a[0] do
begin
inc(a[i+1],a[i] div 10);
a[i]:=a[i] mod 10;
end;
while (a[a[0]]=0) and (a[0]>1) do dec(a[0]);
end;
function mul(a,b:data):data;
var c:data;
begin
fillchar(c,sizeof(c),0);
for i:=1 to a[0] do
for j:=1 to b[0] do inc(c[i+j-1],a[i]*b[j]);
c[0]:=a[0]+b[0];
for j:=1 to c[0] do
................
while (c[c[0]]=0) and (c[0]>1) do dec(c[0]);
end;
减：
(length(a)>length(b)) or (length(a)=length(b)) and (a>b)
function compare(a,b:data):boolean;
var i:integer;
begin
if a[0]>b[0] then exit(true);
if b[0]>a[0] then exit(false);
for i:=a[0] downto 1 do
if a[i]>b[i] then exit(true);
else if b[i]>a[i] then exit(false);
end;
除：
function chu(a:data;b:integer):data;
var x:longint;
c:data;
begin
x:=0;
fillchar(c,sizeof(c),0);
for i:=a[0] downto 1 do
begin
x:=x*10+a[i];
c[i]:=x div b;
x:=x mod b;
end;
c[0]:=a[0];
while (c[c[0]]=0) and (c[0]>1) do dec(c[0]);
end;
是不是学习delphi要先学pascal？
我跟你的情况差不多，今年上半年也是学的C，10月份开始接触pascal和delphi。说下我的经验吧。（目前已经可以独立写一些软件了）；
1.找本pascal的语法书，delphi是基于pascal语言的软件开发平台，如果不会pascal语法的话，看delphi的基本教程都很吃力的。
2.语法书看完后，找本delphi的基础教程，从头开始看，顺便动手写一些书上的小例子，刚开始可能感觉很难，因为都不知道书上说的是什么，当然接触多了就知道，不用担心的，我开始的时候也是基本上什么都看不懂，慢慢琢磨就出来了。
3.把基础教程看完后，可能有绝大部分你还是似懂非懂的，这个时候就找一些简单的独立的一新手上手例子来，先看别人是怎么写程序的，都用了那些组件和函数过程，研究下他们的用处，然后把他们的源代码关闭，自己按照自己的理解，作一个内容差不多软件，中途有不会的还可以参考原软件的啊。练上一个月。
4.如果你坚持下来了，你现在已经可以独立完成一些软件的制作了。以后就靠自己怎么学习和发展了。
一些建议：最好每天都动动手写点东西，一定要坚持下来。一天哪怕只学一个函数或者一个过程的使用，持续下来你会发现你进步了很多。我这里有一些资料需要的话M我。一起进步。
易语言调用大漠插件，找到图后怎么把鼠标移动过去。
.版本 2
.支持库 dm
.程序集 窗口程序集_启动窗口
.程序集变量 DM, dmsoft
.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型, , "0"
.局部变量 x坐标, 整数型
.局部变量 y坐标, 整数型
返回文本 ＝ 分割文本 (DM.FindPicE (0, 0, 2000, 2000, “000000”, “八卦1”, 0.9, 1), , )
x坐标 ＝ 到整数 (返回文本 [1])
y坐标 ＝ 到整数 (返回文本 [2])
.如果真 (x坐标 ≥ 0 或 y坐标 ≥ 0)
DM.MoveTo (x坐标, y坐标)
信息框 (“找到图片”, 0, )
.如果真结束
================复制以上代码到易语言======================================
