Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2+.... Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте,
10-11 класс
|
насколько сумма приблизилась к значению pi^2/6.
var
s,x,i:real;
begin
x:=1;
i:=2;
while x>0.001 do begin
s:=s+x;
x:=sqr(1/i);
i:=i+1;
end;
writeln('s=', s, ' pi^2/6=', sqr(pi)/6);
end.
Другие вопросы из категории
Сколько грузовиков прошло через КПП?
Что нужно изменить в программе, чтобы выполнялось условие задачи.
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
1) Устройство для отображения текстовой и графической информации
2) Манипулятор в форме небольшой коробочки, управляющий положением курсора на экране
1. текст длинной в 1 символ,
2.фото размером 10х10 пикселей
3.музыка длинной 10 секунд
4.видео длинной 1 секунда размером 100х100 пикселей
Спасибо за ответ
Читайте также
e. Определив тип общего члена ряда, и организовав вычисление его суммы со структурой вложенных циклов, получить таблицу, состоящую из переменных X, Y, S, при |X|<1.
дестяричную
Три двоичных числа перевести в 16-ую систему,вычислить их сумму и перевести в десятичную систему
Три двоичных числа,перевести в 8-ую систему,а затем в 16-ую.
при помощи:
1.Операторов цикла.(i:=N1 to N2 do "оператор")
2.Цикла с предусловием.(While)
ических расчетов.
Цикл - это последовательность операторов, которая может автоматически выполняться более одного раза. Если количество повторов известно заранее (или может быть однозначно вычислено), используется оператор Цикл_с_параметром (DO «UNTIL»). Если количество повторов неизвестно, применяется оператор Цикл_с_Пред_условием (DO «WHILE»).
Вычислить сумму ряда:
a) с заданной точностью ξ и вывести количество итераций;
b) для 20-ти членов ряда.
Σ = 1/(1*3) + 1/(3*5) + 1/(5*7) + … ξ=0.0001 Ответ: 0.500