StartprogrammingusingObjectPascal:OrdinalTypes

서수 형식

서수 형식은 숫자 대신 단어 표시를 사용하는 정수값들입니다. 예를 들어, 언어 변수(Arabic / English / French)를 정의하려 한다면, Arabic에 1을, English에 2를, French에 3을 사용할 수 있습니다. 다른 프로그래머들은 이 값에 대한 주석을 찾기 전에는 1 과 2, 3에 대한 값을 알지 못합니다. 다음 예제와 같이 서수 형식을 사용한다면, 좀 더 알아보기 쉬울 것입니다.

Program OrdinalTypes;

{$mode objfpc}{$H+}

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

type
    TLanguageType = (ltArabic, ltEnglish);
var
    Lang: TLanguageType;
    AName: string;
    Selection: Byte;
begin
    Write('Please select Language: 1 (Arabic), 2 (English)');
    Readln(Selection);
    if Selection = 1 then
        Lang:= ltArabic
    else
    if selection = 2 then
        Lang:= ltEnglish
    else
        Writeln('Wrong entry');
    if Lang = ltArabic then
        Write(‘‫ :ماهو اسمك‬’)‬;
    else
        if Lang = ltEnglish then
            Write('What is your name: ');
    Readln(AName);
    if Lang = ltArabic then
    begin
        Writeln('مرحبً بك‬', AName);
‬        Write(‘‫الرجاء الضغط على مفتاح إدخال لغلق البرنامج‬’);
    end
    else
    if Lang = ltEnglish then
    begin
        Writeln('Hello ', AName);
        Write('Please press enter key to close');
    end;
    Readln;
end.

실수와 문자열은 서수 형식이 아닌 반면에 정수, 문자, 부울린은 서수 형식입니다.