вычисление

@лёлька · Регистрация: 02.02.2010

Author24 — интернет-сервис помощи студентам

помогите пожалуиста составить программу для вычисления:
S:=сумма чисел от N=1 до 15 ((exp(n*ln(7))*ln(n))/f)*exp(n*ln(x));
S:=exp(exp(x)*ln(3))+abs(x);
S:= сумма чисел от 1 до n (a/f)*(exp(n*ln(x)));
a:=(exp(n*ln(2)));
f-факториал(n!)
(примеры записаны на языке паскал!)
вот мои наработки

Pascal

program fgtr;
         var x,i,f,n:integer;
         Fact,S,a:real;  begin
         function face(N:integer):integer;
         var i,F:integer;
         begin
         if (N=0) or (N=1)then Fact:=1
         else begin f:=1;
         for i:=2 to n do
         f:=f*i;
         Fact:=f;end;
 
         begin
     writeln('введите x');
     readln(x);
     S:=exp(exp(x)*ln(3))+abs(x);
     writeln(S:4:2);
     end;
 
     writeln('введите x');
     readln(x);
     for n:=1 to 15 do
     S:=((exp(n*ln(7))*ln(n))/f)*exp(n*ln(x));
     writeln(S:4:2);
     end;
         begin
     writeln('введите x');
     readln(x);
      for n:=1 to n do
      a:=(exp(n*ln(2)));
      S:=(a/f)*(exp(n*ln(x)));
      writeln(S:4:2);
     end; end;
     end.

Добавлено через 7 часов 45 минут
помогите пожалуиста

	23.05.2010, 18:46