[整理]奥赛信息学竞赛班进阶篇课件pascal-01-基本语句(共21张PPT)教学讲义ppt
合集下载
青少年信息学奥林匹克竞赛辅导讲义PASCAL语言
目录计算机基础知识第一章计算机基础常识第二章操作系统简介第三章计算机网络第四章计算机信息安全基础知识Pascal 语言Pascal语言概述与预备知识第一章开始编写pascal语言程序第二章Pascal语言基础知识第三章顺序结构程序设计第四章选择结构程序设计第五章循环结构程序设计第六章数组与字符串第七章函数和过程第八章子界与枚举类型第九章集合类型第十章记录与文件类型第十一章指针第十二章程序调试常用算法与策略第一章算法的概念第二章递归第三章回溯第四章排序第五章查找第六章穷举策略第七章贪心算法第八章分治策略数据结构第一章什么是数据结构第二章线性表第三章栈第四章队第五章树第六章图动态规划第一章什么叫动态规划第二章用动态规划解题第三章典型例题与习题第四章动态规划的递归函数法第五章动态规划分类1数学知识及相关算法第一章有关数论的算法第二章高精度计算第三章排列与组合第四章计算几何第五章其它数学知识及算法图论算法第一章最小生成树第二章最短路径第三章拓扑排序（AOV网）第四章关键路径（AOE网）第五章网络流第六章图匹配搜索算法与优化第一章双向广度优先搜索第二章分支定界法第三章A*算法计算机基础知识1.1 计算机的产生与发展计算机的产生是20世纪最重要的科学技术大事件之一。
世界上的第一台计算机（ENIAC）于1946年诞生在美国宾夕法尼亚大学，到目前为止，计算机的发展大致经历了四代：①第一代电子管计算机，始于1946年，结构上以CPU为中心，使用计算机语言，速度慢，存储量小，主要用于数值计算；②第二代晶体管计算机，始于1958年，结构上以存储器为中心，使用高级语言，应用范围扩大到数据处理和工业控制；③第三代中小规模集成电路计算机，始于1964年，结构上仍以存储器为中心，增加了多种外部设备，软件得到了一定的发展，文字图象处理功能加强；④第四代大规模和超大规模集成电路计算机，始于1971年，应用更广泛，很多核心部件可集成在一个或多个芯片上，从而出现了微型计算机。
高中信息技术 信息学奥赛 PASCAL语言排列课件 精品
三、新授
1、排列的定义 一般地，从n个不同元素中取出
m(m≤n)个元素，按照一定的顺序排 成一列，叫做从n个不同元素中取出m 个元素的一个排列。
2、排列数的定义 从n个不同元素中取出m(m≤n)
个元素的所有排列的个数，叫做从n个 不同元素中取出m个元素的排列数，
用符号 Anm 表示。
3、排列数公式
问题：从n个不同元素中取出2个元素
的排列数
An2 n
An2
是多少？ 第1位
n 1
第2位
An3 ?
n×(n-1) n
n-1
第1位 第2位 第3位
nn 1n 2
n n-1 n-2
Anm ? n,m N*,m n
第1位 第2位 第3位
……
第m位
n n-1 n-2
n-m+1
Anm nn 1n 2n 3 n m1
a b cd
b a cd
c a bd
d a bc
c d b db c c d a da c b d a da b b c a ca b
abc bac
cab
dab
abd bad
cad
dac
acb bca
cba
dba
acd bcd
cbd
dbc
adb bda
cda
dca
adc bdc
cdb
dcb
课题：排 列
N=m1×m2×…×mn 种不同的方法。
二、引入
问题1：从甲、乙、丙3名同学中选出
2名参加某天的一项活动，其中1名同
学参加上午的活动，1名同学参加下午
的活动，有多少种不同的方法？
上午 下午 相应的排法
Pascal程序的一般结构和基本语句.ppt
学表示法）
1.3267e+2（=1.3267×102=132.67）
整型 integer 包括正、负整数和零
25，-32，0
字符型 char 单个的字符
‘A’，’b’，’C’，’0’，’4’，’+’
布尔型
boolean
只有现个值，即true（真）和false （假）
➢标识符
➢标识符：是以字母或下划线开头的字母、数字、下划线组合， 用来表示常量、变量、类型、文件、函数、过程或程序的名字。
编辑区
菜单 文件名/缩放按钮
位置指示
状态栏
➢Free Pascal 集成开发环境
编写程序的一般过程：编辑－编译－运行－查看结果
编译程序(Compile):Alt+F9 运行程序(Run):Ctrl+F9 保存程序(Save):F2 打开原有的程序:F3 查看程序运行结果:Alt+F5
➢程序输入与调试
串用单引号括起来。
➢ program io3; ➢ var ➢ a,b,c:integer; ➢ begin ➢ read(a,b,c); ➢ writeln(‘a=’,a,‘,b=’,b); ➢ writeln(‘c=’,c); ➢ end.
➢ program io4; ➢ var ➢ a,b,c:integer; ➢ begin ➢ read(a,b,c); ➢ write (‘a=’,a,‘,b=’,b); ➢ writeln(‘c=’,c); ➢ end.
标志 符 D
B
Q
H
2、常用进制对照表
十进制D 0 1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
二进制B 0000 0001
【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语言函数与过程课件1
解:设输入的五个整数为n1、n2、n3、n4、n5，为了便于处 理，引入一个中间变量t1，按如下步骤处理：
①令t1=n1; ②将t1与n2比较，将两者中较大的数放入t1； ③将t1与n3比较，将两者中较大的数放入t1； ④将t1与n4比较，将两者中较大的数放入t1； ⑤将t1与n5比较，将两者中较大的数放入t1； ⑥经过以上5步处理后，t1即为5个数中最大者。 从上面规划的步骤看来，从步骤②到步骤⑤需处理的目标 是相同的，因此我们可以设计一段子程序Max(x1,x2)，以找 出x1和x2中最大的值并返回。
过程定义的一般格式:
PROCEDURE <过程名> (<形式参数表>); ｛过程首部｝ <变量说明部分>； BEGIN <过程体>; END;
注意：过程的结果由参数送回，可以包括多个
过程调用的一般格式：
<过程名>(实在参数表)
例3:输入三个不同的整数,按由小到大排序 。
Program exam3;
｛用函数求n4, n5, t1 的最大数｝
writeln('Max number :', t1);
End.
C 例2:编写一个求组合数 n 的函数,计算公式 m
为
m!
n! (m-n)!
(0<n<m)
Program Exam2; Var m,n,cmn : integer; Function fac(k : integer) : integer; Var i, t : integer; Begin t:=1; for i:=2 to k do t:=t * i; fac:=t; End; Begin write(‘Please input m,n:’); read (m,n); if (n>=0) and (n<m) then begin cmn:= fac(m) div (fac(n)*fac(m-n)); writeln(‘ c( ’,m, ‘,’,n, ‘)=’, cmn ) end else writeln(‘Input error!’) End.
①令t1=n1; ②将t1与n2比较，将两者中较大的数放入t1； ③将t1与n3比较，将两者中较大的数放入t1； ④将t1与n4比较，将两者中较大的数放入t1； ⑤将t1与n5比较，将两者中较大的数放入t1； ⑥经过以上5步处理后，t1即为5个数中最大者。 从上面规划的步骤看来，从步骤②到步骤⑤需处理的目标 是相同的，因此我们可以设计一段子程序Max(x1,x2)，以找 出x1和x2中最大的值并返回。
过程定义的一般格式:
PROCEDURE <过程名> (<形式参数表>); ｛过程首部｝ <变量说明部分>； BEGIN <过程体>; END;
注意：过程的结果由参数送回，可以包括多个
过程调用的一般格式：
<过程名>(实在参数表)
例3:输入三个不同的整数,按由小到大排序 。
Program exam3;
｛用函数求n4, n5, t1 的最大数｝
writeln('Max number :', t1);
End.
C 例2:编写一个求组合数 n 的函数,计算公式 m
为
m!
n! (m-n)!
(0<n<m)
Program Exam2; Var m,n,cmn : integer; Function fac(k : integer) : integer; Var i, t : integer; Begin t:=1; for i:=2 to k do t:=t * i; fac:=t; End; Begin write(‘Please input m,n:’); read (m,n); if (n>=0) and (n<m) then begin cmn:= fac(m) div (fac(n)*fac(m-n)); writeln(‘ c( ’,m, ‘,’,n, ‘)=’, cmn ) end else writeln(‘Input error!’) End.
信息学奥赛Pascal教程
Pascal速成教程0、程序的设计过程建模--->算法--->源代码--->编译--->执行--->发行1、你的第一个Pascal程序1 program ex01;2 begin3 writeln ('hello world');4 end.编译，执行，我们看到了第一个输出：hello world让我们来看看这个程序的结构:行1：program语句指定程序名称，例如，这里告诉编译器，程序名称为ex01，在FreePascal 中可以省略。
行2：begin...end：语句块开始、结束的标志，Pascal程序中，主程序必须包含在一组begin...end中。
其实，只要程序员认为语句为一个整体，那么它们就应该被包含于begin...end中行3：writeln ('hello world');writeln语句控制输出，这里，输出hello world。
更多细节：1、行1、行3中语句结束的“；”：Pascal中每一个语句结束，其末尾应当有分号（特殊情况后面再讨论）表示语句结束。
2、行4末尾的“.”：Pascal中全局程序的begin...end语句组结束后，末尾用“.”。
3、行3中，包含 hello world 的“''”，Pascal中，字符串都由“''”包围。
2、输入、输出我们的程序用writeln语句实现了输出hello world的使命，但若我们要电脑读入一个数，并将它输出，那该怎么办？我们先看一看下列程序：1 program ex02;2 var3 i:integer;4 begin5 readln (i);6 writeln (i);7 end.当你键入一个数（比如说5）以后，得到以下输出：55行2：var关键字表示变量的定义，即行3到下一个关键字（这里是行5的begin）属于变量的声明。
关于变量的介绍在后面会提到，这里，你只需要知道，行3定义了一个整型变量（数据类型在第4节讲到）行5：readln语句读入一个值到i（这里是5），writeln语句输出i的值。
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语言排序课件
Merge(low,mid,high)
End.
第二十页，共二十四页。
mid=1
归并 排序算法： (guībìng)
mergesort(1,1)
mergesort(1,7)
mid=2
mergesort(2,2)
mergesort(1,2)
Merge(1,1,2)
mid=4 mergesort(1,4)
• 算法分析：
快速排序是不稳定的
• 最好时间复杂O(nlog2n) • 最坏时间复杂度O(n2)，比较(bǐjiào)n(n-1)/2次 • 平均时间复杂度O(nlog2n)
第十六页，共二十四页。
归并 排序 (guībìng)
• 基本(jīběn)思想：
利用“归并”技术来进行排序。归并是指将若干个已排 序的子文件合并成一个有序的文件。
第四页，共二十四页。
无序区 R[2..n] R[i..n]
直接 插入排序 (zhíjiē)
• 第i-1趟直接插入排序
通常将一个记录R[i](i=2，3，…，n-1)插入到当前的有 序区，使得插入后仍保证该区间里的记录是按关键字 有序的操作。 • 排序过程的某一中间时刻(shíkè)，R被划分成两个子区间 R[1..i-1]（已排好序的有序区）和R[i..n]（当前未排序 的部分，可称无序区）。
38
65
65 38
49
49
49
49
49
97 97 65 49
49 49
49
49
76
76 97
65 65 65
65
65
13
27 76 97
76 76
76
76
27
49 49
End.
第二十页，共二十四页。
mid=1
归并 排序算法： (guībìng)
mergesort(1,1)
mergesort(1,7)
mid=2
mergesort(2,2)
mergesort(1,2)
Merge(1,1,2)
mid=4 mergesort(1,4)
• 算法分析：
快速排序是不稳定的
• 最好时间复杂O(nlog2n) • 最坏时间复杂度O(n2)，比较(bǐjiào)n(n-1)/2次 • 平均时间复杂度O(nlog2n)
第十六页，共二十四页。
归并 排序 (guībìng)
• 基本(jīběn)思想：
利用“归并”技术来进行排序。归并是指将若干个已排 序的子文件合并成一个有序的文件。
第四页，共二十四页。
无序区 R[2..n] R[i..n]
直接 插入排序 (zhíjiē)
• 第i-1趟直接插入排序
通常将一个记录R[i](i=2，3，…，n-1)插入到当前的有 序区，使得插入后仍保证该区间里的记录是按关键字 有序的操作。 • 排序过程的某一中间时刻(shíkè)，R被划分成两个子区间 R[1..i-1]（已排好序的有序区）和R[i..n]（当前未排序 的部分，可称无序区）。
38
65
65 38
49
49
49
49
49
97 97 65 49
49 49
49
49
76
76 97
65 65 65
65
65
13
27 76 97
76 76
76
76
27
49 49
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
奥赛信息学竞赛班进阶篇课件 pascal-01-基本语句(共21张
PPT)
Pascal 语言的基本语句
❖ 赋值语句 ❖ 读语句 ❖ 写语句 ❖ 条件判断语句 ❖ 循环语句
常量
❖ 常量：程序执行过程中其值保持不变的数据
const
pi = 3.1415926；
f = false；
{ f为逻辑值false(假) }
换药术
换药
延期处理的开放性创伤、软组 织感染切开引流、手术切口感染 等，由于局部组织病理反应，使 创面出现渗液、化脓、坏死或组 织缺损等，应予适当处理。这种 处理包括检查创面，清除脓液及 坏死组织，放置或去除引流物更 换敷料和包扎等，这一过程称为 换药，也称为更换敷料或上药。
原则
1.无菌原则； 2.清除失活坏死组织； 3.保持、促进肉芽生长； 4.促进伤口愈合；
Case语句
var x,y:integer; Begin
read(x,y); case x+y of
0 : writeln(‘mail’); 1..10 : writeln(‘money’); 20,30,40 : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.
2．用两把镊子清洁伤口，一把镊子接 触伤口，另一把镊子接触敷料作为传递。 用碘伏或酒精消毒伤口周围的皮肤。用 盐水棉球清洗创面，轻沾吸去分泌物或 脓液，由内向外，注意移除创口内异物、 线头、死骨及腐肉等。棉球一面用后， 可翻过来用另一面，然后弃去。不得用 擦洗过创面周围皮肤的棉球沾洗创面。 严格防止将纱布、棉球遗留在伤口内。 在换药过程中，假如需用两把镊子（或 钳子）协同把沾有过多盐水或药液的棉 球拧干一些时，必须使相对干净侧（左 手）镊子位置向上，而使接触伤口侧 （右手）镊子位置在下，以免污染。
st = ’abcd ’； { st为字符串’abcd ’}
SS : array[1..4,0..1] of integer
=((0,1),(1,0),(0,-1),(-1,0));
赋值语句
❖ 赋值语句 【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a–50;
end else writeln(‘aaaaa’);
If语句
If a>0 then begin if c=‘@’ then write(‘aaa’);
end else if c=‘$’ then write(‘bbb’)
else write(‘ccc’);
If语句
(1)If 语句
readln（x）； if x < 0
(2) case 语句
标号1 语句1
标号2
表达式＝情况标号
true
语句2
……
下一条语句
else
标 号 n1
语句n-1
语句n
Case语句
var c:char; Begin
read(c); case c of
‘@’ : writeln(‘mail’); ‘$’ : writeln(‘money’); ‘*’ : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.
换药准备工作
3．让病人采取舒适的卧位或坐位， 利于暴露创口，冬天应注意保暖。
换药术.avi
换药的基本技术
1.树立无菌观念； 2.解除敷料的方法； 3.换药物品的传递方法； 4.创面及周围皮肤的消毒方法； 5.包扎固定方法； 6.污物敷料的处理；
操作步骤
1．用手取外层敷料（勿用镊子）， 再用镊子取下内层敷料及外引流物； 与伤口粘着的最里层敷料，应先用 盐水湿润后再揭去，以免损伤肉芽 组织或引起创面出血。
then writeln（‘x<0’） else if x > 0
then writeln（‘x>0’） else write（‘x=0’）；
If语句
❖ 条件判断语句
(1)If 语句 如果 0<a<b 就……
if 0<a<b then …. if (0<a) and (a<b) then ….
Case语句
20+30=50
写语句
❖ 写语句 【例】 x := 20； y := 30； writeln（x，‘+’，y，‘=’）； writeln（x + y）；
执行上述语句后，在显示屏输出： 20+30= 50
begin c := ’a’； r := 3. 5； writeln（c : 6）； writeln（r）； writeln（r : 9）； writeln（r : 1）； writeln（r : 9 : 3）； writeln（r : 2 : 3）；
当输入数据： 12345 678 9 10 11
读入结果为：
12345
↓↓ ↓ ↓↓ abc i j 678 ↓ k 9 10 11 ↓↓ xy
写语句
❖ 写语句 【例】 x := 20； y := 30； write（x，‘+’，y，
‘=’）； write（x + y）；
执行上述语句后，在显示屏输出：
end.
写语句
If语句
❖ 条件判断语句
(1)If 语句 readln（x）；
是
否
条件
A
x<0’）
else writeln（’x>=0’）；
If语句
readln（x）； if x < 0
then begin writeln（‘x<0’） b:=b+1;
200 a
200 + 30*2
200
a
b
200 - 50 a
赋值语句
❖ 常见错误
a:=35+6y; a:=35+6*y;
读语句
❖ 读语句
【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；
读语句
read（a , b , c）； readln（i , j , k）； readln （x , y）；
换药目的
1.观察伤口 2.去除坏死组织； 3.清洁创面； 4.引流通畅； 5.促进组织生长；
换药准备工作
1.换药前半小时内不要扫地，避免 室内尘土飞扬；了解病人的伤口情 况；穿工作服，戴好帽子、口罩， 洗手
换药准备工作
2．物品准备：无菌治疗碗两个，盛 无菌敷料；弯盘１个（放污染敷 料），镊子2把，剪刀１把，备酒精 棉球、干棉球、纱布、引流条、盐 水、碘伏棉球、胶布等。
PPT)
Pascal 语言的基本语句
❖ 赋值语句 ❖ 读语句 ❖ 写语句 ❖ 条件判断语句 ❖ 循环语句
常量
❖ 常量：程序执行过程中其值保持不变的数据
const
pi = 3.1415926；
f = false；
{ f为逻辑值false(假) }
换药术
换药
延期处理的开放性创伤、软组 织感染切开引流、手术切口感染 等，由于局部组织病理反应，使 创面出现渗液、化脓、坏死或组 织缺损等，应予适当处理。这种 处理包括检查创面，清除脓液及 坏死组织，放置或去除引流物更 换敷料和包扎等，这一过程称为 换药，也称为更换敷料或上药。
原则
1.无菌原则； 2.清除失活坏死组织； 3.保持、促进肉芽生长； 4.促进伤口愈合；
Case语句
var x,y:integer; Begin
read(x,y); case x+y of
0 : writeln(‘mail’); 1..10 : writeln(‘money’); 20,30,40 : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.
2．用两把镊子清洁伤口，一把镊子接 触伤口，另一把镊子接触敷料作为传递。 用碘伏或酒精消毒伤口周围的皮肤。用 盐水棉球清洗创面，轻沾吸去分泌物或 脓液，由内向外，注意移除创口内异物、 线头、死骨及腐肉等。棉球一面用后， 可翻过来用另一面，然后弃去。不得用 擦洗过创面周围皮肤的棉球沾洗创面。 严格防止将纱布、棉球遗留在伤口内。 在换药过程中，假如需用两把镊子（或 钳子）协同把沾有过多盐水或药液的棉 球拧干一些时，必须使相对干净侧（左 手）镊子位置向上，而使接触伤口侧 （右手）镊子位置在下，以免污染。
st = ’abcd ’； { st为字符串’abcd ’}
SS : array[1..4,0..1] of integer
=((0,1),(1,0),(0,-1),(-1,0));
赋值语句
❖ 赋值语句 【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a–50;
end else writeln(‘aaaaa’);
If语句
If a>0 then begin if c=‘@’ then write(‘aaa’);
end else if c=‘$’ then write(‘bbb’)
else write(‘ccc’);
If语句
(1)If 语句
readln（x）； if x < 0
(2) case 语句
标号1 语句1
标号2
表达式＝情况标号
true
语句2
……
下一条语句
else
标 号 n1
语句n-1
语句n
Case语句
var c:char; Begin
read(c); case c of
‘@’ : writeln(‘mail’); ‘$’ : writeln(‘money’); ‘*’ : writeln(‘snow’); else writeln(‘!!!!!!!!’); end; End.
换药准备工作
3．让病人采取舒适的卧位或坐位， 利于暴露创口，冬天应注意保暖。
换药术.avi
换药的基本技术
1.树立无菌观念； 2.解除敷料的方法； 3.换药物品的传递方法； 4.创面及周围皮肤的消毒方法； 5.包扎固定方法； 6.污物敷料的处理；
操作步骤
1．用手取外层敷料（勿用镊子）， 再用镊子取下内层敷料及外引流物； 与伤口粘着的最里层敷料，应先用 盐水湿润后再揭去，以免损伤肉芽 组织或引起创面出血。
then writeln（‘x<0’） else if x > 0
then writeln（‘x>0’） else write（‘x=0’）；
If语句
❖ 条件判断语句
(1)If 语句 如果 0<a<b 就……
if 0<a<b then …. if (0<a) and (a<b) then ….
Case语句
20+30=50
写语句
❖ 写语句 【例】 x := 20； y := 30； writeln（x，‘+’，y，‘=’）； writeln（x + y）；
执行上述语句后，在显示屏输出： 20+30= 50
begin c := ’a’； r := 3. 5； writeln（c : 6）； writeln（r）； writeln（r : 9）； writeln（r : 1）； writeln（r : 9 : 3）； writeln（r : 2 : 3）；
当输入数据： 12345 678 9 10 11
读入结果为：
12345
↓↓ ↓ ↓↓ abc i j 678 ↓ k 9 10 11 ↓↓ xy
写语句
❖ 写语句 【例】 x := 20； y := 30； write（x，‘+’，y，
‘=’）； write（x + y）；
执行上述语句后，在显示屏输出：
end.
写语句
If语句
❖ 条件判断语句
(1)If 语句 readln（x）；
是
否
条件
A
x<0’）
else writeln（’x>=0’）；
If语句
readln（x）； if x < 0
then begin writeln（‘x<0’） b:=b+1;
200 a
200 + 30*2
200
a
b
200 - 50 a
赋值语句
❖ 常见错误
a:=35+6y; a:=35+6*y;
读语句
❖ 读语句
【例】 read （a , b , c）； readln（i , j , k）； readln （x , y）；
读语句
read（a , b , c）； readln（i , j , k）； readln （x , y）；
换药目的
1.观察伤口 2.去除坏死组织； 3.清洁创面； 4.引流通畅； 5.促进组织生长；
换药准备工作
1.换药前半小时内不要扫地，避免 室内尘土飞扬；了解病人的伤口情 况；穿工作服，戴好帽子、口罩， 洗手
换药准备工作
2．物品准备：无菌治疗碗两个，盛 无菌敷料；弯盘１个（放污染敷 料），镊子2把，剪刀１把，备酒精 棉球、干棉球、纱布、引流条、盐 水、碘伏棉球、胶布等。