Question

40 баллов Построить программу в Pascal с циклической структуройДано натуральное число n. Вычислить:2/1+3/2+4/3+... +(n+1)/n​

Answer 1

program raf105;

var

 i,n: integer;

 sum: real;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   sum:= sum + (i+1)/i;

 writeln('Вывод: ',sum);

end.

PascalABC 3.4.2

Answer 2

Для вычисления суммы выражения (2/1 + 3/2 + 4/3 + ... + (n+1)/n), мы можем использовать цикл в программе на Pascal. Вот программа, которая решает данную задачу:

pascalCopy code
program SumFractionalSequence;

var
  n: integer;
  i: integer;
  sum: real;

begin
  write('Введите натуральное число n: ');
  readln(n);

  sum := 0.0;

  for i := 1 to n do
  begin
    sum := sum + (i + 1) / i;
  end;

  writeln('Сумма выражения (2/1 + 3/2 + 4/3 + ... + (n+1)/n) равна: ', sum:0:2);
end.

Объяснение программы:

1. Мы объявляем переменные n (для ввода числа пользователем), i (для итерации по циклу) и sum (для хранения суммы).
2. Пользователь вводит значение n.
3. Мы устанавливаем sum в начальное значение 0.0, чтобы накапливать сумму.
4. Запускается цикл for, который итерирует от i = 1 до i = n.
5. На каждой итерации цикла мы добавляем к sum значение (i + 1) / i.
6. После завершения цикла, программа выводит значение sum, которое представляет собой сумму выражения.

Теперь вы можете запустить эту программу в Pascal и ввести значение n, чтобы получить результат суммы указанного выражения.