Question

Y=1/1-2/2-3/3-4/4-(...)-n/n Составить блок-схему и программу на паскале. Заранее спасибо

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 y:real;
 i,n:integer;
begin 
readln(n);
 y:=1;
 for i:=2 to n do
 y:=y-i/i;
 writeln(y);
end.

Пример ввода:
3
Пример вывода:
-1

Answer 2

Блок-схема:

vbnetCopy code
START
  SET n
  SET sum = 0
  FOR i = 1 TO n DO
    SET term = i / i
    FOR j = 2 TO i DO
      SET term = term - j / i
    END FOR
    SET sum = sum + term
  END FOR
  SET Y = sum
  OUTPUT Y
END

Программа на Pascal:

arduinoCopy code
program calculateY;

var
  n, i, j: integer;
  term, sum, Y: real;

begin
  write('Enter the value of n: ');
  readln(n);
  
  sum := 0;
  
  for i := 1 to n do
  begin
    term := i / i;
    
    for j := 2 to i do
    begin
      term := term - j / i;
    end;
    
    sum := sum + term;
  end;
  
  Y := sum;
  
  writeln('Y = ', Y);
end.

Примечание: данная формула может быть переписана в более простой форме, как Y = 1 - H(n), где H(n) - n-ое гармоническое число. Таким образом, Y можно вычислить как 1 минус сумма первых n гармонических чисел.