Question

Составить программу в Паскале и блок схему: Вычисление суммы ряда S=1-1/2+1/4-1/6+...1/N.

Answer 1

Вот держите:

var n,i,l,m:integer; sum:real;
begin     
readln(n);     
sum:=1; l:=1;     
while m<>n do  begin         
m:=m+2;         
sum:=sum-((1/m)*l);         
l:=l*-1;     
end;     
writeln(sum);
end.

Answer 2

Программа на языке Паскаль для вычисления суммы ряда S=1-1/2+1/4-1/6+...1/N:

program SumOfSeries;
var
  N, i: integer;
  S: real;
begin
  writeln('Введите число N:');
  readln(N);
  
  S := 1; // инициализация суммы
  
  for i := 2 to N do
  begin
    if i mod 2 = 0 then // проверка на четность
      S := S + 1/i
    else
      S := S - 1/i;
  end;
  
  writeln('Сумма ряда S = ', S);
end.

Блок-схема для данной программы:

``` +------------------+ | Ввод N | +------------------+ | v +------------------+ | Инициализация S | +------------------+ | v +------------------+ | i = 2 | +------------------+ | v +------------------+ | i > N? | +------------------+ | | no yes | | v | +------------------+ | i mod 2 = 0? | +------------------+ | | no yes | | v | +------------------+ | S = S