Читайте также:
|
На рис. изображена блок-схема алгоритма цикла с предусловием.
Рисунок Алгоритм циклической структуры с предусловием.
Оператор, реализующий этот алгоритм в языке Free Pascal, имеет вид:
while выражение do оператор;
здесь while.. do – зарезервированные слова языка Free Pascal, выражение – логическая константа, переменная или логическое выражение, оператор – любой допустимый оператор языка.
Работает оператор while следующим образом. Вычисляется значение выражения. Если оно истинно (True), выполняется оператор. В противном случае цикл заканчивается, и управление передается оператору, следующему за телом цикла. Выражение вычисляется перед каждой итерацией цикла. Если при первой проверке выражение ложно (False), цикл не выполнится ни разу.
Если в цикле надо выполнить более одного оператора, необходимо использовать составной оператор:
while условие do
begin
оператор_1;
оператор_2;
…
оператор_n;
end;
Рассмотрим пример.
Пусть необходимо вывести на экран значения функции y = e sin(x) cos(x) на отрезке [0;π] с шагом 0.1. Применим цикл с предусловием:
var x,y:real;
begin
{Присваивание параметру цикла стартового значения.}
x:=0;
{Цикл с предусловием.}
while x<=pi do {Пока параметр цикла не превышает конечное значение, выполнять тело цикла.}
begin
{Вычислить значение y.}
y:=exp(sin(x))*cos(x);
{Вывод на экран пары х и y.}
writeln('x=', x,' y=', y);
{Изменение параметра цикла - переход к следующему значению x.}
x:=x+0.1;
end; {Конец цикла.}
end.
В результате работы данного фрагмента программы на экран последовательно будут выводиться сообщения со значениями переменных x и y:
x= 0; y=1
x= 0.1; y=1.0995
…
x= 3.1; y=-1.0415
Дата добавления: 2014-12-19; просмотров: 98 | Поможем написать вашу работу | Нарушение авторских прав |