全国青少年信息学计算机奥林匹克竞赛.ppt

《全国青少年信息学计算机奥林匹克竞赛.ppt》由会员分享，可在线阅读，更多相关《全国青少年信息学计算机奥林匹克竞赛.ppt（86页珍藏版）》请在三一办公上搜索。

1、第一课 Free Pascal的基础知识及选择语句的认识,第一章 算法的初步认识,1.1 什么是算法？,算法就是一组有穷的规则，它规定了解决某一特定类型问题的一系列运动，通俗的说就是解决问题的方法与步骤。算法也可以理解为：程序（数据处理）+数据结构（数据组织）,算法的性质：1.有限性，算法中的运算项是有限的，且每个运算都可在有限的时间内完成的；2.确定性，即算法中的每一项运算都有明确的定义，无二义性；3.输入输出，可以没有输入，但是一定要有输出运算项；4.可行性，即对于任意给定的合法输入均可得到相应的正确输出结果。,1.2 算法的描述,自然语言流程图（N-S流程图）程序语言 cobol，pas

2、cal，basic,c,c+,java,A,B,p,A B,不成立,成立,A,A,当P,直到P,【例1-1】交换A和B的值自然语言：（1）赋A和B的初值；（2）把A的值给X；（3）把B的值给A；（4）把X的值给B；（5）输出A、B的值；vcc,流程图：,程序设计语言：Program p1_1;Var a,b,x:integer;BeginA:=3;b:=4;X:=a;a:=b;b:=x;Writeln(a=,a,b=,b);End.,【练一练】用流程图表示将A和B两个数中较大的数给MAX;,第三章 Pascal语言基础知识,3.1 程序设计的入门语言Pascal3.2 Pacal基本符号3.3

3、 Pascal保留字3.4 Pascal标识符3.5 Pascal的数据类型3.6 常量和变量3.7 Pascal标准函数3.8 Pascal的运算符及表达式3.9 ASCII码3.10 Pascal程序的结构,3.1程序设计的入门语言Pascal,Pascal是世界上第一个结构化程序设计高级语言。,结构化,顺序结构,选择结构,循环结构,一个入口一个出口层次分明,例：结构化程序的结构由三种基本结构组成，下面（）不属于这三种基本结构？(A)顺序结构(B)输入输出结构(C)分支结构(D)循环结构,B,Pascal程序的一般结构,Program 程序名（参数表）;说明部分Begin语句部分End.,

4、(1)程序首部由保留字Program开头，后面跟一个程序名；其格式为:Program 程序名；程序名由用户自己取，它的第一个字符必须是英文字母或下划线，其后的字符只能是字母或数字和下划线组成，程序名中不能出现运算符、标点符和空格。,Pascal程序的说明部分,(2)说明部分程序中所用的常量、变量，或类型、及过程与自定义函数，需在使用之前预先说明，定义数据的属性（类型）。Var S，R，C:Real；是变量说明。只有被说明为某一类型的变量，在程序中才能将与该变量同类型的数值赋给该变量。变量说明的格式为:,Var 变量表：类型；,Pascal程序的语句部分,(3)语句部分指由保留字 Begin(开

5、始)至 End.(结尾)之间的语句系列，是解决问题的具体处理步骤，也是程序的执行部分。Pascal程序不管是哪部分，每句末尾都必须有分号(；)，但允许最接近 End 的那个语句末尾的分号省略；程序结束的End末尾必须有圆点(.)，是整个程序的结束标志。程序中花括号“”之间的部分为注释部分。,【练一练】1.Pascal程序的执行部分是_。A.程序体 B.语句 C.程序的说明部分和语句部分 D.整个程序2.标准pascal程序说明部分的正确顺序是_。A.lableconstvartype B.varconstlabletypeC.lableconsttypevar D.constvartypela

