Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 20 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

19
Формат записи:
repeat
<оператор;>
…
<оператор>
until <условие окончания цикла>;
Цикл работает следующим образом: выполняется тело цикла (операторы,
заключенные между словами
repeat и until), затем проверяется условие
окончание цикла, если оно пока еще не выполнилось, то тело цикла выполняет-
ся вновь, затем проверяется условие, и т. д. Когда условие, наконец, станет ис-
тинным, цикла завершится, и далее будет выполняться следующий за циклом
оператор.
Следует заметить, что тело цикла в данном случае может содержать как
один, так и несколько операторов, однако, операторные скобки здесь не пишут-
ся, т. к.
repeat обозначает начало цикла, until – конец цикла.
Так же как и в случае с циклом
while, при программировании операторов
тела цикла следует обеспечить влияние, по крайней мере, одного из операторов
тела цикла на значение условия, иначе цикл будет выполняться бесконечно.
Пример выполнения лабораторной работы
Для примера рассмотрим функцию y = x
3
+
x
x
sin
, аргумент которой изме-
нятся в интервале [-π; π] с шагом π/5.
Составим блок-схему алгоритма (рис. 3.1).
Программную реализацию начинаем с описания переменных. Как видно из
блок-схемы алгоритма, в программе понадобятся две переменные: x – для хра-
нения значения аргумента, y – для хранения значения функции. Поскольку обе
переменные могут иметь дробные значения
, описываем их вещественным ти-
пом. Из соображений минимизации времени выполнения программы целесо-
образно шаг приращения аргумента x задать как величину постоянную, значе-
ние которой будет вычисляться единожды при описании константы. Заметим,
что в языке Pascal имеется стандартная константа Pi, которую мы используем
при вычислении шага.
Const h=Pi/5;
Var x,y:real;
Тело программы начинается с уже знакомого информационного блока и
оператора, печатающего «шапку» будущей таблицы. Затем задается началь-
ное значение аргумента функции, которое определяется нижней границей
изменения x.
x:=-Pi;
Далее организуется цикл, в ходе выполнения которого будут вычисляться и
печататься значения аргумента и функции. Поскольку в данном случае заранее
неизвестно число повторений цикла, будем использовать цикл с предусловием, в

Страницы