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

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

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;