pascal教程自学完整版(2)

?for循环的指针可以变化。第六讲while循环与repeat循环语法?whileBoolean表达式do句子?repeat语句…untilBoolean表达式?注：?until前可以不加‘；’例题?例3.6.1:读入一行数字，以回车为结束标志，牵programp3_6_1_1(input,output);vara,max:integer;beginmax:=-32768;repeatread(a);ifa>maxthenmax:=a;untileoln;readln;writeln(max);readln;end.例题?例3.6.1:读入一行数字，以回车为结束标志，牵programp3_6_1_2(input,output);vara,max:integer;beginmax:=-32768;whilenot(eoln)dobeginreadln(a);ifa>maxthenmax:=a;end;readln;writeln(max);readln;end.小方法?while句型与repeat句型转换?while句型表达式=not(repeat句型表达式)例题?3.6.2顺?00内所有整数。

programp3_6_2_1(input,output);vari:integer;begini:=1;whilei<=100dobeginwriteln(i);i:=i+1;end;readln;end.例题?3.6.2顺?00内所有整数。programp3_6_2_1(input,output);vari:integer;begini:=1;repeatwriteln(i);i:=i+1;untili=100;readln;end.第七讲goto语句语法?label数字?数字:?goto数字?label数字?goto数字?数字:例题?例3.7.1：顺械?00所有整数。programp3_7_1(input,output);label1;vari:integer;begini:=1;1:writeln(i);ifi<=100thengoto1;readln;end.ע?标号在1..9999之间，且不必定要按顺?goto语句可由其它语句代替。

?尽可能不用goto语句。第八讲小方法integer与char的特殊表达式?integer&+二进制数?char#+字节型?integer$+十六进制数注解?{……}?(*……*)?//……Pascal对汇编语言的支持?语法：asm……end第四章枚举、子界与数组Ŀ¼??????第一讲第二讲第三讲第四讲第五讲第六讲枚举型子界型一维函数字符串多维下标排序法第一讲枚举型语法?方法一?type类型名=(标示符1,标示符2…);?var变量名:类别名?方法二?var变量名:(标示符1,标示符2…);枚举型????是顺型不能直接read/write，要用case句型允许直接赋值，没有运算符类型定以喉庄数、过程参数，函数值例题例4.1.1：当输入星期几的数字,能输衬红是星期几。programp4_1_1(input,output);typeweek=(sun,mon,tue,wed,thu,fri,sat);vari:integer;day,succday:week;beginreadln(i);caseiof1:day:=mon;2:day:=tue;3:day:=wed;……end;if(day=sat)thensuccday:=sunelsesucday:=succ(day);write('Thenextdayis');casesuccdayofsun:writeln('sunday');mon:writeln('monday');tue:writeln('tuesday');…….end;end.第二讲子界型语法?方法一?type类型名最小值..最?var变量名:类别名?方法二?var变量名:最小值..最子界型?shortint=-128..127;?boolean没有子界型?类型定以喉庄数、过程参数，函数值?子界型也有顺型，也可以用for语句例题?例4.2.1：顺输车?00所有整数。

programp4_2_1(input,output);vari:1..100;beginfori:=1to100dowriteln(i);readln;end.第三讲一位函数语法?方法一?type类型名=array[车..终值]of类型名;?var变量名：类型名?方法二?var变量名：array[车..终值]of类型名;变量?不能直接赋值，用for语句?数组每一篙表示方式：变量名+数组（e.g.a[i+1]);?类型定以喉庄数、过程参数，函数值例题?例4.3.1：读入100脯先顺匈倒衟rogramp4_3_1(input,output);vara:array[1..100]ofinteger;i:1..100;beginfori:=1to100doread(a[i]);fori:=1to100dowriteln(a[i]);fori:=100downto1dowriteln(a[i]);readln;end.例题?例4.3.2：随机产生100脯先输迟将第一钙到最轰余每赶埔晃弧programp4_3_2(input,output);vara:array[1..100]ofinteger;i:integer;beginrandomize;fori:=1to100dobegina[i]:=random(100);writeln(a[i]);end;fori:=1to100dobegina[i]:=a[i]+a[i+1];a[i+1]:=a[i]-a[i+1];a[i]:=a[i]-a[i+1];end;fori:=1to100dowriteln(a[i]);readln;end.思考题?将一钢离为一搁。