6、ble,B,C,3.2 Pascal基本符号,1.英文字母A Z a z 除字符串中的字母外，其他地方的字母不区分大小写。Var a:integer;var A:integer;2.数字0 1 2 3 4 5 6 7 8 93.特殊符号+-*/=():=.,;:.除规定的基本符号外，不允许使用其他的符号。,3.3 Pascal保留字,保留字：已被系统使用、有专门的用途。,1.程序、函数、过程的起始符号PROGRAM，FUNCTION，PROCEDURE2.说明部分的专用定义符号ARRAY，CONST，FILE，LABEL，PACKED，VAR，RECORD，SET，TYPE3.语句专用符号CA

7、SE，DO，DOWNTO，ELSE，FOR，GOTO，IF，OF，REPEAT，THEN，TO，UNTIL，WHILE，WITH，FORWARD4.运算符号AND，DIV，IN，MOD，NOT，OR5.分隔符号BEGIN，END6.空指针常量NIL,3.4 Pascal标识符,标识符：以字母或下划线开头的字母、数学、下划线序列。,1.常用的标准标识符：标准常量FalseMaxintTrue标准类型BooleanCharReal Integer Text标准函数AbsArctanChr CosEofEolnExpLnOdd Ord PredRoundSin SqrSqrt SuccTrunc标准

8、过程Get NewPack Page Put ReadReadln Reset RewriteUnpack WriteWriteln标准文件InputOutput2.用户自定义标识符：由你自己根据需要来定义。允许大小写混合，但不能与标准标识符或保留字同名。,【练一练】1.下列中合法的PASCAL标识符是（）。A1B2C3(B)FOR(C)2AB(D)A12.下列是非法的标识符的是（）。A.A23456 B.A_17 C.3X D.P5Q3.下例不是保留字的是（）。A.NEW B.PROGRAM C.DIV D.VAR,A,C,A,3.5 Pascal的数据类型,1.标准数据类型,2.自定义类型

9、 枚举型、子界型,下面（）是Pascal数。(A)73e4(B)-e4(C)36.74-e6(D)1,742,258下面（）是实数。(A)10(B)0.0(C)0(D)0下面有效的Pascal字符型数据是（）。(A)This is(B)6(C)Y(D),A,B,D,3.6 常量和变量,1.常量：在程序执行过程中其值不能改变的数据。,2.变量：相对于常量，在程序执行中值可变。,常量定义：常量定义出现在说明部分。它的语法格式是：const=;.=;例如：const a=12 隐含说明a是整型；,变量说明：变量说明出现在说明部分。它的语法格式是：var:;.:;,下面常量定义中正确的是（）。(A)c

10、onst d=40 or d=100(B)const s:0.5(C)const s=2.15(D)const s:=(25);下列变量说明中，不合法的是（）。(A)var a=real;(B)var r:Real(C)var red:Integer(D)var i1,i2:Integer;,C,A,3.7 Pascal标准函数,熟悉各个标准函数的用途注意函数的自变量的类型和函数值的类型,标准函数1.数学函数Abs(x)inc(x)sqr(x)sqrt(x)Abs(-1)=1 inc(5)=6 sqr(3)=9 sqrt(16)=4 2.转换函数chr(x)ord(x)round(x)trun

