Доцент Петрович Беспилотники и нейросети. Информатика и программирование. Практикум

while выражение do оператор

Формат оператора с постусловием:

repeat тело цикла until выражение

6.2.Примеры

Программа печати таблицы значений функции sin для аргумента, изменяющегося в заданных пределах с заданным шагом.

program tabl_fun;

var

Xn, Xk: real; {начальное и конечное значения аргумента}

dX: real; {шаг изменения аргумента}

x, y: real; {текущие значения аргумента и функции}

begin

writeln («Введите Xn, Xk, dX»);

readln (Xn, Xk, dX);

writeln (» – — – — – — – — – — – —»); {заголовок таблицы}

writeln (»│ X │ Y │»);

writeln (» – — – — – — – — – — – —»);

x:= Xn; {первое значение аргумента}

while x <= Xk do {заголовок цикла}

begin

y:= sin (x); {вычисление значения функции}

writeln (»│», x:9:2, ‘ │», y:9:2, ‘ │»); {вывод строки таблицы}

x:= x+dX; {переход к следующему значению аргумента}

end;

writeln (» – — – — – — – — – — – —»);

readln;

end.

Программа, вычисляющая квадратный корень вещественного аргумента Х с заданной точностью eps по итерационной формуле:

уn = (yn-1 + x/yn-1) /2,

где yn-1 – предыдущее приближение к корню (в начале вычислений выбирается произвольно), уn – последующее приближение. Процесс вычислений прекращается, когда приближения станут отличаться друг от друга по абсолютной величине менее, чем на величину заданной точности.

program square_root;

var

X, eps, {аргумент и точность}

Yp, Y: real; {предыдущее и последующее приближение}

begin

repeat

writeln («Введите X, eps’);

readln (X, eps);

until (X> 0) and (eps> 0);

Y:= 1;

repeat

Yp:= Y;

Y:= (Yp + X / Yp) / 2;

until abs (Y – Yp)

writeln («Корень из», Х:6:3, «с точностью», eps:7:5, «равен», Y:9:5);

readln;

end.

6.3.Цикл с параметром for

Параметром цикла называется переменная, которая используется при проверке условия продолжения цикла и принудительно изменяется на одну и ту же величину на каждой итерации. Если параметр цикла целочисленный, то он называется счётчиком цикла.

Конец ознакомительного фрагмента.

Текст предоставлен ООО «Литрес».

Прочитайте эту книгу целиком, купив полную легальную версию на Литрес.

Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.