Логический цикл While

На этом уроке мы познакомимся c организацией логических циклических структур на языке Турбо-Паскаль.

Многократно повторяющийся участок вычислительного процесса называется циклом.

Циклы арифметическиеитерационные

Циклы бывают трех типов: с предусловием с постусловием с параметром (арифметический).

ОСОБЕННОСТИ ЦИКЛОВ: значения переменных, используемых в операторе и не изменяемых в нем, должны быть определены до входа в цикл; вход в цикл возможен только через его начало; выход осуществляется как вследствие естественного окончания цикла, так и с помощью операторов перехода, содержащихся внутри тела цикла.

ЦИКЛ С ПРЕДУСЛОВИЕМ (цикл "пока")

Проверка условия производится перед выполнением блока операторов while do ; - тип boolean

ОСОБЕННОСТЬ : тело цикла с предусловием может ни разу не выполниться (если выражение с самого начала равно false). В теле цикла должны быть операторы, влияющие на изменение условия. Иначе произойдетзацикливание программы.

ПРИМЕР 1. var x:integer; … readln(x); while x>=0 do readln(x); { ввод x до первого отрицательного значения}

Пример 2. S:=0; i:=1; While i

Что произойдет, если убрать begin и end? S:=0; i:=1; While i

Вывод таблицы с использованием цикла While

{вывести значение функции y=x^3+bx+c при х=2, 4, 6,...,20} Program z1; Uses crt; Var x, y, b, c : real; Begin clrscr; Write(Введите коэффициенты '); Readln(b,c); Writeln('X':6, 'Y=X^3+bX+c':15);{выводим заголовок} Writeln('________while________________'); {while} X:= 2; While x