Question

Программа Паскаль. здание - разработать функцию с применением примененнием управляющих конструкций FOR, WHILE, REPEAT y = ∑ (1/i!)

Answer 1

(FOR)function sumf(i:integer):real;

begin

k:=1;

sumf:=1; {так как для i1 sum=1}

for i:=1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k:=k*i;

f:=k;

sumf:=sumf+1/f;

end;

(WHILE)

 

function sumw(i:integer):real;

begin

k:=1;

i:=1;

sumw:=1;

while i<=n do

begin

k:=k*i;

f:=k;

sumw:=sumw+1/f;

end;

 

(REPEAT)

function sumr(i:integer):real;

begin

k:=1;

i:=1;

sumr:=1;

repeat

k:=k*i;

f:=k;

sumr:=sumr+1/f;

i:=i+1

until i<n;

 

 

Answer 2

Разработка функции в программе Паскаль с использованием управляющих конструкций FOR, WHILE, REPEAT

Для разработки функции, которая вычисляет значение выражения y = ∑(1/i!), с применением управляющих конструкций FOR, WHILE и REPEAT, можно использовать следующий код на языке Паскаль:

program FactorialSum;

var
  i: Integer;
  factorial: Real;
  y: Real;

begin
  y := 0;
  factorial := 1;

// Использование управляющей конструкции FOR
  for i := 1 to 10 do
  begin
    factorial := factorial * i;
    y := y + (1 / factorial);
  end;

// Использование управляющей конструкции WHILE
  i := 1;
  factorial := 1;
  while i <= 10 do
  begin
    factorial := factorial * i;
    y := y + (1 / factorial);
    i := i + 1;
  end;

// Использование управляющей конструкции REPEAT
  i := 1;
  factorial := 1;
  repeat
    factorial := factorial * i;
    y := y + (1 / factorial);
    i := i + 1;
  until i > 10;

writeln('The value of y is: ', y);
end.

В данном коде используются три различные управляющие конструкции: FOR, WHILE и REPEAT. Каждая из них выполняет итерации от 1 до 10 и вычисляет значение факториала для каждого значения i. Затем значение 1/factorial добавляется к переменной y.

Обратите внимание, что в данном примере предполагается, что значение y будет вычисляться для диапазона от 1 до 10. Если вам нужно вычислить значение для другого диапазона, вы можете изменить соответствующие значения в коде.

Надеюсь, это поможет вам разработать функцию на языке Паскаль с использованием управляющих конструкций FOR, WHILE и REPEAT для вычисления значения выражения y = ∑(1/i!).