|
|
IF 문...
If 문에는 2가지 형식이 있다.
If .. Then 과 If .. Then .. Else 문의 형식이 존재한다.
조건에 만족하는 경우 해당 문장을 수행하고, 조건에 만족하지 않는 경우는 해당 문장을 수행하지 않고서 넘어가게 된다.
하나의 조건 이외의 다른 조건에 대한 부분 조건의 수행을 달리 하기를 원하는 경우 Else If문을 사용하는데, 전체적인
If .. Then의 문법은 아래와 같다.
If <condition1> Then
Begin
statement1-1;
statement1-2;
End
Else If <condition2> Then
Begin
statement2-1;
statement2-2;
End;
|
|
예
제 1.
|
If i < 10 Then
Begin
ShowMessage('i는 10보다 작다.');
End
Else If i > 10 Then
Begin
ShowMessage('i는 10보다 크다.');
End;
|
|
예
제 2.
|
If i <= 10 Then
Begin
If i = 10 Then
ShowMessage('i는 10이다')
Else
ShowMessage('i는 10보다 작다.');
End
Else If i > 10 Then
Begin
ShowMessage('i는 10보다 크다.');
End;
|
If 문은 위의 예제처럼 중첩될 수도 있다.
Begin .. End 사이에 들어가는 문장의 수가 하나라면 위의 예제처럼 Begin .. End 를 생략해도 좋다.
또 한가지 주의할 점은 Else 앞에는 세미콜론(;)을 하면 안된다는 것이다.
Case 문...
Case문은 복잡한 if 조건을 읽기 좋게 만들 수 있는 대안이다.
즉, 프로그래머가 미리 정해진 "경우들"에 대하여 비교를 하고 이에 적당한 반응을 나타내도록 하는데
Case문은 적격이다.
Case <variable> of
<value1> : <하나 또는 하나 이상의 문장>;
<value2> : <하나 또는 하나 이상의 문장>;
Else
<하나 또는 하나 이상의 문장>
//Case값의 어느 경우에도 해당되지 않는 모든 값에 대해 적용된다.
End;
|
위의 Case문은 Ordinal타입이다(String타입은 유효하지 않다.)
Value에 나타나는 각 값은 case 문에서 유일해야만 한다.
값 중에 Value와 같은 값을 갖는 것이 없다면 Else절에 있는 Statement가
실행된다.
|
예 제.
|
Case i of
1..5 : Caption := 'Low';
6..9 : Caption := 'High';
0, 10..99 : Caption := 'Out of range';
Else
Caption := ' ';
End;
|
For ... Do 문...
For...Do 루프는 가장 단순한 루프 구조문들중의 하나로써, 루프문을 몇번이나 실행키길 것인지를 이미 알고 있을 때
사용하게 된다.
For <제어변수> := <초기값> to <최종값> do
statement;
또는
For <제어변수> := <초기값> downto <최종값> do
statement;
|
For문장은 <초기값>을 <제어변수>에 할당한다.
그리고 나서 순환 후에 <초기값>의 값을 증가시키거나 감소시키면서 반복적으로 statement를 실행하게
되는데 for...to는 증가를, for...downto는 감소하는 루프문이다.
|
예 제.
|
Sum := 0;
For X := 1 to 10 do
Begin
Sum := Sum + X;
End;
Edit1.Text := IntToStr(Sum); //Sum은 1부터 10까지의 합
|
While 문...
While문은 컨트롤하는 Boolean식이 참이면 단일의 문장이나 begin ... end 블록속에 묶인 일련의 문장들을
반복하고, 만일 Boolean식이 거짓이면 While문의 코드는 한번도 실행되지 않을 수 있다.
While <condition> do
begin
Statement1;
Statement2;
end;
|
|
예 제.
|
Sum := 0;
X := 1;
While X <= 10 Do
begin
Sum := Sum + X;
Inc(X);
end;
Edit1.Text := IntToStr(Sum); //Sum은 1부터 10까지의 합
|
이 때, For문은 X를 자동으로 증가시키므로 X를 증가시키는 부분이 필요없었지만, While문은 X를 증가시키는
부분이 필요하다. (Inc(X)에 대한 함수는 함수부분을 참조하기 바란다.)
Repeat 문.
반복수행을 필요로 하는 문장에 대해 반복수행문을 수행한 후, 조건검사를 하기 때문에 반복수행문을 적어도 한번은 수행을
한다.
Repeat
statements;
Until <condition>;
|
|
예 제.
|
Sum := 0;
X := 1;
Repeat
Sum := Sum + X;
Inc(X);
Until X > 10;
Edit1.Text := IntToStr(Sum); //Sum은 1부터 10까지의 합
|
Break와 Continue 문.
두 프로시저 Break와 Continue는 while, repeat, 그리고 for 블록의 실행을 제어한다.
Break문은 프로그램 흐름으로 하여금 반복 구조를 빠져 나오고 Continue문은 루프의 다음 문장을 수행하도록 만든다.
|
예 제.
|
X := 1;
// While True는 무한루프이지만 break를 사용하면 빠져나올 수 있다.
While True do
begin
Inc(X);
If X>10 then
begin
Showmessage('X가 10보다 크다');
Break;
end;
end;
-----------------------------------------------------------------------------------------
For X := 1 to 10 do
Begin
// X가 3으로 나눌 수 있는 수이면 메시지를 뿌려주고 For문의 End절로 넘어간다
if (X mod 3)=0 then
begin
Showmessage('X는 3의 배수이다');
Continue;
end;
//Continue문에 걸리면 이문장은 수행하지 않는다.
Edit1.Text := Edit1.Text + IntToStr(X);
end;
|
델파이
강좌 게시판
|