11、c(x)chr(97)=aord(A)=65 round(4.6)=5trunc(1.999)=13.顺序函数Pred(x)succ(x)Pred(b)=a succ(a)=b 4.逻辑函数Odd(x)eoln(x)eof(x)odd(5)=true,下列函数值是整型的是（）。(A)chr(23)(B)ord(false)(C)succ(false)(D)odd(98)下列函数值不可能是布尔类型的是（）。(A)odd(x)(B)ord(x)(C)pred(x)(D)succ(x),B,B,设有变量说明：VAR AA：(C，G，A，J，K)；则函数SUCC(A)的取值是（）。(A)G(B)3(C

12、)J(D)B,C,3.8 Pascal的运算符及表达式,1.运算符a.算术运算符+-*/divmod b.逻辑运算符not and or c.关系运算符=2.表达式 算术表达式、逻辑表达式、关系表达式,注意表达式中的运算符优先级别：（1）同级运算从左到右，不同级别运算从高到低运算；（2）括号优先级最高，从内到外逐层降低；（3）not优先级为4；（4）*，/，div，mod，and优先级别为3；（5）+，-，or优先级别为2。（6）关系运算符优先级别为1。,表达式35 div 3 mod 4的值是（）。(A)0(B)2(C)3(D)6下列表达式中，其值为TRUE的是（）。(A)150=150(B

13、)100150(C)ABS(-200)200(D)SUCC(A)SUCC(A)表达式10*4 mod 5*22/4*5的值是。i是j的整数倍的布尔表达式，m是偶数的布尔表达式是，y是闰年的布尔表达式是。,C,0,i mod j=0,Not(odd(m)或者m mod 2=0,（y mod 4=0）and（y mod 100 0）or（y mod 400=0）,A,3.9 ASCII码,ASCII码：美国标准信息交换代码 8位二进制 右面7位表示字符 最高位检验错误，或空闲不用,常用字符的ASCII：字符 ASCII码0 48A 65a 97,有一编码规则如下：原码：A B C X Y Z密码：

14、Z Y X C B A已知原码变量为x，则密码的表达式是。,Chr(ord(A)+ord(Z)-ord(x),3.10 Pascal程序的结构,program exam1;var r,c,s:integer;begin readln(r);c:=3.14*2*r;s:=3.14*r*r;writeln(c,s);end.,执行部分,程序体,读入圆的半径r,求周长c,求面积s,输出周长与面积,第四章 顺序结构程序设计,4.1 赋值语句,变量标识符:=表达式；,注意：1.不要与=混淆，具有方向性2.先计算表达式的值，后赋值给变量3.两边类型应相同，例外：当表达式的值为整型时，能自动转变成实型后赋给

15、一个实型变量4.一个赋值语句只能给一个变量赋值5.变量可进行多次赋值6.赋值语句左边只能是单个变量,Program P4_1(input,output);Const a=128;Var b,d:integer;c:real;Begin b:=a div 16;先计算a div 16，得8，再赋给b c:=a/b;计算a/b得16，再自动变为实型16.0赋给c d:=a;d的值为128End.,Program P4_2(input,output);Var b,d:integer;Begin a:=1;b:=2;a:=b;b:=a;End.,在程序中，经常用a:=a+1作计数器，a:=a+x作累加

16、器，a:=a*x作累乘器。,下列（）程序行是对的。(A)x:=y:=5;(B)a+b:=c3(C)y:=1;y:=y+1;(D)i:=x10;,C,已知R1，R2是实型变量，I1，I2是整型变量下列中错误的赋值语句是（）。(A)I2：=I1+I2 DIV I1(B)I1：=I1/I2(C)R2：=3/5*SQR(R1+R2)(D)R1：=R2+I1,B,有变量说明：VAR I1，I2：INTEGER；R1，R2：REAL；B1，B2：BOOLEAN；设各变量均已赋值，下列语句中无语法错误的是（）。(A)B2:=ORD(R1R2)(B)I2:=I1+R1(C)B1:=I1=I2(D)B1:=B1

17、+B2,C,4.2 输入（read、readln）语句,输入语句的格式：read（变量列表）；readln（变量列表）；,执行该语句时，程序进入等待状态，等待用户从键盘输入数据，输入的数据将依次赋给变量表中的变量。,注意：1.变量表中的变量可以是一个，也可以是多个，多个时，要以逗号分开。2.从键盘输入数据时，数据的个数不能少于变量的个数，否则系统仍处于等待状态。当数据多于变量个数时，对于readln语句便将其忽略。对于read语句，要么将其忽略，要么被下一个语句读入。3.输入数值型数据时，数据间用空格或回车键分隔，最后一定要按回车。输入字符型数据时，数据间不能用空格或回车分隔，必须连续输入。4

18、.从键盘输入的数据必须是常量，且与变量的类型要一致。5.Readln后可以没有变量名表，（）中内容是可选项。此时该语句只相当读入“回车”符。,输入数值型的数据时，用空格间隔，直到输入回车。输入字符型时，就不能用空格间隔，也不能用回车分隔。,设x是整型变量，y是实型变量，ch1和ch2是字符型变量，输入语句写作：Read(x,y,ch1,ch2);若想得到的执行结果为：x=50，y=4.2，ch1=a，ch2=b。输入：50 4.2ab,如果出入：50 4.2 ab 结果会是怎么样的？,Read与Readln的区别：当输入的个数多于变量的个数时，readln忽略掉多余；read要么忽略，要么被下

19、一个输入语句读入。Read后面必须有变量表，且只能是变量；readln后允许没有变量表，若没有，其作用的是换行读取数据。,(1)Read(a);Read(b,c,d,e);Read(f,g);(2)Readln(a);Readln(b,c,d,e);Readln(f,g);如果两组语句输入相同的数据：1 2 34 5 67 8 9 那么两组语句的执行结果会怎样？,a=1b=2 c=3 d=4 e=5f=6 g=7,a=1b=4 c=5 d=6 e=7f=0 g=0,4.3 输出（write、writeln）语句,输出可以是一项，也可以是多项，输出多项时各项以逗号分隔。输出项可以是任何一个标准数

20、据类型。输出项可以是常量，变量，表达式，字符串，函数。Write语句输出完最后一项后不换行，此语句至少含有一个输出项。Writeln语句输出完最后一项后换行，该语句允许没有输出项，此时该语句不输出任何内容，只起换行作用。,输入语句的格式：write（变量列表）；writeln（变量列表）；,Program P4_3(input,output);Const a=1;b=2;Begin writeln(6);writeln(a);writeln(sqr(3);writeln(a+b);writeln(a+b,a+b);write(pi=);writeln(3.14);End.,输出项可以是常量，变

21、量，表达式，字符串。Write与writeln的区别Write输出后不换行，而writeln换行。Write至少有一个输出项，而writeln可以没有输出项，仅起换行作用。场宽场宽：数据输出时所占据的列数。1.标准场宽整型 12 实型 17（以科学计数法输出）字符型 1 布尔型 4（true）或5（false）默认时按标准输出，小于场宽时左侧补空格,2.自定义场宽（1）单场宽场宽可以是正整数，也可是值为正整数的整型表达式。输出超过场宽时，自定义场宽失效，按实际位数输出。输出项可以是：整型，布尔型和字符型，但不允许是实型。（2）双场宽双场宽：用来表示实数的输出格式。定义：输出项：总场宽：小数位数

22、没有达到场宽时，左侧补空格；超出时，按实际输出。双场宽的输出结果并未改变该数的精度。Writeln(-10.1195:9:3);输出：-10.120,设有程序 PROGRAM exam(Input，Output)；Var ch1，ch2，ch3：Char；BEGIN Readln(ch1，ch2，ch3)；Readln(ch1，ch2)；Readln(ch1)；Writeln(ch1，ch2，ch3)END.运行以上程序时，若输入为：abc def ghi 则输出是（）。(A)abc(B)gec(C)ceg(D)adg,B,下面的输出语句中错误的语句是()(A)Writeln($is used

23、 to mean US doller)；(B)Writeln(The word china has five letters)；(C)Writeln(The sign$is used to mean USdoller)；(D)Writeln(The word china has five letters)；,D,设A，B，C为整型变量，并有以下程序段：READ(A);READLN(B,C);READLN(C,B);READLN(A,B);WRITELN(A:2,B:2,C:2);若运行时输入：1 2 3 4 5 6 7 8 9 则输出是（）。(A)1 2 3(B)1 4 7(C)7 8 3(D

24、)7 8 4,D,写出程序的运行结果 PROGRAM P4_3(Input，Output)；Var a:integer;b:real;c:char;d:boolean;BEGIN a:=78;b:=2003.09;c:=%;d:=true;writeln(a,a:2);writeln(b,b:5:2);writeln(c,c:2);writeln(d,d:5);writeln(zhe:6);END.,4.4 编程需要好算法,分析问题设计算法编写程序上机调试,数学模型方法和步骤实现算法编辑、调试、运行,算法的特点：有穷性：有限个步骤终止确定性：每一项计算有明确的定义可行性：每一项计算在有限时间内

25、完成输入输出：输入可无，输出必有,4.5 编程小指挥流程图,N-S图：,基本结构：顺序结构、选择结构、循环结构,输入两个数（例如2和3），将其中的大数存入max。试用三种方式描述算法。,(1)自然语言描述算法为变量a赋值2，为变量b赋值为3；将a的值赋给max；比较b与max；当bmax时，将b的值赋给max；输出max的值。(2)流程图(3)N-S图,用N-S图写出下列问题的算法。1.某航空公司，对旅客随身携带的物品收费标准为：30kg以下（含30kg）不收费，超出30kg的部分每千克收20元。2.求n！。（n！=1*2*3*n）。,【练一练】输出下列程序的结果1.Program ex1;V

26、ar a,b,s,d:integer;L,e,g:boolean;Begin A:=3;b:=7;S:=a+b;d:=a div b;l:=ab;write(s=,s:5);writeln(d=,d:5);writeln(l=,l);writeln(e=,e,g=,g);Writeln(b/a:5:5);End.,2.Program ex2;Var a,b:integer;C,d:boolean;Begin a:=8;b:=7;c:=odd(a);d:=odd(b);Writeln(c=,c);Writeln(d=,d);If ab then Begin If c=d then write(c

27、)Else write(d)endEnd.,结果是：s=10 d=0L=trueE=false g=false2.33333,结果是：C=falseD=truetrue,4.6 顺序结构程序设计,有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有多少粒糖果？,program ex2;var A,B,C:integer;beginA:=50;B:=43;C:=13;初始时每个小朋友所拥有的糖果数A:=A div 3;B:=B+A;

28、C:=C+A;甲小朋友分糖果后，每个人拥有的糖果数变化情况B:=B div 3;A:=A+B;C:=C+B;乙小朋友分糖果后，每个人拥有的糖果数变化情况C:=C div 3;A:=A+C;B:=B+C;丙小朋友分糖果后，每个人拥有的糖果数变化情况writeln(A=,A,B=,B,C=,C);输出结果readln;end.,4.7 应用实例,例1：,鸡兔同笼问题。已知鸡和兔的总数量是H，鸡兔腿的总数量为F，求鸡和兔各多少只。,分析：设鸡为c只，兔为r只，则有,C+r=H,2*c+4*r=F,解得：c=(4*H-F)DIV 2,r=H-c,程序：,鸡兔同笼问题。已知鸡和兔的总数量是H，鸡兔腿的总

29、数量为F，求鸡和兔各多少只。,第五章 选择结构程序设计,5.1 逻辑运算及布尔表达式,（1）布尔常量 const t=true;f=false;在程序的执行部分就可以用t代表“真”，f代表“假”。,（2）布尔变量 var t,f:boolean;定义后t和f就成了布尔变量，他们的值可能是true或false；,Pascal语言系统中将true和false的序号定为1和0，可以看出true要大于false，即：falsetrue.,注意：布尔变量的值只允许通过赋值获得，不能通过read语句输入。,（3）关系表达式 关系表达式是由关系运算符连接而成的表示变量关系的式子，表达运算符前后数据之间的大小

30、关系。,关系运算对数据的比较则是按照其序号大小关系进行比较的，如：XY。,关系运算符：等于=不等于 小于 小于等于=,（4）逻辑运算 逻辑运算符：not（非）、OR（或）、AND（与）,逻辑运算的注意点notandor括号函数、not*、/、div、mod、and+、-、or、=、=、同级从左至右逻辑表达式中，如果逻辑运算符连接的是布尔表达式，必须用括号将布尔表达式括起来，否则会发生逻辑错误，例如(a=0)。,表达式True AND NOT Odd(-202)(7-3=4)的值是（）。(A)True(B)False(C)0(D)1,B,5.2 条件（if）语句,5.1.1条件语句的两种形式if

31、 条件 then 语句1；if 条件 then 语句1 else 语句2；,布尔表达式或布尔变量,语句1后的；不要,Program e1(input,output);var a:integer;begin readln(a);if a mod 2=0 then writeln(a,-oushu);writeln(a,-jishu);end.,Program example1;var x,y:integer;begin write(Please input x,y:);readln(x,y);if xy then writeln(x=,x)else writeln(y=,y);end.,例：输入

32、两个整数，输出其中较大者。程序如下：,5.2 条件（if）语句,5.1.2复合语句,if a mod 2=0 thenbegin writeln(a,-oushu);b:=a;writeln(b);endelse writeln(a,-jishu);,复合语句的格式,Begin 语句1；语句2；语句3；语句n；end；,Program example2;var a,b:integer;begin readln(a,b);if ab then begin writeln(1)a);writeln(2)b);end else begin writeln(1)b);writeln(1)a);end;

