[整理]奥赛信息学竞赛班进阶篇课件pascal-01-基本语句(共21张PPT)教学讲义ppt

奥赛信息学竞赛班进阶篇课件 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把，剪刀１把，备酒精 棉球、干棉球、纱布、引流条、盐 水、碘伏棉球、胶布等。