華閱文章網PASCAL FOR 循環語句
循環次數已知時，可以用for語句實現循環結構。
for語句有兩種格式：遞增型和遞減型。
(1)遞增型for語句格式
for<；循環變量>:=<；初值>to<；終值>do<；語句>;
(2)遞減型for語句格式 ，
for<；循環變量>:=<；初值>downto<；終值>do<；語句>;
其中，“循環變量"為一個有序類型的數據，
在第一種形式中，使用的是保留字to，循環變量則從“初值"開始逐一增加到“終值"；
在第二種形式中，使用的是保留字downto，“循環變量"則從“初值"開始逐一遞減到“終值"，每次執行一次循環體語句。
下面繼續改寫上述求1~1 O之和的程序代碼如下：
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i;
end;
pascal 語言中的FOR循環語句的結構
Pascal語言中for循環語句是計數型循環，所以可以知道循環的次數，結構如下：
for := to do ;
for := downto do ;
解釋：
在第一種格式中，先被賦值于，然后執行一次，之后自加1，再執行一次……一直到等于，執行最后一次后，結束循環。
在第二種格式中，先被賦值于，然后執行一次，之后自減1，再執行一次……一直到等于，執行最后一次后，結束循環。
注意事項：
其中的的數據類型必須為順序類型，但不能為int64型，與也得是順序類型；
如果是第一種格式，只有小于或等于時才能執行循環體，如果大于，則跳過該for循環語句而不執行；
如果是第二種格式，只有大于或等于時才能執行循環體，如果小于，則跳過該for循環語句而不執行；
在中，不可給賦值，否則會使得循環提前結束或進入死循環；
在for循環語句中，允許嵌套。
for語句（pascal）
程序中 for a:=1 to 20 do Writeln (a)； 是for循環語句。
for 循環語句有兩種格式：
(1) for 循環變量：=初值 To 終值 do 語句；
(2) for 循環變量：=初值 downto 終值 do 語句；
第（1）種格式的初值小于等于終值，循環變量值按自動加1遞增變化；
第（2）種格式的初值大于或等于終值，循環變量值按自動減1遞減變化。for 循環是 （以遞增1或以遞減1） 計數型循環。
比如： 若將[例3.1]程序改為倒計數（遞減）循環，則輸出20~1的自然數數：
Program Exam31;
Var a: byte;
Begin
for a:=20 downto 1 do
Writeln(a) ;
Readln
End.
《pascaL語言教程》for循環語句試題答案
咱們可能是同一個學校的，因為今天晚上我要做的作業剛好就是這個。
剛做完，百分之百正確。明天照著抄就可以了。
第九題：program pingfen; VAR a,max,min,i:integer; s:real; begin readln(a); max:=a; min:=a; s:=a; for i:=2 to 10 do begin readln(a); s:=s+a; if a>max then max:=a; if a
關于pascal語言for語句的幾個小問題（急）
第一個：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 50 do
sum:=sum+2*c-1;
writeln(sum);
end.
第二個：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 34 do
sum:=sum+c*3-2;
writeln(sum);
end.
第三個：
var a:array[1..10] of integer;c,d,e:integer;k:real;
begin
for c:=1 to 10 do read(a[c]);
for c:=1 to 9 do
for d:=c+1 to 10 do
if a[c]>a[d] then begin
e:=a[c];a[c]:=a[d];a[d]:=e;
end;
k:=0;
for c:=2 to 9 do k:=k+a[c];
writeln(k/8:0:2);
end.
第三題的排序沒必要用快排，冒泡足矣，最后的結果保留了2位小數
pascal題目,要用for語句
*:integer;j,p:char;w:array[a..d] of Integer;beginfor i:=1 to n dobegin read(p); case p of a:Inc(w[a]); b:Inc(w[b]); c:Inc(w[c]); d:Inc(w[d]); end;end;for j:='a' to 'd' dowriteln(j,'piao shu wei',w[j]);end;20.w:=45,x:=70for i:=1 to 13 dobeginwrite(char(ord(w+i-1)));w:=w+2;write(char(ord(x-i+1)));x:=x-2;end;21const n=自己寫上；varmax,min,i,maxhao,minhao:integer;a:array[1..n] of Integer;beginmax:=a[1];min:=a[1];for i:=2 to n tobeginif a[i]>max then begin max:=a[i]; maxhao:=i; end;if a[i] .。 轉載請注明出處華閱文章網 » for語句pascal
