Задача в Delphi

[zheka-safronov]

помогите написать программу
Сформировать подпрограмму для определения суммы элементов квадратной матрицы X[n,n], лежащих на главной диагонали. Использовать ее для обработки матриц A[10,10], B[40,40], C[30,30]. Элементы матриц определяются по формулам:

[Arigato]

Помочь написать или написать за вас?

[zheka-safronov]

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

Помочь написать или написать за вас?

ну если не сложно то помочь и с самой программой
ну а если нет то хотябы ее код

[Arigato]

Что значит помочь с самой программой? Т.е. написать ее за вас? Но это не помочь, а выполнить работы за вас. Что бы дошла до вас эта простая истина, объясню на отстраненном примере.
Допустим, вам надо спилить дерево, все инструменты у вас есть, но как пилить вы не знаете. Если вы просите помощи, то это означает, что вам расскажут, как надо пилить, что не стоит пилить ту ветку, на которой сидите и т.д. После этого вы возьмете свою пилу и начнете пилить.
Вы же сейчас просите "помощи", но при этом хотите стоять рядом, а чтобы "помогающий" сам полез пилить дерево, а вы бы только указания давали, как именно вам его спилить надо.
Так вот, во втором случае это не помощь, а выполнение работы за вас. Дошло?
Если вам нужна помощь, то выкладывайте свои наработки или задавайте конкретные вопросы, что не знаете как сделать, а не тупо выкладывайте условие задачи.
Если же вам нужно, чтобы все за вас сделали, то идите в раздел Фриланса, создавайте там тему, указывайте сумму, которую готовы заплатить за работу и ждите исполнителей.

[Niro]

Заполняем массивы

n:= 10;
for i:=1 to n do
 for j:=1 to n do
   matrix_A:=3.7 - 8.2 * i * sqr (j) + 10.4 * sqr (i) * j;
n:= 40;
аналогично для массива В

n:= 30;
аналогично для С

Сумма элементов диагонали

for i:=1 to n do
  for j:=1 to n do
  //условие нахождение элемента на гл. диагонали это i = j
  if i = j then суммуруем....

[whatever]

Согласен с Niro, но есть пара но:
1:

matrix_A[i,j]:=3.7 - 8.2 * i * sqr (j) + 10.4 * sqr (i) * j;

2:

//условие нахождение элемента на гл. диагонали это i = j
for i:=1 to n do
  sum:=sum+matrix_A[i,i];