|
||||||||
2001/04/21 改定 次のようなことを考えて改定中です。
|
代入 | a := 10; | 変数に、値を代入する。 |
条件 |
if n = 0 then begin a := 1; b := 1; end else a := 2; |
式がtrueだったら、thenの次の文を実行し、falseだったらelseの次の文を実行する。 elseの直前の文には;がつかないことに注意。 |
条件 |
case n of 0..2 : a := 1; 3,4 : a := 3; 5..10: a := 2; else a := 0; end |
式の値で、下のリストに分岐する。 |
ループ文 |
for i:=0 to 10 do begin a := a + i; b := b * 2; end; |
カウンタの値を初期値から終値まで1ずつ増やしながら、 その次の文を実行する。 |
ループ文 |
while not (i mod 10) do begin i := i + 3; n := n + 1; end; |
式がtrueのあいだ次の文を実行する。 |
ループ文 |
repeat i := i * 2; a := a - 1; b := i * a; until b <= 15; |
untilの次の式がtrueの間repeatからuntilまでを実行する。 |
ジャンプ |
label Label1; begin for i := 0 to 10 do for j := 0 to 120 do for k := 0 to 120 do if i * j - k = 5 then goto Label1; Label1; end; |
ラベルまで無条件に飛びます。一般にgoto文はプログラムの流れが分かりにくなるので、使わない。多重ループから抜けるときには、使ってもよいかも。 |
Contact me <zakki@peppermint.jp> | © 2001-2006 zakki. | total: /yesterday: /today: |