Разработать схему алгоритма для вычисления суммы ряда:S=1/2+1/3+1/4....1/N.Число N вводится с клавиатуры. Протестировать алгоритм для N=1, N=2, N=4, N=6.
Правильность ответов проверить с помощью калькулятора.
Аноним:
А как у вас обычно выглядит "разработка алгоритма"? Вы его каким способом записываете?
на языке паскаля
Не "паскаля", язык называется Паскаль и он не склоняется. Т.е. на самом деле вы просто пишете программу?
да
И еще вопрос. Если ряд имеет вид, как указано, что должно получиться при N=1?
Было бы 1/1+1/2+1/3+...+1/N - тогда понятно....
Т.е. Вы поняли, что для N=1 и N=2 ответ будет одинаков: 1/2 ?
Хотя.... правильнее 0 для n=1
Ответы
Ответ дал:
2
var
n,i:integer;
s:real;
begin
Write('Введите значение N: '); Readln(n);
s:=0;
for i:=2 to n do s:=s+1/n;
Writeln('Сумма ряда 1/2+1/3+1/4+...+1/n = ',s)
end.
Тестовые решения:
Введите значение N: 1
Сумма ряда 1/2+1/3+1/4+...+1/n = 0
Введите значение N: 2
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.5
Введите значение N: 4
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.75
Введите значение N: 6
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.833333333333333
n,i:integer;
s:real;
begin
Write('Введите значение N: '); Readln(n);
s:=0;
for i:=2 to n do s:=s+1/n;
Writeln('Сумма ряда 1/2+1/3+1/4+...+1/n = ',s)
end.
Тестовые решения:
Введите значение N: 1
Сумма ряда 1/2+1/3+1/4+...+1/n = 0
Введите значение N: 2
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.5
Введите значение N: 4
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.75
Введите значение N: 6
Сумма ряда 1/2+1/3+1/4+...+1/n = 0.833333333333333
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад