нужно собрать

[antosha54]

я ниче не понимаю...помогите...


Функции:
Код:

function f(k:double):Double;
begin
 f:=10.8*abs(cos(k*k/1.13))*sin(k+1.4);
end;

function g(n:double):Double;
begin
 g:=11.2*cos(2*n-1)+abs(sin(1.5*n))/1.7;
end;

Цикл:
Код:

for k:=1 to 4 do for n:=1 to 4 do a[k,n]:=n*f(k)+sin(k)*g(n);

Вывод табличный:
Код:

 for k:=1 to 4 do begin
  for n:=1 to 4 do  write(a[k,n]:10:2); writeln;
 end;

Сумма над главной
Код:

 for k:=1 to 4 do begin
  for n:=k+1 to 4 do  s:=s+a[k,n];
 end;

[BDA]

"я ниче не понимаю" - ну так нужно разобраться.
У Вас есть все "кирпичики", осталось добавить описание переменных, и все.
Грубо говоря, вставляете весь код в IDE, компилируете, читаете и исправляете то, на что пожалуется компилятор.

[Stilet]

var a:array[1..4,1..4] of double;function f(k:double):Double;begin 
f:=10.8*abs(cos(k*k/1.13))*sin(k+1.4);end;function g(n:double):Double;
begin g:=11.2*cos(2*n-1)+abs(sin(1.5*n))/1.7;end;begin
for k:=1 to 4 do for n:=1 to 4 do a[k,n]:=n*f(k)+sin(k)*g(n); for k:=1 to 4 do begin
for n:=1 to 4 do  write(a[k,n]:10:2); writeln; end; for k:=1 to 4 do begin  for n:=k+1 to 4
do  s:=s+a[k,n]; end;readln;end.

Подходит?

[antosha54]

Да, подходит, спасибо.

Только не могу понять откуда взялась вот эта строка

a[k,n]:=n*f(k)+sin(k)*g(n);

и что она делает?

[BDA]

Сообщение от antosha54

Только не могу понять откуда взялась вот эта строка

a[k,n]:=n*f(k)+sin(k)*g(n);

и что она делает?

Так она из Вашего первого сообщения:

Сообщение от antosha54

Цикл:
Код:

for k:=1 to 4 do for n:=1 to 4 do a[k,n]:=n*f(k)+sin(k)*g(n);

Она заполняет массив данными с использованием функций f и g.

[antosha54]

а откуда там косинус? я понимаю что делает эта формула, но не понимаю как она получилась..

[s-andriano]

Сообщение от antosha54

а откуда там косинус? я понимаю что делает эта формула, но не понимаю как она получилась..

Здесь ее никто не получал.
Ее привели Вы.
Собственно, о том, как она получалась, должны знать именно Вы. Больше некому.