Question

Составить программу для решения задачи, используя цикл "До" в PascalABC. Условие: Написать программу подсчёта суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+... 1/N

Answer 1

Ответ:

var

 i: integer;

 sum: real;

begin

 sum := 1;

 i := 2;

 while i <= 1000 do

 begin

   sum := sum + 1 / i;

   i := i + 1;

 end;

 write(sum);

end.

Answer 2

Для решения этой задачи с использованием цикла "До" в PascalABC, вы можете написать следующую программу:

pascalCopy code
program HarmonicSeriesSum;

var
  S: real;
  N, i: integer;

begin
  S := 0;
  
  for i := 1 to 1000 do
  begin
    S := S + 1 / i;
  end;
  
  writeln('Сумма первых 1000 членов гармонического ряда: ', S:0:4);
end.

Эта программа начинает с инициализации переменной S нулем. Затем она использует цикл "До", чтобы сложить первые 1000 членов гармонического ряда, где i изменяется от 1 до 1000. На каждой итерации цикла программа добавляет к S обратную величину текущего значения i (1/i). В конце программа выводит сумму с точностью до четырех знаков после запятой.