Pascal编程基础篇.ppt
合集下载
PASCAL程序基础
2．输入语句（read,readln）： 格式：read(变量名表); readln<(变量名表)> read(a1,a2,a3); 等价于 read(a1);read(a2);read(a3); readln(a1,a2,a3); 等价于 read(a1);read(a2);read(a3);readln; 功能：通过键盘，给指定的变量赋值。 【例3】：写出程序运行后，变量的值。 程序代码： program ex3; var a,b,c:integer; i,j,k:real; ch1,ch2,ch3:char; 执行readln后多余的数据将被忽 begin read(a,b,c); 略；执行read后多余的数据要么 readln(i,j,k); 被忽略，要么被下一个read或 read(ch1,ch2,ch3)； readln语句所读入。 writeln(„a=‟,a,„b=‟,b,„c=‟,c); writeln(„i=‟,i, „j=‟,j,„k=‟,k); writeln(„ch1=‟,ch1,„ch2=‟,ch2,„ch3=‟,ch3); end. 程序运行后，输入数据： 12345 6.1 7 8 9 0 dos
A——Z；a——z；0——9；+，-，*，/，=，<>，<=，
>=，<，>，(，)，[，]， {，}，:=，，，；，.，：，..，'，^ 注：Pasca语言除了能使用以上规定的基本符号外，不 得使用任何其它符号。
三、PASCAL数据类型
数据的一个重要特征就是它的类型，数据类型
确定了数据的构成和可进行的运算。Pascal语
四、常量与变量
2.变量 (1)变量：在某个程序的运行过程中其值可以发生改变的量 (2)变量说明：变量说明出现在说明部分。语法格式： var var 变量标识符列表:类型; a,b,c:integer； ... m,n:real ； 变量标识符列表:类型;
【PPT】Pascal编程基础篇
Ba+1
Cb+1 A A+1 B B+1 C C+1
A+b+c=a*b*c
N
Y 输出cab
C>9 B>8
N N
Y Y
N
Y 结束
A>7
208、有一个三位数，个位数字比百位数字大，而百位数字又比 十位数字大，并且各位数字之和等于各位数字相乘之积，求此三 位数。 开始
A0 Ba+1 Cb+1 A A+1
计算每人几张３元的A[i]
剩下的钱必须买完：
XI div 5 XX-1
s s+a[i] i i+1
N
i>50
Y 输出s 结束
N
剩下的钱 mod 3=0?
A[I]剩下的钱 div 3
Y
204、 43名同学身上所带的钱从8元到50元各不相同。每个同学 都把身上带的钱全部各自买了贺卡，贺卡只有3元一张和5元一张 两种，每人都尽量多买5元一张的，问他们共买了3元一张的贺卡 多少张？ program cl_204; 分析： var s,i:byte; 开始
例：从四种颜色的球中取三个球放入盒中，盒中有多少种球 取几个球中取一个的可能性同排列 有多少种重复的呢 3× 2× 1 盒中第一个球： 3种可能效果一样 4× 3× 2 3× 2× 1
204、 43名同学身上所带的钱从8元到50元各不相同。每个同学 元各不相同 全部各自买了 都把身上带的钱全部各自买了贺卡，贺卡只有 3元一张和5元一张 尽量多买5元一张的，问他们共买了 元一张 两种，每人都尽量多买 3元一张的贺卡 多少张？ 分析： 计算每人几张３元的Ａ［i］ 开始 最多能买多少张５元的：Ｘ＝I div 5 i8
Cb+1 A A+1 B B+1 C C+1
A+b+c=a*b*c
N
Y 输出cab
C>9 B>8
N N
Y Y
N
Y 结束
A>7
208、有一个三位数，个位数字比百位数字大，而百位数字又比 十位数字大，并且各位数字之和等于各位数字相乘之积，求此三 位数。 开始
A0 Ba+1 Cb+1 A A+1
计算每人几张３元的A[i]
剩下的钱必须买完：
XI div 5 XX-1
s s+a[i] i i+1
N
i>50
Y 输出s 结束
N
剩下的钱 mod 3=0?
A[I]剩下的钱 div 3
Y
204、 43名同学身上所带的钱从8元到50元各不相同。每个同学 都把身上带的钱全部各自买了贺卡，贺卡只有3元一张和5元一张 两种，每人都尽量多买5元一张的，问他们共买了3元一张的贺卡 多少张？ program cl_204; 分析： var s,i:byte; 开始
例：从四种颜色的球中取三个球放入盒中，盒中有多少种球 取几个球中取一个的可能性同排列 有多少种重复的呢 3× 2× 1 盒中第一个球： 3种可能效果一样 4× 3× 2 3× 2× 1
204、 43名同学身上所带的钱从8元到50元各不相同。每个同学 元各不相同 全部各自买了 都把身上带的钱全部各自买了贺卡，贺卡只有 3元一张和5元一张 尽量多买5元一张的，问他们共买了 元一张 两种，每人都尽量多买 3元一张的贺卡 多少张？ 分析： 计算每人几张３元的Ａ［i］ 开始 最多能买多少张５元的：Ｘ＝I div 5 i8
第一讲 PASCAL的简单运用(lazarus)PPT课件
21
练习：
❖ 熟悉Pascal编辑环境. ❖ .尝试使用快捷键. ❖ 将下面的Pascal程序输入并运行.
文件名为101．pas
文件名为102．pas
22
提问与回答
用思想传递正能量
23
结束语 CONCLUSION
感谢参与本课程，也感激大家对我们工作的支持与积极的参与。课程 后会发放课程满意度评估表，如果对我们课程或者工作有什么建议和 意见，也请写在上边，来自于您的声音是对我们最大的鼓励和帮助， 大家在填写评估表的同时，也预祝各位步步高升，真心期待着再次相 会！
第一讲 PASCAL的初步认识
1
整体 概述
一 请在这里输入您的主要叙述内容
二
请在这里输入您的主要 叙述内容
三 请在这里输入您的主要叙言呢？
Pascal语言方便地描述各种算法与数据结构。 对于程序设计的初学者，使用Pascal语言有益 于培养良好的程序设计风格和习惯。
6、在空白处 添加程序代码
14
7、输入程序
15
16
运行成功后的提示
17
四、保存源程序
18
将文件名更换为指定的文件名，例如temp
19
Temp.pas 是我们需要提交的源程序．
20
４、pascal的操作汇总
(1)进入与退出 (2)编辑程序 (3)编译程序(Compile):Alt+F9 (4)运行程序(Run):Ctrl+F9
7
二、正确启动软件
单击“开始”“程序”lazaruslazarus
8
需要编写程序 前．请关闭以往 的源程序！
9
三、建立新的ＰＡＳＣＡＬ源程序
１、选择file
10
练习：
❖ 熟悉Pascal编辑环境. ❖ .尝试使用快捷键. ❖ 将下面的Pascal程序输入并运行.
文件名为101．pas
文件名为102．pas
22
提问与回答
用思想传递正能量
23
结束语 CONCLUSION
感谢参与本课程，也感激大家对我们工作的支持与积极的参与。课程 后会发放课程满意度评估表，如果对我们课程或者工作有什么建议和 意见，也请写在上边，来自于您的声音是对我们最大的鼓励和帮助， 大家在填写评估表的同时，也预祝各位步步高升，真心期待着再次相 会！
第一讲 PASCAL的初步认识
1
整体 概述
一 请在这里输入您的主要叙述内容
二
请在这里输入您的主要 叙述内容
三 请在这里输入您的主要叙言呢？
Pascal语言方便地描述各种算法与数据结构。 对于程序设计的初学者，使用Pascal语言有益 于培养良好的程序设计风格和习惯。
6、在空白处 添加程序代码
14
7、输入程序
15
16
运行成功后的提示
17
四、保存源程序
18
将文件名更换为指定的文件名，例如temp
19
Temp.pas 是我们需要提交的源程序．
20
４、pascal的操作汇总
(1)进入与退出 (2)编辑程序 (3)编译程序(Compile):Alt+F9 (4)运行程序(Run):Ctrl+F9
7
二、正确启动软件
单击“开始”“程序”lazaruslazarus
8
需要编写程序 前．请关闭以往 的源程序！
9
三、建立新的ＰＡＳＣＡＬ源程序
１、选择file
10
PASCAL入门教学7ppt
Begin a:=I div 1000;b:=i div 100 mod 10;c:=I DIV 10 MOD 10;
D:=I mod 10; if (a=d) and (b=c) then begin write(I:6); t:=t+1; end; End; write(‘gs=‘,t);
End.
习题解答 7.一个四位数，划掉它的个位数字得第二个数；划掉它的个位、 十位上的数字得第三个数，已知这三个数的和为4212，求这个四 位数。 （3796） var x,a,b,c,d:integer; begin for x:=1000 to 9999 do begin a:=x div 1000;b:=x div 100 mod 10;c:=x div 10 mod 10; d:=x mod 10;
If I mod 2=1 then s:=s+I*(I+2);
Write(‘s=‘,s); End.
习题解答
3.输入六个自然数，求最小数及位置。 Var I,x,w,min:integer; Begin read(x);min:=x;w:=1; For I:=2 to 6 do Begin read(x); if x<min then
if (a=3) or (b=3) or (c=3) or (d=3) then begin write(I:5);s:=s+1 end;
end; Writeln(‘s=‘,s);
End.
循环语句 FOR
例：水仙花数（ 153=1*1*1+5*5*5+3*3*3） 输出三位数 中满足上述条件的所有数据。
习题解答
1。求1-100之间3的倍数的和。 Var I,s:integer; Begin s:=0; For I:=1 to 100 do
pascal1
read语句与readln语句区别是：
（1） read语句是一个接一个地读数据，在执行完本 Read语句( 读完本语句中变量所需的数据)后,下一个读语 句接着从该数据输入行中继续读数据，也就是说，不换行。 如： Read(a,b); Read(c,d); Read(e); 如果输入数据行如下: 1□2□3□4□5□6□←┘ 则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据 6是多余的，这是允许的。
本章练习
• • • • 1.从键盘上输入三个数，然后将最大数输出。 2.求1*2*3*…*n的值。（1<=n<=12） 3.求a,b的最小公倍数。(1<=a,b<=10000) 4.输入一个四位整数，将这个数反向输出。 （例：输入为1367，输出为7631）
{执行部分}
2、Pascal数据类型
在这里主要介绍整型、实型、字符型和布尔型 1)整型 类型 Byte Word Shortint Integer Longint Longword Int64 数值范围 占字节数 0 .. 255 1 0..65535 2 -128 .. 127 1 -32768..32767; -2147483648 .. 2147483647 (9位) 4 0..4294967295 4 -9223372036854775808 .. 9223372036854775807 8 0 .. 18446744073709551615 8 （整数部分19位）
Write语句与writeln语句格式上都相似，但它们在功能 上有所不同，两个语句的区别在于: write语句将其后括号中的表达式一个接一个输出后， 没有换行。 而writeln语句则在输出各个表达式的值后换行。 例如以下两个程序段的输出分别为： write(1,2,3,4); write(5,6); 输出为： 123456 writeln(1,2,3,4); write(5,6); 输出为： 1234 56
Pascal编程基础篇PPT
第二页，编辑于星期五：十四点 五十一分。
ord(‘B’)= 66 chr(100)= d ord(chr(98))= 98 chr(ord(‘A’))= A pred(5)= 4 succ(5)= 6 pred(succ(8))= 8 pred(‘B’)= A succ(‘B’)= C Succ(pred((‘B’))= B
Pascal编程基础篇
——信息学奥赛培训班讲座
第一页，编辑于星期五：十四点 五十一分。
第三讲：字符和字符串
一、字符和字符串函数
字符的函数：
前导函数：pred(x) 后续函数：succ(x) 序号函数：ord(x)
字符函数：chr(x)
字符串的函数：
pred(‘p’)= o pred(‘p’)= q ord(‘p’)= 111 chr(65)= A
删除过程：delete(s,i,n)
delete(‘abcdefg’,2,4)= afg 数值转换为字符串过程：str(v,s)
V是数值型，S是字符串型
字符串转换成数值过程：val(s,v,c) S是字符串型，V是数值型，出错位放在C中，为数值型
第四页，编辑于星期五：十四点 五十一分。
例1：301：打印下面的文本图形。当N=5时，图形如下。 （0<N<27）
分析：大于10位只能用字
符串方式输入
开始
读入字符串A
B: 0 1 2 3 …… N-1
需要转换成数吗？ 给A数组冒泡排序 pred(succ(8))=
302：输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。 pred(succ(8))=
pred(succ(8))= 字符函数：chr(x)
第二章 pascal程序设计语言基础PPT课件
第二章
Pascal 程序设计语言基础
由NordriDesign提供
整体概况
概况一
点击此处输入 相关文本内容
01
概况二
点击此处输入 相关文本内容
02
概况三
点击此处输入 相关文本内容
03
第二章 Pascal 程序设计语言基础
2.1 pascal 程序结构及流程图
程序基本结构 结构化流程图（N-S图） 用程序语言来描述算法
2.1 pascal 程序结构及流程图
2.1.1程序基本结构
条件满足？
顺
A
序
结
构
B
A
选择结构
B
A
当
型 循
满足条件？ 是
环
否
A
直
到
否
型 满足条件？
循
环
是
2.1 pascal 程序结构及流程图
2.1.2结构化流程图（N-S图）
满足条件否？
2.2.2 数制转换
2.二进制数转换成十进制数 小数
例2-9 将二进制数0.101转换成十进制数 0.101B=( )D 0.101B=1*2^-1+0*2^-2+1*2^-3 =1*2-1+0*2-2+1*2-3 =0.625
2.2.2 数制转换
2.二进制数转换成十进制数
练习1： 110011B=(
每三个二进制位一组
0.9687510=0.111 1 数制转换
4.二进制数与十六进制数转换 整数部分
每四个二进制位一组
100010= 11 1110 10002=3E816
2.2.2 数制转换
4.二进制数与十六进制数转换 小数部分
Pascal 程序设计语言基础
由NordriDesign提供
整体概况
概况一
点击此处输入 相关文本内容
01
概况二
点击此处输入 相关文本内容
02
概况三
点击此处输入 相关文本内容
03
第二章 Pascal 程序设计语言基础
2.1 pascal 程序结构及流程图
程序基本结构 结构化流程图（N-S图） 用程序语言来描述算法
2.1 pascal 程序结构及流程图
2.1.1程序基本结构
条件满足？
顺
A
序
结
构
B
A
选择结构
B
A
当
型 循
满足条件？ 是
环
否
A
直
到
否
型 满足条件？
循
环
是
2.1 pascal 程序结构及流程图
2.1.2结构化流程图（N-S图）
满足条件否？
2.2.2 数制转换
2.二进制数转换成十进制数 小数
例2-9 将二进制数0.101转换成十进制数 0.101B=( )D 0.101B=1*2^-1+0*2^-2+1*2^-3 =1*2-1+0*2-2+1*2-3 =0.625
2.2.2 数制转换
2.二进制数转换成十进制数
练习1： 110011B=(
每三个二进制位一组
0.9687510=0.111 1 数制转换
4.二进制数与十六进制数转换 整数部分
每四个二进制位一组
100010= 11 1110 10002=3E816
2.2.2 数制转换
4.二进制数与十六进制数转换 小数部分
第二讲：Pascal语言基础
程序首部
程 序 体
分
二、基本符号、保留字、标识符：
1．基本符号： 是ASCII字符集，主要有： ① 26个英文字母(不分大小写，字符串中的字母例外。 ② 十个数字符号。 ③ 特殊符号
+
>= { ^
( } ..
*
) :=
/
[ .
=
] ,
<>
；
<
:
>
’
<=
2．保留字： 保留字是指pascal语言中一些有特殊含义的英文单词，它们已被pascal语言 自己使用，都有专门的用途。 Pascal 语言中保留字有36个，可分为以下六种类型： ① 程序、函数、过程的符号： program，function，procedure ② 说明部分的专用定义符号： array，const，file，label，packed，var，record，set，type，of ③ 语句专用符号： case，do，downto，else，for，goto，if，repeat，then，to，until，while， with，forward ④ 运算符号： and，div，in，mod，not，or ⑤ 分隔符号： begin，end ⑥ 空指针常量： Nil 7. PROTECTED, PUBLIC, PUBLISHED, TRY, FINALLY, EXCEPT, RAISE （fp新增保留字）
例1： 要将一张100元的大钞票，换成等值的10元、 5元、2元、1元一张的小钞票，每次换成40张小 钞票，每种至少1张。 如，有一种换法： 10元： 9 张 5元： 1 张 2元： 2 张 1元： 1 张 问：一共有多少种换法。
program ex1; var x1,x2,x3,x4,n:integer; begin n:=0; for x1:=1 to 10 do for x2:=1 to 20 do for x3:=1 to 50 do for x4:=1 to 100 do if (10*x1+5*x2+2*x3+x4=100)and(x1+x2+x3+x4=40) then n:=n+1; writeln(n); end.
PASCAL语言基础ppt
3．变量
变量：在程序执行过程中可以改变值的数据。
在程序中用到的所有变量必须事先定义。 格式： Var <变量表> ┆ <变量表>
:
<变量类型>；
如：输入3个整数，求这3个数的平均值。 Var a，b，c：integer; aver:real;
:
<变量类型>；
其中，保留字var表示开始一个变量说明部分。变量标识符列表是一个用 逗号隔开的标识符序列，冒号后面的类型是类型标识符。每个变量说明 均以分号结束。
3. 标识符：
标识符是以字母开头的字母数字序列(大小写等效，可跟下划线_)， 用来标识常量、变量、程序、函数等。Pascal中允许的标识符的 有效长度为63。 标识符分为两大类： ① 标准标识符： 标准常量：false，true，maxint(32767) 标准类型：integer，real，char，boolean，text 标准文件：input，output 标准函数：abs，arctan，chr，cos，eof，eoln，exp，ln，odd， ord，pred，round，sin，sqr，sqrt，succ，trunc 标准过程：get，new，pack，page，put，read，readln，reset， rewrite，unpack，write，writeln ② 自定义标识符 由用户自己在程序首部或说明部分进行定义，但要注意以下几点： 不能与保留字同名；避免与标准标识符同名；最好有一定的含义， 增加程序的可读性。 例如：在程序中如用到数学中的π，则在定义该常量时可用PI表示。
PASCAL语言基础
信息学奥赛的内容：
Free Pascal
程序 ========= 数据结构 + 算法
PASCAL入门教学3PPT
例：某城市提倡节约用水，规定：居民用水量不超过50立方米， 每立方米水0.9元；如果超过50立方米，超过部分每立方米水 1.5元。从键盘输入用水量，计算水费。
var s,y:real;
begin write('s=');readln(s); if s<=50 then y:=0.9*s else y:=50*0.9+(s-50)*1.5;
writeln('y=',y:0:2)
end.
练习题
1.输入秒，转换成×时×分×秒的格式。 2.人民币分元、角、分。请你以输入以分为单位的某一个数，然 后以×元×角×分的格式输出结果。 3.输入一个六位数,求各位数字之和。 4。输入一个数，若>0，输出1；若=0，输出0；若<0，输出-1。 5。小明代表中队去文具店购买铅笔，如果购买数不超过30支， 每支0.3元；若购买数超过 30支，则每支便宜 0.05元。编程输入 购买数，输出应付钱。 6。输入一个三位数，判断它是否为回文数。如输入 323 ，则是 回文数，输入356，则不是回文数。 7，输入三个自然数X，Y，Z，输出最小数。
2。输入梯形的上底a、下底b和高h，计算梯 形的面积S。 S=(a+b)×h÷2，保留2位小数。
Var a,b,h,s:real; Begin write(‘a,b,h=‘);read(a,b,h); s:=(a+b)*h/2;
Write(‘s=‘,s:0:2);
End.
3。输入平时成绩P和期终考试成绩K，输出 总评成绩Z。 Z=P÷3 + K×2÷3，不保留小数。
writeln(chr(ord(c)+1), chr(ord(c)+2), chr(ord(c)+3));
第2章 Pascal语言基础
例如： type TOneArray=Array[3..39] of Integer; TdoubleArray=Array[125,1..50] of Real; Var OneArray:TOneArray; doubleArray:TdoubleArray;
2.1.7 记录类型
记录类型包括了一组元素，但和数组型数据不同的是，记录类型数据可 以包括相同的数据类型，也可以包括不同的数据类型;这些数据可以是 数值型的，也可以是非数值型的。例如：用户可以使用一个记录类型数 据记录一个学生的名字、出生日期、籍贯以及学习成绩等。 例如，一个学生的记录类型如下： type TStudent=Record Name:String[30]; Age:Integer; StudNum:Integer; Score:real; end;
2.1.7 记录类型
var Student1:TStudent; begin :='Smith'; Student1.Age:=20; Student1.StudNum:=950007; Student1.Score:=87.5; end;
2.1.8 文件类型
文件类型是用来对文件进行操作的，它包括同一类元素的线性有序组 合。Delphi支持的文件类型有文本文件、记录文件和无类型文件。定 义文件类型实际上是定义了一个文件类型的指针。 例如： type TStudent=Record Name:String[30]; Age:Integer; StudNum:Integer; Score:real; end;
2.1 数据类型
Object Pascal的数据类型包括一些标准的数据类型，例如：整型、实型、 字符型、字符串型和布尔型等等。除此之外，系统还允许用户自己定义 一些较为复杂的数据类型，例如：子界类型、枚举类型、指针类型、记 录类型以及文件类型等等。 • 2.1.1 标准数据类型 • 2.1.2 子界类型 • 2.1.3 枚举类型 • 2.1.4 集合类型 • 2.1.5 指针类型 • 2.1.6 数组类型 • 2.1.7 记录类型 • 2.1.8 文件类型
PASCAL的基础语法.ppt
请问a和b现在是什么数据类型？
Var a,b:boolean;
２－4 、字符型
字符型用char作为标识符。 字符型必须用单引号括起来，字母作为字符型时，大小写是不 等价的，并且字符型只允许单引号中有一个字符，否则就是字 符串(string)。
请问a和b现在是什么数据类型？
Var a,b:char;
Ｃ类． 用户自定义标识符：由你自己根据需要来定义。 （1）选用的标识符不能和保留字相同。 （2）语法上允许预定义的标准标识符作为你自己定义的标识 符使用，但最好还是不要用。
以下列举了你自己在定义标识符时可以用的字符： A——Z；a——z；0——9；
program lt1; 观察左边程序，判断Ａ、Ｂ、Ｃ三类标识符 var a,b:integer; sum:integer; Ａ： program var begin begin end a:=3355; b:=789; sum:=a+b; writeln('sum=',su m); end.
第二讲 PASCAL的基础语法
主讲人：张志刚
１、Pascal字符与符号
标识符的定义：标识符就是以字母开头的字母数 字序列，有效长度为63个字符，并且大小写等效。 可以用来表示常量、变量、程序、函数等。
标识符的分类(一共３类)：
A类. 保留字(关键字)
所谓保留字是指在Pascal语言中具有特定的含义，你必 须了解它的含义，以便于正确的使用，否则会造成错误。早 期标准Pascal语言中的保留字一共有35个。下面是Pascal语 言的保留字:
4、标准函数
4-1.算术函数 函数标识符 abs(x) arctan(x) cos(x) exp(x) frac(x) int(x) ln(x) pi sin(x) sqr(x) sqrt(x) 变量类型 整型、实型 整型、实型 整型、实型 整型、实型 整型、实型 整型、实型 整型、实型 无变量 整型、实型 整型、实型 整型、实型 意义 绝对值 反正切 余弦 指数 小数部分 整数部分 自然对数 圆周率 正弦 平方 平方根 结果类型 同变量 实型 实型 实型 实型 实型 实型 实型 实型 同变量 实型
Pascal程序设计语言基础
eg: a:=5/3; b:=-a; writeln(a:7:2); writlen(b:7:2);
二、读语句（输入语句 输入语句）
形式1： read ( 变量名1，变量名2……)； 形式2： readln (变量名1，变量名2……)； 赋了值。 含义：通过读语句后，括号内的变量名都被赋了值 含义 ： 通过读语句后 ，括号内的变量名都被赋了值。 （这些值是由键盘输入的，所以也称输 入语句） 例如： 例如： read(a, b, c); 若从键盘输入： 的值为3 的值为5 的值为8 若从键盘输入：3 5 8，则变量 的值为3、b的值为 、c的值为 ，则变量a的值为 、 的值为 的值为 区别 read 和readln 相同点：都是为括号中的变量赋值 赋值。 相同点：都是为括号中的变量赋值。 不同点： 多了一个“ 换行符。 把下一个读入位置换到下一行） 不同点：readln比read多了一个“ln”—> 换行符。（把下一个读入位置换到下一行） 比 多了一个 举例： 举例： read(a,b); readln(c,d,e); read(f,g); 若从键盘中输入以下数据： 若从键盘中输入以下数据： 1 2 3 4 5 6 7 8 9 10 11 此时：a等于1，b等于2，c等于3，d等于4，e等于5， f等于10，g等于11 ， 原因是： 读完变量c、 、 的值换行后 当前行后面的数据全部被省略。 的值换行后， 原因是：readln(c,d,e);读完变量 、d、e的值换行后，当前行后面的数据全部被省略。那么 读完变量 read(f,g)就只能读 和11。 就只能读10和 。 就只能读
var x,n,k:integer; begin randomize; x:=random(100); n:=0; repeat
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ord(‘B’)= 66 chr(100)= d
ord(chr(98))= 98 chr(ord(‘A’))= A pred(5)= 4 succ(5)= 6 pred(succ(8))= 8 pred(‘B’)= A succ(‘B’)=C Succ(pred((‘B’))= B
练习
Length(‘abcde’)= 5 pos(‘x’,’This is a pen’)=0 copy(‘abc12345gh’,6,4)= 345g
Pascal编程基础篇
——信息学奥赛培训班讲座
第三讲：字符和字符串
一、字符和字符串函数
字符的函数：
前导函数：pred(x) 后续函数：succ(x) 序号函数：ord(x) 字符函数：chr(x)
字符串的函数：
pred(‘p’)= o pred(‘p’)= q ord(‘p’)= 111
chr(65)= A
pred(‘B’)= A pred(‘B’)= C
字符串定义：X：string;
测长函数：Length(x) Length(‘akdfieoq’)= 8
定位函数：pos(x,a)
pos(‘is’,’This is a pen’)=3
取子串函数：copy(a,i,n) copy(‘djfpueriq’,3,6)= fpueri
I: 1 2 3 4 …… N A: 1 2 3 4 …… N A:=I B: 0 1 2 3 …… N-1 B:=I-1
302：输入一个多位自然数，然后将各位重新排列成一个仍
由原来的那些数字组成的位数不变的最大数和最小数。
(0<X<10200)
分析：大于10位只能用
字符串方式输入
开始
读入字符串A
例1：301：打印下面的文本图形。当N=5时，图形如下。 （0<N<27）
分析：先将最大一行的可能值赋给字符串A
A
ABA A=‘ABCDEFGHIJKLMNOPQRST ABCBA UVWXYZYXWVUTSRQPONMLK ABCDCBA JIHGFEDCBA’
ABCDEDCBA
然后从A串中左取一部分，右取一部分 N=5时 For i:=1 to 5 do
需要转换成数吗？
给A数组冒泡排序
由大到小输出最大数
i1
i i+1
Y
A[i]=‘0’
N
输出A[I]，A[1]~ A[I-1]，A[I+1]~最后
结束
303：键盘输入一个大于五位的自然数，然后将各位数字重 新排列成一个仍由原来那些数字组成的位数不变的,比原数大 的最小的数。如果没有则输出原数。（105<X<10200）
二、字符串过程
插入过程：insert(s1,s2,i) insert(‘ab’,’12345’,3)= 12ab345
删除过程：delete(s,i,n) delete(‘abcdefg’,2,4)= afg
数值转换为字符串过程：str(v,s) V是数值型，S是字符串型
字符串转换成数值过程：val(s,v,c) S是字符串型，V是数值型，出错位放在C中，为数值型
分析：大于10位只能用
字符串方式输入
开始
读入字符串A
输出最大数
i1
i i+1
Y
A[i]=‘0’
N
输出A[I]，A[1]~ A[I-1]，A[I+1]~最后
结束