За изпълнение на циклични алгоритми, т.е. алгоритми, които съдържат едни и същи повтарящи се операции, се използват специални оператори цикъл. В Pascal има три вида на цикъла: Защото ако и повторете. ЗА изявление линия в писмена форма:
ЗА променлива: = започват стойност до края стойност DO
ЗА променлива: = започват стойност Downto крайна стойност DO
Тук променливата - всяка променлива поредния тип, наречен в този контекст, че променливата на цикъла, първоначалната стойност и крайната стойност - израз на един и същ вид (с изключение, както винаги прави за различни видове цели числа). За линия се изпълнява както следва: променливата на цикъла се определя първоначалната стойност и след това тялото на цикъла (оператора или устройството идва след DO). Тези две стъпки заедно представляват една стъпка цикъл. След променливата на цикъла се определя следващия цикъл (ЗА. ЗА) или предишния цикъл (ЗА Downto.) Стойност (Succ изземване функция и Pred) се извършва и в следващия етап от цикъла. Това се случва, докато стойността на променливата на цикъла е по-голяма от (ЗА. ЗА) или по-малко (ЗА. Downto) крайна стойност. ЗА цикъл не може да бъде изпълнено дори веднъж, ако първоначалната стойност е по-голяма от финалната линия ЗА. ДА или долния край на една линия ЗА. Downto. Пишем два примера за използването на за линия. Изчисляваме сумата от квадратите на цели числа от 1 до N.
CONST S. Реални = 0; N = 22;
Започне защото: = 1 до п и DO: = S + SQR (I); WRITELN ( "сума = ', т); END.
и показване на символите с индекси 32-255
Започне ЗА С: = '' до # 255 пишат (в); WRITELN; END.
Вторият тип цикъл - по време на цикъл - в писмена форма:
ДОКАТО Булев израз DO изявление / блок
Тук логическият израз - всеки израз от тип Булева. Веригата се извършва, както следва. Булева експресия се оценява и ако е вярно, тялото линия, в противен случай цикълът завършва. Очевидно е, че една линия, докато може или не може да се изпълни нито веднъж, и извършва безброй пъти (в последния случай ние казваме, че програмата е една линия). Пишем предходните две задачи с помощта на линия, докато:
CONST аз. Word = 1; с. Реални = 0; N = 22;
ЗАПОЧНЕТЕ докато аз<=N DO BEGIN s:=s+SQR(i); INC(i); END;
Свързани статии