https://trans.onionmixer.net/wiki/index.php?action=history&feed=atom&title=StartprogrammingusingObjectPascal%3AStudentsDegreeProgram 2026-05-01T11:39:24Z Revision history for this page on the wiki MediaWiki 1.43.3 https://trans.onionmixer.net/wiki/index.php?title=StartprogrammingusingObjectPascal:StudentsDegreeProgram&diff=168&oldid=prev 2012-07-21T09:26:45Z

<p>SPOP 학생등급프로그램 페이지 추가</p> <p><b>New page</b></p><div>===학생 등급 프로그램===<br /> <br /> &lt;syntaxhighlight lang=&quot;pascal&quot;&gt;<br /> var<br /> Mark: Integer;<br /> begin<br /> Write(&#039;Press enter student mark: &#039;);<br /> Readln(Mark);<br /> Writeln;<br /> <br /> case Mark of<br /> 0 .. 39: Writeln(&#039;Student grade is: F&#039;);<br /> 40 .. 49: Writeln(&#039;Student grade is: E&#039;);<br /> 50 .. 59: Writeln(&#039;Student grade is: D&#039;);<br /> 60 .. 69: Writeln(&#039;Student grade is: C&#039;);<br /> 70 .. 84: Writeln(&#039;Student grade is: B&#039;);<br /> 85 .. 100: Writeln(&#039;Student grade is: A&#039;);<br /> else<br /> Writeln(&#039;Wrong mark&#039;);<br /> end;<br /> <br /> Write(&#039;Press enter key to close&#039;);<br /> Readln;<br /> end.<br /> &lt;/syntaxhighlight&gt;<br /> <br /> 위의 예시에서 (0 .. 39)와 같은 범위를 사용했으며, &#039;&#039;Mark&#039;&#039; 값이 이 범위에 존재하면 &#039;&#039;True&#039;&#039;를 되돌릴 것이라는 의미입니다.<br /> <br /> &#039;&#039;&#039;참고&#039;&#039;&#039;&lt;br&gt;<br /> &#039;&#039;Case&#039;&#039; 구문은 &#039;&#039;정수형&#039;&#039;들과 &#039;&#039;문자형&#039;&#039;과 같은 서수형에만 동작하지만, &#039;&#039;문자열&#039;&#039;과 &#039;&#039;실수&#039;&#039;와 같은 다른 형과는 동작하지 않습니다.<br /> [[Category:StartprogrammingusingObjectPascal]]</div>

Onionmixer