StartprogrammingusingObjectPascal:StudentsDegreeProgram

학생 등급 프로그램

var
    Mark: Integer;
begin
    Write('Press enter student mark: ');
    Readln(Mark);
    Writeln;

    case Mark of
        0 .. 39: Writeln('Student grade is: F');
        40 .. 49: Writeln('Student grade is: E');
        50 .. 59: Writeln('Student grade is: D');
        60 .. 69: Writeln('Student grade is: C');
        70 .. 84: Writeln('Student grade is: B');
        85 .. 100: Writeln('Student grade is: A');
    else
        Writeln('Wrong mark');
    end;

    Write('Press enter key to close');
    Readln;
end.

위의 예시에서 (0 .. 39)와 같은 범위를 사용했으며, Mark 값이 이 범위에 존재하면 True를 되돌릴 것이라는 의미입니다.

참고
Case 구문은 정수형들과 문자형과 같은 서수형에만 동작하지만, 문자열과 실수와 같은 다른 형과는 동작하지 않습니다.