33、end.,例：某超市要根据两种货物a和b的库存情况制定进货顺序，原则是库存少的具有优先进货权。程序如下：,Program test1;var x,y,z,t:integer;begin write(Please input x,y,z:);readln(x,y,z);if xy then begin t:=x;x:=y;y:=t;end;if xz then begin t:=x;x:=y;y:=t;end;if yz then begin t:=x;x:=z;z:=t;end;writeln(x,y:4,z:4);end.,练一练：已知程序如下，输出程序运行的结果。,输入数据：12 33 4

34、5,结果为：45 33 12,5.3 条件（if）语句的嵌套,注意：多层嵌套if语句时，要注意if、then、else的配套；其中else是与最近的一个if配套的。为了增强程序的可读性，最好将条件嵌套语句写成缩进式形式。,IF 条件 THEN BEGINif 条件1 then else；ENDELSE BEGINif 条件2 then else；end；,Program example4;var x:real;y:integer;begin write(Please input x:);readln(x);if x0 then y:=-1 else,例：有一个函数表达式为：,编写程序，输入x，

35、输出y的值。,If x0 then y:=1 else y:=0;Writeln(y=,y);End.,Program example5;var score:real;if score=60 begin then writeln(C)write(Please input the score:);else writeln(D);readln(score);end.write(deng ji shi:);if score=90 then writeln(A)else if score=80 then writeln(B)else,例：输入某同学的数学百分制成绩，要求输出成绩等级A、B、C、D。规定

