Пример использования оператора цикла repeat

Вычислить и напечатать множество значений функции y=x2+b для x, изменяющегося от -10 до 10 с шагом 2. Пусть b=5.

Введем обозначения: X - переменная, отображающая значения аргумента x; Y - переменная, отображающая значения функции y; B - константа b; DX - шаг изменения x.

Исходные данные: переменная X, шаг ее изменения - переменная DX, константа B. Переменная Y вычисляется по известной формуле на интервале изменения переменной X с помощью оператора цикла REPEAT.

Схема алгоритма приведена на рис.5.

PROGRAM PRIM3;

{раздел описания констант}

CONST

B=5;

{раздел описания переменных}

VAR

X, {аргумент}

DX, {шаг приращения аргумента}

Y:REAL; {функция}

{раздел операторов}

BEGIN

WRITELN('Вводите X=-10.0, DX=20.0');

READ(X,DX);

WRITELN(' ':15,'Y',' ':14,'X'); REPEAT {начало цикла}

Y:=X*X+B;

WRITELN(' ':8,Y:10:2,' ':9,X:3:1);

X:=X+DX;

UNTIL X>10;

END. {конец цикла}

		Рис.5 Блок-схема алгоритма решения задачи 5.10

Результат выполнения программы:

Вводите X=-10.0, DX=20.0

-10.0 20.0

Y X

105.00 -10.0

105.00 10.0

Пояснение к программе. Операторы вычисления и вывода значений переменных Y и X повторяются оператором REPEAT до тех пор, пока не выполнится условие X>10. После этого работа цикла заканчивается и управление передается на оператор END. Следует отметить, что в цикле REPEAT отсутствует составной оператор. Это объясняется тем, что служебное слово UNTIL обозначает последний выполняемый оператор цикла. В соответствии с условием задачи в разделе описания констант дается числовое значение B, а в разделе описания переменных указываются три переменные X, DX, Y. Раздел операторов начинается с вывода на экран поясняющего текста о значении вводимых переменных. Вывод аргумента и вычисленной функции осуществляется с помощью двух операторов вывода в два столбца.