|
||||||||
|
2001/04/21 ���� ���̂悤�Ȃ��Ƃ��l���ĉ��蒆�ł��B
|
| ��� | a := 10; | �ϐ��ɁA�l��������B |
| ���� |
if n = 0 then begin a := 1; b := 1; end else a := 2; |
����true��������Athen�̎��̕������s���Afalse��������else�̎��̕������s����B else�̒��O�̕��ɂ�;�����Ȃ����Ƃɒ��ӁB |
| ���� |
case n of 0..2 : a := 1; 3,4 : a := 3; 5..10: a := 2; else a := 0; end |
���̒l�ŁA���̃��X�g�ɕ���B |
| ���[�v�� |
for i:=0 to 10 do begin a := a + i; b := b * 2; end; |
�J�E���^�̒l�������l����I�l�܂�1�����₵�Ȃ���A ���̎��̕������s����B |
| ���[�v�� |
while not (i mod 10) do begin i := i + 3; n := n + 1; end; |
����true�̂��������̕������s����B |
| ���[�v�� |
repeat i := i * 2; a := a - 1; b := i * a; until b <= 15; |
until�̎��̎���true�̊�repeat����until�܂ł����s����B |
| �W�����v |
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; |
���x���܂Ŗ������ɔ�т܂��B��ʂ�goto���̓v���O�����̗��ꂪ������ɂ��Ȃ�̂ŁA�g��Ȃ��B���d���[�v���甲����Ƃ��ɂ́A�g���Ă��悢�����B |





| Contact me <[email protected]> | © 2001-2006 zakki. |
total: |