36、90分以上为A，80-90分为B，60-79分为C，60分以下者为D。,下列程序段运行后，变量value的值为（）。X:=20;If X=10 then value:=5*X else value:=4*X;(A)100(B)80(C)90(D)70下列程序段运行后，变量max的值为（）。a:=5;b:=10;max:=a;if bmax then max:=b;(A)5(B)10(C)5和10(D)以上都不是,A,B,已知x=10,y=20,z=30,以下程序段执行后x,y,z的值应是（）。IF xy THEN z:=x;x:=y;y:=z;(A)x=10,y=20,z=30(B)x=20,

37、y=30,z=30(C)x=20,y=30,z=10(D)x=20,y=30,z=20,A,(C)if(ab)and(c=d)then x:=yelse m:=n(D)if ab thenbeginif c=d then x:=yend else m:=n,当同时满足a=b时把n赋给m，应选用的程序段是（）。,(A)if ab then if c=d then x:=y else m:=n(B)if ab then begin if c=d then x:=y else m:=n end,D,program ex1(input);var a,b:integer;c,d:Boolean;begi

38、n a:=8;b:=7;c:=odd(a);d:=odd(b);writeln(c=,c);writeln(d=,d);if ab then begin if c=d then write(c);else write(d);endend.输出：,c=falsed=truetrue,5.4 分情况（case）语句,Case语句：当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。,格式：case 表达式 of标号1：语句1；标号2：语句2；标号n：语句n；else 语句n+1end;,有序类型（整型、字符型、布尔型、枚举型、子界型），不能是实型,case语句在使用时有

