Program Summa;

Uses CRT;

Const eps_0 = 0.001;

Var k : Word;

x, y, s : Real;

Begin

ClrScr;

Write(‘Значение аргумента = ‘);

ReadLn(x);

k :=0;

y := 1.0; обязательно указатьдробную часть!

s :=y;

Repeat

k := k + 1;

y := y * x / k;

s := s + y

Until (Abs(y)<=eps_0);

WriteLn;

WriteLn(‘Сумма равна ’,s:5:2);

ReadLn;

End.

Циклы с постусловием обычно используются в фильтрах входных данных – исходные данные вводятся до тех пор, пока они не будут корректными, а некорректные исходные данные отвергаются.

Пример: по введенному месяцу года определить количество дней в нем.

Программа: Схема фильтра (month – номер месяца)