Задание 4. Оператор цикла с постусловием

Оператор цикла с постусловием имеет вид:

Repeat <оператор 1>;

<оператор 2>;

……..

<оператор N>

Until <условие>;

Оператор организует выполнение нескольких операторов неизвестное заранее число раз. Тело цикла выполняется до тех пор, пока условие ложно, выполнение прекращается, когда условие становится истинным (см. рис. 3). Оператор цикла с постусловием всегда выполняется хотя бы один раз.

Рис. 3. Блок-схема оператора цикла с постусловием

Составить программу на языке Turbo Pascal для вывода значений функции на отрезке [a, b] с шагом h, используя цикл с постусловием.

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Tab_2;

var a, b, h, x, y: real;

begin

Writeln ('Введите значения a, b, h');

Read (a, b, h);

x:=a;

Repeat

y:=x*(1+exp(-x*x));

Writeln ('x=', x:6:2, ' y=', y:6:2);

x:=x+h

Until x>b

end.

3. Откомпилируйте программу.

4. Запустите программу на выполнение.

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