39、几点要注意：1.end与case对应；标号与语句之间用“：”分隔；else与语句之间不用分隔符。2.标号必须是一常量，其类型与表达式的类型一致。3.可以多个标号对应同一条语句，标号之间用“，”分隔。4.语句可以是多个语句，但必须用语句括号beginend括起 5.case语句也可以嵌套,Program example6;var x,y,s:real;ch:char;begin write(Please input x,y,s:);readln(x,y);readln(ch);case ch of+:s:=x+y;-:s:=x-y;*:s:=x*y;/:s:=x/y;end;writeln(x:

40、8:2,ch,y:8:2,=,s:8:3)end.,例：设计一个简单的计算器，具有加、减、乘、除。,例：从键盘上读入年和月，输出该月有多少天。,program pcase2;var year,month,day:integer;runnian:boolean;begin write(Enter year and month:);readln(year,month);case month of 1,3,5,7,8,10,12:day:=31;4,6,9,11:day:=30;以上处理31天和30天的情况 2:begin runnian:=(year mod 400=0)or(year mod 4

41、=0)and(year mod 1000);case runnian of true:day:=29;false:day:=28;end;end;以上处理2月的情况：闰年29天，平年28天 end;end.,Program test1;var num1,num2:integer;begin write(Please input the first integer:);readln(num1);write(Please input the second integer:);readln(num2);if(num1num2)then writeln(num1,num2)else if(num1=n

42、um2)then writeln(num1,=,num2)else writeln(num1,num2);end.,阅读程序写结果：,输入：45 88,输入：33 22,输出：4588,输出：3222,Program test2;var a,b,c,d,sum:longint;begin readln(a,b,c,d);a:=a mod 23;b:=b mod 28;c:=c mod 33;sum:=a*5544+b*14421+c*1288 d;sum:=sum+21252;sum:=sum mod 21252 if(sum=0)then sum:=21252;writeln(sum);en

