StartprogrammingusingObjectPascal:Sets: Difference between revisions

From 흡혈양파의 번역工房
Jump to navigation Jump to search
(SPOP 셋 페이지 추가)
 
(BR 수정)
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
======
===Set===


형식은 하나의 변수에 여러가지 속성이나 특징을 지닐 수 있습니다. 셋은 서수 값으로만 사용 합니다.
Set 형식은 하나의 변수에 여러가지 속성이나 특징을 지닐 수 있습니다. Set은 서수 값으로만 사용 합니다.


예를 들어, 프로그램에 운영체제 지원에 대해 정의하려 한다면, 다음처럼 할 수 있습니다.
예를 들어, 프로그램에 운영체제 지원에 대해 정의하려 한다면, 다음처럼 할 수 있습니다.


1. 운영 체제를 나타내는 서수 형식을 정의합니다: TApplicationEnv
1. 운영 체제를 나타내는 서수형을 정의합니다: TApplicationEnv
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
TApplicationEnv = (aeLinux, aeMac, aeWindows);
TApplicationEnv = (aeLinux, aeMac, aeWindows);
</syntaxhighlight>
</syntaxhighlight>


2. 프로그램을 TApplicationEnv의 셋으로 정의합니다.[[BR]]
2. 프로그램을 TApplicationEnv의 Set으로 정의합니다.<BR>
예를 들면
예를 들면
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
Line 16: Line 16:
</syntaxhighlight>
</syntaxhighlight>


3. 프로그램 변수에 운영체제 값을 넣습니다.
3. 프로그램 Set 변수에 운영체제 값을 넣습니다.
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
FireFox:= [aeLinux, aeWindows];
FireFox:= [aeLinux, aeWindows];
Line 62: Line 62:
</syntaxhighlight>
</syntaxhighlight>


또한 정수들
또한 정수
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
     if Month in [1, 3, 5, 7, 8, 10, 12] then
     if Month in [1, 3, 5, 7, 8, 10, 12] then
Line 68: Line 68:
</syntaxhighlight>
</syntaxhighlight>


또는 문자들 같은 다른 서수 형식에 대한 구문을 사용할 수 있습니다.
또는 문자와 같은 다른 서수형에 대한 Set 구문을 사용할 수 있습니다.
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
     if Char in [‘a’, ‘A’] then
     if Char in ['a', 'A'] then
         Writeln('This letter is A');
         Writeln('This letter is A');
</syntaxhighlight>
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]
[[Category:StartprogrammingusingObjectPascal]]

Latest revision as of 05:24, 5 January 2013

Set

Set 형식은 하나의 변수에 여러가지 속성이나 특징을 지닐 수 있습니다. Set은 서수 값으로만 사용 합니다.

예를 들어, 프로그램에 운영체제 지원에 대해 정의하려 한다면, 다음처럼 할 수 있습니다.

1. 운영 체제를 나타내는 서수형을 정의합니다: TApplicationEnv

TApplicationEnv = (aeLinux, aeMac, aeWindows);

2. 프로그램을 TApplicationEnv의 Set으로 정의합니다.
예를 들면

FireFox: set of TApplicationEnv;

3. 프로그램 Set 변수에 운영체제 값을 넣습니다.

FireFox:= [aeLinux, aeWindows];
Program Sets;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

type
    TApplicationEnv = (aeLinux, aeMac, aeWindows);
var
    FireFox: set of TApplicationEnv;
    SuperTux: set of TApplicationEnv;
    Delphi: set of TApplicationEnv;
    Lazarus: set of TApplicationEnv;
begin
    FireFox:= [aeLinux, aeWindows];
    SuperTux:= [aeLinux];
    Delphi:= [aeWindows];
    Lazarus:= [aeLinux, aeMac, aeWindows];

    if aeLinux in Lazarus then
        Writeln('There is a version for Lazarus under Linux')
    else
        Writeln('There is no version of Lazarus under linux');
    if aeLinux in SuperTux then
        Writeln('There is a version for SuperTux under Linux')
    else
        Writeln('There is no version of SuperTux under linux');
    if aeMac in SuperTux then
        Writeln('There is a version for SuperTux under Mac')
    else
        Writeln('There is no version of SuperTux under Mac');
    Readln;
end.

또한 정수

    if Month in [1, 3, 5, 7, 8, 10, 12] then
        Writeln('This month contains 31 days');

또는 문자와 같은 다른 서수형에 대한 Set 구문을 사용할 수 있습니다.

    if Char in ['a', 'A'] then
        Writeln('This letter is A');