помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4есть начало
Помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4
есть начало программки
BEGIN
S:=0;
N:=1;
WHILE Slt;=PI/4 DO
BEGIN
S:=1/(2*N-1)+S
INC(N); безотлагательно необходимо
1 ответ
Albina
Так как написано, программка будет работать безгранично. Задавайте в программке точность вычислений, к примеру, 6 символов после запятой, eps = 1.0e-6
var eps,s,delta: real;
i,sg: integer;
begin
write('точность вычислений eps: ');
readln(eps);
s:=0; sg:=1; i:=1;
repeat
delta:=1/(2*i-1);
s:=s+(1/(2*i-1))*sg;
sg:=-sg;
i:=i+1;
until deltalt;eps;
writeln('сумма: ',s);
writeln('четкое значение: ',pi/4);
end.
var eps,s,delta: real;
i,sg: integer;
begin
write('точность вычислений eps: ');
readln(eps);
s:=0; sg:=1; i:=1;
repeat
delta:=1/(2*i-1);
s:=s+(1/(2*i-1))*sg;
sg:=-sg;
i:=i+1;
until deltalt;eps;
writeln('сумма: ',s);
writeln('четкое значение: ',pi/4);
end.
Семук
Юрий
Можно, а смысл какой? s:=0; sg:=1; i:=1; delta:=1; while delta>eps do begin delta:=1/(2*i-1); s:=s+(1/(2*i-1))*sg; sg:=-sg; i:=i+1; end; writeln('сумма: ',s);
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Облако тегов