https://trans.onionmixer.net/wiki/index.php?action=history&feed=atom&title=StartprogrammingusingObjectPascal%3ARepeatUntilLoopStartprogrammingusingObjectPascal:RepeatUntilLoop - Revision history2026-05-01T09:17:07ZRevision history for this page on the wikiMediaWiki 1.43.3https://trans.onionmixer.net/wiki/index.php?title=StartprogrammingusingObjectPascal:RepeatUntilLoop&diff=181&oldid=prevOnionmixer: SPOP repeatuntil순환문 페이지 추가2012-07-21T09:57:53Z<p>SPOP repeatuntil순환문 페이지 추가</p>
<p><b>New page</b></p><div>===repeat until 순환문===<br />
<br />
정한 횟수만큼 반복하는 ''for'' 순환문과는 다르게 ''repeat'' 순환문은 카운터가 없습니다. 각각의 상태가 일어나기까지(''True''를 되돌림) 순환하고, 그 다음에는 다음 구문으로 진행합니다.<br />
<br />
예제:<br />
<syntaxhighlight lang="pascal"><br />
var<br />
Num: Integer;<br />
begin<br />
repeat<br />
Write(‘Please input a number : ’);<br />
Readln(Num);<br />
until Num <= 0;<br />
Writeln('Finished, Press enter key to close');<br />
<br />
Readln;<br />
<br />
end.<br />
</syntaxhighlight><br />
<br />
앞의 예제에서, 프로그램은 순환문으로 진입하고 사용자에게 숫자를 입력하라고 요구합니다. 만약 숫자가 0보다 작거나 같다면, 순환문을 빠져나갈 것입니다. 만약 입력한 값이 0보다 크다면 순환은 계속될 것입니다.<br />
[[Category:StartprogrammingusingObjectPascal]]</div>Onionmixer