«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

»нтернет-магазин Ormco. ѕо отличным ценам самолигирующие брекеты damon кью в —анкт-ѕетербурге.

{LTS}

 

ќператор REPEAT

ќператор повтора repeat аналогичен оператору while, но отличаетс€ от него, во-первых, тем, что условие провер€етс€ после очередного выполнени€ операторов тела цикла (очередной итерации) и таким образом гарантируетс€ хот€ бы однократное выполнение цикла, а во-вторых, тем, что критерием прекращени€ цикла €вл€етс€ равенство выражени€ константе True. «а это цикл repeat часто называют циклом с постусловием, или циклом Ђƒќї, так как он прекращает выполн€тьс€, как только значение выражени€ услови€, записанного после слова until, становитс€ равным True (истина).

ќператор повтора repeat состоит из заголовка repeat, тела и услови€ окончани€ until.

‘ормат записи:

repeat

<оператор>;

<оператор>;

until <условие окончани€ цикла>;

ќператоры, заключенные между словами repeat и until, €вл€ютс€ телом цикла. ¬начале выполн€етс€ тело цикла, затем провер€етс€ условие выхода из цикла. »менно поэтому цикл, организованный с помощью оператора repeat, в любом случае выполнитс€ хот€ бы один раз. ≈сли результат булевского выражени€ равен False, то тело цикла активизируетс€ еще раз; если результат равен True, то происходит выход из цикла.

ѕри программировании операторов тела цикла следует обеспечить вли€ние по крайней мере одного из операторов тела цикла на значение услови€, иначе цикл будет выполн€тьс€ бесконечно.

¬ следующем фрагменте показано, как оператор repeat используетс€ дл€ ожидани€ нажати€ клавиш Y и N. Ќажатие других клавиш будет игнорироватьс€:

uses Crt;
var
YN: char;
begin
 
repeat
YN:= ReadKey
until Upcase(YN) in ['Y'.'N'];

end.

ѕримером действи€ оператора repeat может служить программа DemoRepeat, котора€ вводит и суммирует любое количество целочисленных значений. ≈сли введено значение 999, то на экран выводитс€ результат суммировани€.
 
program DemoRepeat;
var
X; integer;
Sum; real;

begin

Sum:=0;

repeat {ѕовтор€ть}

Write('«начение ’= '): {Ќачало тела цикла}

Readln(X); {—читать очередное значение X с клавиатуры}

if X <> 999 then

Sum:= Sum+X;

until X = 999; {”словие окончани€ цикла}

Writeln('—умма введенных чисел= ', Sum);
end.

¬ данном примере в разделе описани€ переменных описана переменна€ X целочисленного типа integer и Sum вещественного типа real. ¬ начале выполнени€ программы обнул€етс€ значение суммы чисел. «атем при помощи зарезервированного слова repeat объ€вл€етс€ цикл, после чего следуют операторы тела цикла, которые вывод€т на экран запрос Ђ«начение X=ї и считывают введенное с клавиатуры значение X. ќператор if провер€ет его на неравенство числу 999 и, если оно не равно 999, увеличивает значение суммы Sum на значение числа X. ¬ конце цикла оператор until ’ = 999 провер€ет условие окончани€ цикла. ≈сли значение выражени€ X = 999 истинно, то цикл завершитс€, а управление в программе будет передано на оператор, наход€щийс€ за словом until, т. е. первый оператор за границей цикла repeat. Ёто вызов процедуры Writeln, котора€ выведет сообщение Ђ—умма введенных чисел равнаї и напечатает значение переменной Sum.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”словный оператор ќператор выбора ќператоры повтора (циклы) ÷икл FOR ќператор WHILE “естирование и отладка программ ¬строенные функции и процедуры —труктурированные типы данных ќбласть видимости идентификаторов ќписание строкового типа 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом