Начинающему программеру может быть еще не знаком один нужный цикл while. Это обычная повторяющаяся операция в среде Pascal. Ее комфортно использовать в разных задачках, потому разберем, как можно включить в программку этот цикл.

Цикл While Паскаль просит оформлять последующим образом:

• While (Условие) do (begin если нужно).
• Метод деяния.
• End (при наличии команды begin).

1-ая строчка — «шапка» команды. Условием может являться предельное числовое значение перменной Integer (d<100), значение переменной типа boolean (t=True) либо string (tex=’hello’). Команда «begin» ставится, если в теле цикла нужно выполнить более 1-го условия. Дальше следует описание действий, которые программка должна выполнить при условии, что цикл While производится. Тут могут содержаться разные команды, процедуры, функции, подобные циклы. В конце нужно поставить команду «end», если, естественно, в первой строке стоял «begin».

Сейчас разглядим примеры программ, которые содержат описываемую команду. К примеру, нам нужно отыскать сумму первых n положительных целых чисел. Для этого вначале считаем n (пусть оно всегда будет больше нуля). Потом запускаем цикл. Принципиально осознавать, что он должен работать, пока не достигнет значения числа n. Тут существует не один вариант решения задачки, но мы остановимся на том, который затрагивает внедрение счетчика, который нужно установить. По дефлоту для этого употребляют переменную i. До работы с ней нужно ей присвоить значение «1». Счетчик играет роль слагаемого при каждых новых повторяющихся действиях. Исходя из нашей задачки, к нему повсевременно нужно добавлять единицу. Таким макаром, когда-нибудь числовой показатель счетчика сравняется со значением числа n. Это и будет сигнал для окончания работы программки. Для подсчета суммы введем переменную k. С каждым новым повторением ей будет присваиваться предшествующее значение плюс число i. После конечного подсчета следует только вывести перменную k на экран. Это короткое разъяснение программки словестно. Сейчас же смотрим на программный код.

Readln(n); ‘ — считываем число n.

i:=1; k:=0; ‘ — вводим в работу счетчик, обнуляем значение суммы.

While i<=n do begin ‘ — задаем условие работы цикла.

k:=k+i; i:=i+1; ‘ — добавляем значение к сумме, обновляем счетчик.

end; ‘ — завершаем описание работы While.

Writeln(k); — выводим данные.

Познакомимся с еще одним примером. Сейчас нам нужно, чтоб юзер с клавиатуры заполнил n имен, которые сохранит текстовой массив. Принцип тут аналогичен прошлому. Вводим число n, активируем цикл While, ставим условие. Дальше обозначем ввод с клавиатуры в память ячейки массива. Устанавливаем счетчик, завершаем повторные операции. Дальше обнуляем счетчик и выводим массив. Правда, обнулить счетчик в этом контексте означает присвоить ему значение единицы, потому что вы не можете вывести нулевую ячейку массива (ее не существует). Код программки последующий: из этой программки вы получите сумму ряда натуральных положительных чисел, который завершается введеным числом n. Следует осознавать, что в случае отсутствия счетчика, цикл While Pascal никогда не окончит. Если вы вдруг забудете про это, то при выполнении программного кода, начнет зависать компьютер. Это лечится кнопкой «Pause Break». В качестве счетчика для контраста используем перменную c.

Readln(n);

c:=1;

While c<=n do begin ‘ — установка условия.

Readln(a[c]); c:=c+1; ‘ — считываем данные с клавиатуры, прибавляем значение к счетчику.

end; ‘ — завершаем цикл.

c:=1; ‘ — возвращаем счетику начальное значение.

While c<=n do write(a[c]); ‘ — выводим на экран n имен.

После чего вы получите на дисплее n имен, которые были введены с клавиатуры. На этом знакомство с циклом While завершается. Его употребляют как новенькие, так и продвинутые юзеры. Он не имеет счетчика, потому просит особенного внимания программера и дополнительной переменной.