Вычисление выражений с использованием функций

Вычисление выражений с использованием функций

При заданных значениях N с помощью собственных функций вычислить выражения.

Варианты заданий:

1. Y=[pic 1]
2. Y=[pic 2]
3. Y= (2) / ((3) + (4))
4. Y= (5) - (6) / (7)
5. Y= (8) / (9) + (10)
6. Y= (11) + (12) + (13)
7. Y = ((13) + (14)) / (15)
8. Y = (2) + (4) * (6)
9. Y = ((3) + (5)) / (4)
10. Y = (8) + (9) / (10)
11. Y = (11) * (13) / (15)
12. Y = (12) * (11) + (13)
13.  Y= (1) - (2) / (10)
14.  Y= ((3) + (4)) / (11)
15.  Y= (5) / ((1) + (2))
16.  Y= (4)  /((3) + (5))

Цифры в скобках обозначают номер функции в последующей таблице.

Используемые функции

при вычислении произведений (функции 1, 2, 3, 4, 5, 6, 11, 14, 15), начальные значения произведений равны единице.

Пример

При заданном N вычислить выражение:  Y = (1) / (2),

где

1.  [pic 18]
2.  [pic 19]

Текст программы:

// Объявление переменных

Var          n:integer;

        Y:real;

// Функция вычисления факториала

Function Fact(n:integer):integer;

Var i:integer;

       F:integer;

Begin

        F:=1;

        For i:=1 to n do F:=F*1;

        Fact:=F

End;

// Функция вычисления суммы

Function Summa(n:integer): real;

Var i:integer;

       S:real;

Begin

        S:=0;

        For i:=1 to n do S:=S+1/Fact(k);

        Summa:=S

End;

// Функция вычисления произведения

Function Multi(n:integer): real;

Var i:integer;

       P:real;