Case (Month) Of

ReadLn(Month);

Repeat

ClrScr;

Begin

Uses Crt;

Program Mesjac;

End.

ReadLn;

WriteLn;

Repeat

S :=y;

K :=0;

ReadLn(x);

ClrScr;

Begin

Uses CRT;

Program Summa;

End.

ReadLn;

WriteLn;

Begin

ReadLn(n);

Repeat

Then Exit;

ReadLn(n);

S := 0;

ClrScr;

Begin

Uses CRT;

Program Posled;

Var n,min,max,s,count: Word;

sred: Real;

Write(‘Первое число:’);

If (n = 0)

min := n;

max := n;

count := 1;

s := s + n;

Write(‘Oчередное число:’);

If (n <> 0) Then

count := count + 1;

s := s + n;

If (n > max)

Then max := n;

If (n < min)

Then min := n;

End { If (n <> 0 )}

Until (n = 0);

sred := s / count;

WriteLn(‘Сумма =’,s);

WriteLn(‘Количество чисел =’,count);

WriteLn(‘min=’,min);

WriteLn(‘max=’,max);

WriteLn(‘Среднее арифметическое =’,sred:5:2);

4. вычислить s – сумму членов бесконечного ряда:

s = 1 + x/ 1! + x²/ 2! + x³ / 3! + … + x^k / k! + …

с погрешностью ε₀.

Каждый последующий член ряда можно определить через предыдущий, используя рекуррентную формулу:

y_k₊₁ = y_k·x / k

Текущая погрешность вычислений ε определяется последним просуммированным членом ряда:

ε =|y_n|

Эту погрешность необходимо сравнить с заданной погрешностью ε₀ для реализации условия окончания суммирования:

- если ε > ε₀ , то заданная точность еще не достигнута, и суммирование ряда необходимо продолжить, прибавив к имеющейся сумме еще один член,

- если ε <= ε₀ , то заданная точность достигнута, и суммирование необходимо прекратить.

Пусть s – искомая сумма,

y – очередной член ряда,

k - номер члена ряда,

eps_0 – заданная точность вычислений,

x – вводимый аргумент.

Схема алгоритма: Программа:
Const eps_0 = 0.001;

Var k : Word;

x, y, s : Real;
Write(‘Значение аргумента = ‘);

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

k := k + 1;

y := y * x / k;

s := s + y

Until (Abs(y)<=eps_0);

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

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

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

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

Var Month: 1..12;

Write(‘Введите номер месяца:’);

Until (Month>=1) And (Month<=12);

4,6,9,11: WriteLn(’30 дней’);

1,3,5,7,8,10,12: WriteLn(’31 день’);

2: WriteLn(’28 дней’);

End; здесь можно обойтись без ветви Else