Alexttlv
Опубликовано 6 лет назад по предмету Информатика от Alexttlv


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

  1. Ответ
    Ответ дан anti
    (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;

     

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц