資源描述：
《帕斯卡pascal教程.ppt》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、PASCAL程序設(shè)計(jì)信息技術(shù)教研組PASCAL是一種結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言基本的程序結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)IF語(yǔ)句CASE語(yǔ)句輸入語(yǔ)句賦值語(yǔ)句輸出語(yǔ)句FOR語(yǔ)句WHILE語(yǔ)句REPEAT語(yǔ)句FOR語(yǔ)句FOR循環(huán)變量:=初值TO終值DO循環(huán)體FOR語(yǔ)句的功能：對(duì)于初值和終值之間的每一個(gè)循環(huán)變量的值，重復(fù)執(zhí)行循環(huán)體。FOR語(yǔ)句的執(zhí)行過(guò)程：首先將初值賦給循環(huán)變量，然后將循環(huán)變量與終值比較，當(dāng)循環(huán)變量的值小于等于終值時(shí)，執(zhí)行循環(huán)體。在每次執(zhí)行循環(huán)體以后，將循環(huán)變量的后繼值賦給循環(huán)變量，然后再與終值比較，若它仍小于等于終值，則再次執(zhí)行循環(huán)體，否則結(jié)束FOR語(yǔ)句，執(zhí)行FOR
2、語(yǔ)句后面的下一個(gè)語(yǔ)句。例1輸出1~100之間的所有偶數(shù)。PROGRAMcase401;{輸出1到100之間的所有偶數(shù)}VARi:integer;BEGINFORi:=1TO100DOIF(iMOD2=0)THENwrite(i:5);{i:5表示i的場(chǎng)寬為5}END.例2計(jì)算10個(gè)數(shù)的和、積與平均值?；仡櫼幌隆坝?jì)算三個(gè)數(shù)的和、積與平均值”。分析：變量的逐個(gè)輸入、求和時(shí)變量的累加、求積時(shí)變量的累乘這些運(yùn)算都是一些重復(fù)的操作。利用FOR循環(huán)，只需要一個(gè)輸入變量x，執(zhí)行下列操作輸入一個(gè)實(shí)數(shù)放在變量x中;將sum（其初值為0）與x相加，結(jié)果再存入sum；將mul（其初值為
3、1）與x相乘，結(jié)果再存入mul；重復(fù)執(zhí)行10次PROGRAMcase402;{計(jì)算10個(gè)數(shù)的和、積與平均值}VARx,sum,mul,ave:real;i:integer;BEGINsum:=0;mul:=1;FORi:=1TO10DOBEGINread(x);sum:=sum+x;mul:=mul*x;END;ave:=sum/10;writeln('sum=',sum,'','mul=',mul,'','ave=',ave);END.PROGRAMcase402b;{計(jì)算n個(gè)數(shù)的和、積與平均值}CONSTn=10;VARx,sum,mul,ave:real;i
4、:integer;BEGINsum:=0;mul:=1;FORi:=1TOnDOBEGINread(x);sum:=sum+x;mul:=mul*x;END;ave:=sum/n;writeln('sum=',sum,'','mul=',mul,'','ave=',ave);END.拓展與延伸例3計(jì)算n!(n的階乘)n!=1x2x3x…xn（n是正整數(shù)）當(dāng)n較大時(shí)，n!是一個(gè)很大的數(shù),因此必須將存放n!的結(jié)果變量fac定義為實(shí)型。PROGRAMcase403;VARn,i:integer;fac:real;BEGINread(n);fac:=1;FORi:=TOn
5、DOfac:=fac*i;writeln(n,'!=',fac);END.21FOR語(yǔ)句的注意點(diǎn)循環(huán)變量的初值與終值可以是表達(dá)式（其特例是常量或變量）循環(huán)變量必須與初值、終值的類型相同，且只能是有序類型（整型、字符型、布爾型、枚舉型、子界型）實(shí)型不能作為循環(huán)變量和初值、終值的類型。循環(huán)變量必須在包括該循環(huán)的最內(nèi)分程序中說(shuō)明它的類型。循環(huán)體可以是任何單個(gè)語(yǔ)句或由多個(gè)語(yǔ)句組成的復(fù)合語(yǔ)句。FOR語(yǔ)句的注意點(diǎn)在循環(huán)執(zhí)行前，根據(jù)初、終值表達(dá)式計(jì)算初、終值，并由此決定循環(huán)的次數(shù)及循環(huán)變量的取值。在循環(huán)體中對(duì)初、終值表達(dá)式值的改變不會(huì)影響循環(huán)次數(shù)及循環(huán)變量的取值。在循環(huán)體中，不
6、允許用任何語(yǔ)句改變循環(huán)變量的值。從FOR循環(huán)退出時(shí)，循環(huán)變量的值是無(wú)定義的，不得使用。如果初值大于終值，循環(huán)體將根本不執(zhí)行。FOR語(yǔ)句（二）FOR循環(huán)變量:=初值DOWNTO終值DO循環(huán)體注意:當(dāng)初值≥終值時(shí)，執(zhí)行循環(huán)體。PROGRAMcase404;{按正序和反序輸出字母表}VARch:char;BEGINFORch:='a'TO'z'DOwrite(ch);writeln;FORch:='z'DOWNTO'a'DOwrite(ch);writeln;END.例4按正序和反序輸出字母表例5求菲波拉契數(shù)列a0、a1、a2…a20a0=0a1=1a2=a0+a1a3
7、=a1+a2….an=an-2+an-1PROGRAMcase405;{菲波拉契數(shù)列}CONSTn=20;VARa0,a1,a2,i:integer;BEGINa0:=0;a1:=1;write(a0,'',a1,'');FORi:=2TOnDOBEGINa2:=a0+a1;write(a2,'');a0:=a1;a1:=a2;END;END.PROGRAMcase406a;{輸入30個(gè)學(xué)生的成績(jī)，分別統(tǒng)計(jì)85-100、60-84、60以下各分?jǐn)?shù)段的人數(shù)。}CONSTt=30;VARscore:real;num1,num2,num3,i:integer;BEGIN
8、num1:
