Question

В Паскале . Дано натуральное число n. Вычислить : S=1/3^2+1/5^2+1/7^2+......+1/(2n+1)^2 через while

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.

Answer 2

var n,i:integer;
s:real;
begin read(n);
i:=0;
s:=0;
while i<n do begin  
s:=s+1/power(2*i+1,2);
i:=1+i;
end;
write(s);    
end.

Answer 3

Для вычисления суммы S по данной формуле в Pascal с использованием цикла while, следуйте этим шагам:

1. Инициализируйте переменные n, S, и i.
2. Используйте цикл while для прохода по значениям i от 1 до n.
3. Внутри цикла вычислите каждый член последовательности и добавьте его к сумме S.
4. После окончания цикла выведите значение S.

Вот код на Pascal, реализующий это:

pascalCopy code
program SumOfSeries;
var
  n, i: integer;
  S: real;
begin
  writeln('Введите значение n:');
  readln(n);

  S := 0;
  i := 1;

  while i <= n do
  begin
    S := S + 1 / sqr(2 * i + 1);
    Inc(i);
  end;

  writeln('Сумма S = ', S);
end.

Вы можете вводить значение n после запуска программы, и она вычислит и выведет значение суммы S для заданного n.