43、d.,输入：283 102 23 320,输出：8910,Program test3;var a,b:integer;begin read(a,b);case a of 1:b:=a*10;2:b:=a*20;3:b:=a*30;4:b:=a*40;5:b:=a*50;else b:=0;end;writeln(b);end.,输入：3 4,输入：8 5,输出：90,输出：0,Free Pascal实例演示,Program p2_01(input,output);Var a,b,c:integer;begin writeln(请输入两个数：);read(a,b);c:=a;a:=b;b:=c;

44、writeln(交换后的值是：,a:5,b:5);end.,这是一段Pascal语言写的代码，它运行的结果是什么？解决了什么问题呢？,编辑器中的代码,菜单栏,编辑窗口,状态栏,File菜单的介绍,File菜单用于对文件的管理，如新建文件、打开文件、保存文件等。,Edit菜单的介绍,Edit菜单用于对当前窗口中的内容进行编辑，如复制、粘贴、删除等。,Search菜单的介绍,Search菜单提供与字符串搜索的相关功能，如执行程序、单步执行等。,Run菜单的介绍,Run菜单提供在集成调试环境下运行Pascal的功能，如执行程序、单步执行等。,Compile菜单的介绍,Compile菜单提供在集成调试

45、环境下编译Pascal的功能，如编译、连接等。,Debug菜单的介绍,Debug菜单提供在集成调试环境下调试Pascal的功能，如设置断点、检查、修改变量、表达式等。,主菜单的菜单栏选项注意点（键盘操作）,按F10键，光标移到主菜单，再用键盘的左右方向键来选择所需的主菜单。按回车打开所选的主菜单。同时按在ALT键和所需主菜单项中的高亮度字母，即可选中并打开其子菜单。例如：Alt+F就可打开File菜单。,子菜单的使用说明,部分子菜单有快捷键操作，则可以通过此快捷键直接启动命令，如F3可以快速地打开“Open a file”窗口。子菜单项后有“”记号，表示该子菜单项还有下一级菜单；子菜单项后有“”记号，表示选择该操作后会出现相应的对话框。,编辑窗口的组成,状态栏的作用,提示当前状态下可用的快捷键。用于显示工作状态，提示当前程序所做的工作等等。,编辑窗口的组成,