?有一釜插入一搁，使其仍为顺?有两富顺虚，整合为一庚组，并输?有三富顺虚，整合为一庚组，并输出。第四讲字符串语法?var变量名：string[数字]?0<=数字<=255?即使不写下标，默认为255位?每一篙表示方式同一位字段。比较arrayofcharstring不能直接调用、输骋灾苯佣寥搿⑹涑可以对每一篙赋值不能对每一篙赋值不能进行整体赋值位数可以定义很大可以进行整体赋值位数最多255位有标准函数、过程没有标准变量、过程运算符????+’turbo’+#0+’pascal’+’7.0’=’turbopascal7.0’参与运算的类别可以是string和char运算结果类型为string例题?例4.4.1:读入一耕串，输承所有的字母。programp4_4_1(input,output);varst:string;i:integer;beginreadln(st);fori:=1tolength(st)dowrite(st[i]);readln;end.第五讲多维数组语法?船一位字段?array[车1..终值1,车2..终值2,…]of…?sz[下标1，下标2..]例题?例4.5.1：输臣programp4_5_1(input,output);vara:array[1..5,1..5]of0..9;i,j:integer;beginfori:=1to5doforj:=1to5doa[i,j]:=0;a[1,1]:=1;fori:=2to5doforj:=1toidoifj>1thena[i,j]:=a[i,j-1]+1elsea[i,j]:=a[i-1,1]+1;fori:=1to5dobeginforj:=1toidowrite(a[i,j],'');writeln;end;readln;end.第六讲排序法排锌的?将一搁升行恍。

??????选耘信菖判入法排兴俜掷嗯判并排惺判选耘序41111142222242222244444445555533333111114444455555111112222255555冒泡排序4111111142222222422222224444444444455555533333335111111144444445555555111111122222225555555例题?例4.6.1选耘衞gramp4_6_1(input,output);constn=7;vara:array[1..n]ofinteger;i,j,k,t:integer;beginwrite('Enterdate:');fori:=1tondoread(a[i]);writeln;fori:=1ton-1dobegink:=i;forj:=i+1tondoifa[j]<a[k]thenk:=j;ifk<>ithenbegint:=a[i];a[i]:=a[k];a[k]:=t;end;end;write('outputdata:');fori:=1tondowrite(a[i]:6);writeln;end.思考题?冒泡排序第五章过程与函数Ŀ¼????????第一讲第二讲第三讲第四讲第五讲第六讲第七讲第八讲子程蓄标准过程及标准变量自定义数组自定义过程变参与值参全程变量与局部变量forward子程卸套递归初步第一讲子程蓄子程序?函数function?过程procedure第二讲标准过程与标准变量链接第三讲自定义变量语法?function<自定义标示符>（<值参1>，<值参2>…:<类型1>;…;var<变参1>，<变参2>…:<类型1>;…）:<值类型>;?{说弥，同begin?……?函数名:=<同类别表达式>;?end;语法?定义宏准函数相同使用例题?例5.3.1：?4！+3！+2！+1！。

programp5_3_1(input,output);functionfac(n:integer):longint;vari:integer;begini:=n;n:=1;fori:=idownto1don:=n*i;fac:=n;end;beginwriteln(fac(1)+fac(2)+fac(3)+fac(4)+fac(5));readln;end.思考题?编写一覆面积的函数。第四讲自定义过程语法?procedure<自定义标示符>（<值参1>，<值参2>…:<类型1>;…;var<变参1>，<变参2>…:<类型1>;…）;?{说弥，同begin?……?end;语法?定义宏准过程相同使用例题?例5.3.2：?4！+3！+2！+1！。programp5_3_2(input,output);vararr:array[1..5]ofinteger;i,n:integer;proceduresum(n:integer;varm:integer);vari:integer;begini:=n;n:=1;fori:=idownto1don:=n*i;m:=n;end;beginn:=0;fori:=1to5doarr[i]:=i;fori:=1to5dosum(arr[i],arr[i]);fori:=1to5don:=n+arr[i];writeln(n);readln;end.思考题?编写一覆面积的过程。

?编写一浮下图的过程。第五讲变参与值参值参和变参?值参：特点：前面没有var；使用：返回时值还原。?变参：特点：前面有var；使用：返回时值不还原。第六讲全程变量与局部变量全程变量与局部变量?全程变量：?局部变量：子程序。例题?例5.6.2：?4！+3！+2！+1！。programp5_6_2(input,output);vararr:array[1..5]ofinteger;i,n:integer;proceduresum(n:integer;varm:integer);vari:integer;begini:=n;n:=1;fori:=idownto1don:=n*i;m:=n;end;beginn:=0;fori:=1to5doarr[i]:=i;fori:=1to5dosum(arr[i],arr[i]);fori:=1to5don:=n+arr[i];writeln(n);readln;end.第七讲forward语法（TP7）function/procedure1()forwardfunction/procedure2(){(2)}function/procedure1{(1)}语法（fpc）function/procedure1()forwardfunction/procedure2(){(2)}function/procedure1(){(1)}第八讲子程卸套递归初步定义?直接递归?在变量/过程外部自己引用自己?间接递归?A引用B，B引用A特点?结构清晰?容易阅读理解?动态产生变量使用须知?????设计前要有递归公式递归滴数有限要有结束递归的结束段落子问题墙式要与原问题同样分治法特点?运算效率低?占用空间大备注?理论上来说，递归式可以与递推（for语句）互换。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-134606-2.html