Пожаловаться
- 27.05.2015 19:55
- Информатика
- remove_red_eye 3691
- thumb_up 11
Ответы и объяснения 1
Uses Crt;
const
n:array[1..3] of integer=(10,20,30);
var
i,k:byte;
s:real;
begin
ClrScr;
for i:=1 to 3 do begin
s:=0;
for k:=1 to n[i] do s:=s+1/(k*(k+1));
Writeln('S(',n[i],')=',s,', |S-1|=',Abs(s-1))
end;
ReadKey
end.
Не могу проверить результат, но должно работать.
Ответы, полученные в PascalABC.NET 3.3:
S(10)=0.909090909090909, |S-1|=0.0909090909090909
S(20)=0.952380952380952, |S-1|=0.0476190476190478
S(30)=0.967741935483871, |S-1|=0.0322580645161292
const
n:array[1..3] of integer=(10,20,30);
var
i,k:byte;
s:real;
begin
ClrScr;
for i:=1 to 3 do begin
s:=0;
for k:=1 to n[i] do s:=s+1/(k*(k+1));
Writeln('S(',n[i],')=',s,', |S-1|=',Abs(s-1))
end;
ReadKey
end.
Не могу проверить результат, но должно работать.
Ответы, полученные в PascalABC.NET 3.3:
S(10)=0.909090909090909, |S-1|=0.0909090909090909
S(20)=0.952380952380952, |S-1|=0.0476190476190478
S(30)=0.967741935483871, |S-1|=0.0322580645161292
Пожаловаться
- 28.05.2015 17:07
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы