Сумма факториалов, с элементами высшей математики Опции

[Алена]

1. Вычислить значение (все переменные принимают вещественные значения)
U=x - x^3/3 + x^5/5 (X^ - это я так степень записала)
2. Вычислить значение функции

        ( 3x-9, x<=7,
f(x)=<
        (1/(x^2 - 4), x>7

3. Даны: действительное число а и натуральное число n. Вычислить
p=a(a+1)...(a+ n-1)
4. Составить программу для вычисления суммы факториалов четных чисел от m до n.

Ребята, помогите пожалуйста, преподаватель ничего не объяснял (я заочница), а у меня не получается понять эти учебники, которые я уже купила. Умоляю, помогите!

[klem4]

4)

Код

uses crt;
var n,m,i,k,p,s:integer;

Begin
  clrscr;
  readln(n,m);
  s:=0;
  for i:=n to m do
   if i mod 2 = 0 then
    begin
       p:=1;
       for k:=1 to i do
       p:=p*k;
       inc(s,p);
    end;
   writeln('s=',s);
  readln;
end.

Во остальных уточни условие :
1)U=x - x^3/3 + x^5/5 -это вся функция или только часть раяда ?
2) Вообще не понял что написано.
3) тут сумма или произведение ?

[Guest]

Огромное вам спасибо! В 1-ом задании вся функция (с методички переписала). Решила отсканировать, вот, смотрите...

[klem4]

1)

Код

{$n+}
uses crt;
var u,x:extended;
Begin
  clrscr;
  readln(x);
  u:=x-(exp(3*ln(x)))/3+(exp(5*ln(x)))/5;
  writeln('u=',u:2:3);
  readln;
End.

2)

Код

{$N+}
uses crt;
var x:integer;
   f:extended;

Begin
  readln(x);
  if x<=7 then
   f:=3*x-9
    else
     f:=1/(sqr(x)-4);
  writeln('f(x)=',f:2:3);
  readln;
end.

3) все равно непонял, но может так ?

Код

uses crt;
var p,a,n,i:integer;
Begin
  clrscr;
  readln(a,n);
  p:=1;
  for i:=1 to n-1 do
   p:=p*a*(a+i);
  writeln('p=',p);
  readln;
end.

[volvo]

klem4
Скорее всего №3 решается так:

Код

uses crt;
var p,a,n,i: integer;
Begin
 clrscr;
 readln(a,n);
 p:=1;
 for i:=0 to n-1 do
   p:=p*(a+i);
 writeln('p=',p);
 readln;
end.