搜索
Pascal程序设计(小学版)循环结构程序设计当型循环和直到型循环当型循环(while)while布尔表达式dobegin语句1;语句2；…end;格式：循环体当布尔表达式为真执行循环体，为假则退出循环体。例：whilea4dobegina:=a+1;end;当型循环(while)例1：求s=2+6+10+14+18+……+94+98的值programli1;vars,x:integer;beginx:=2;s:=0;whilex=98dobegins:=s+x;x:=x+4;end;writeln(‘s=‘，s);readln;end.练习一：看程序，写结果programlianxi1;vara,b,c:integer;begina:=8;b:=3;c:=2;whilea-b2dobegina:=a-b;end;write(‘a=‘,a);readln;end.例3：看程序，写结果programli2;vari,k:integer;begini:=10;k:=0;while(i=10)and(i=30)dobegink:=k+i;i:=i+2;end;writeln(‘k=‘,k);readln;end.直到型循环(repeat)格式：repeat语句1；语句2；…语句n;until布尔表达式；当布尔表达式是假，执行循环体，直到布尔表达式是真时，退出循环。循环体例：vara,b:integer;repeata:=a+3;b:=b+2;untila+b20;writeln(a,b);readln;直到型循环(repeat)练习2：看程序，写结果programlianxi2;varn,k:integer;beginread(n);k:=n;repeatk:=k-1;untilnmodk=0;write(k);readln;end.转向语句(goto)Goto语句使用的标号必须在程序说明部分的最前面进行说明。说明的格式：label标号1,标号2,…；转向的格式：goto标号转向语句(goto)练习2：programlx3;label1;vari,t:integer;begini:=1;1:ifi=10thenbegint:=t+I;i:=i+1;goto1end;write(‘t=‘,t);readln;end.练习3：编写程序：输入n个整数，计算它们之和。programlx3;vari,n,x,s:integer;beginreadln(n);s:=0;fori:=1tondobeginread(x);s:=s+x;end;writeln(s);readln;end.