Программа. Var n,min,max,s,count: Word;
Program Posled;
Uses CRT;
Var n,min,max,s,count: Word;
sred: Real;
Begin
ClrScr;
s := 0;
Write(‘Первое число:’);
ReadLn(n);
If (n = 0)
Then Exit;
min := n;
max := n;
count := 1;
s := s + n;
Repeat
Write(‘Oчередное число:’);
ReadLn(n);
If (n <> 0) Then
Begin
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;
WriteLn(‘Сумма =’,s);
WriteLn(‘Количество чисел =’,count);
WriteLn(‘min=’,min);
WriteLn(‘max=’,max);
WriteLn(‘Среднее арифметическое =’,sred:5:2);
ReadLn;
End.
4. вычислить s – сумму членов бесконечного ряда:
s = 1 + x/ 1! + x2 / 2! + x3 / 3! + … + xk / k! + …
с погрешностью ε0.
Каждый последующий член ряда можно определить через предыдущий, используя рекуррентную формулу:
yk+1 = yk·x / k
Текущая погрешность вычислений ε определяется последним просуммированным членом ряда:
ε =|yn|
Эту погрешность необходимо сравнить с заданной погрешностью ε0 для реализации условия окончания суммирования:
- если ε > ε0 , то заданная точность еще не достигнута, и суммирование ряда необходимо продолжить, прибавив к имеющейся сумме еще один член,
- если ε <= ε0 , то заданная точность достигнута, и суммирование необходимо прекратить.
Пусть s – искомая сумма,
y – очередной член ряда,
k - номер члена ряда,
eps_0 – заданная точность вычислений,
x – вводимый аргумент.
Схема алгоритма: Программа:
Дата добавления: 2015-08-08; просмотров: 591;