Разработка программ с использованием функций. Табулирование функции одного и двух переменных

[кася]

1.Реализовать заданное выражение в виде функции.
2.Произвести табулирование полученной функции.

Данo натуральное число N. Вычислить S= сумма от k=1 до N, умноженная на дробь, в числителе, сумма sin(0,01 *k*i) от i=1 до N, в знаменателе k!

[Шаман]

вот...как то так...если ошибся, пожалуста, поправьте...

uses
crt;
var
k,i,n:integer;
s:real;
function sums(a,j:integer):real;
begin
Sums:=sums+sin(0.001*j*a)/j;
end;
begin
clrscr;
 writeln('Ввести число N >>');
  readln(n);
   writeln('------------------------');
   writeln('|   k | i  |  n  |   s |');
   writeln('------------------------');
for k:=1 to n do
  begin
   begin
    s:=s+sums(k,n);
    writeln('|',k:4,i:4,n:6,s:8:2,'|');
   end;
  end;
  writeln('------------------------');
readln;
end.

если я правильно понял формулу...

[кася]

ОГРОМНОЕ СПАСИБО!

[кася]

1.Реализовать заданное выражение в виде функции.
2.Произвести табулирование полученной функции
Даны натуральное число N и вещественное f. Вычислить
Произведение от i=1 до N, умноженное на дробь, в числителе, i!, в знаменателе, сумма (f+k) от K=0 до i

[Шаман]

опять же, если я правильно понял формулу, то как-то так...

uses
crt;
var
k,i,n:integer;
rez,f,g:double;
function pro(a:integer;j:real):double;
begin
pro:=a/(j+a);
end;
begin
clrscr;
 writeln('Введите число N >>');
  readln(n);
  writeln('Введите число F >>');
  readln(f);
   writeln('------------------------');
   writeln('|  k |  f  |  n  |  s  |');
   writeln('------------------------');
   rez:=1;
for k:=1 to n do
   begin
    rez:=rez*pro(k,f); ;
    writeln('|',k:3,' ',f:6:3,n:4,' ',rez:6:3,'|');
   end;
  writeln('------------------------');
readln;
end.

но не помешало бы проверить...

[кася]

ОГРОМНОЕ, ОГРОМНОЕ, ОГРОМНОЕ СПАСИБО!!!