Массивы (простая задачка) Фортран

[Fencer]

Понимаю что не по правилам, но ОЧЕНЬ прошу написать прогу, чтоб мне по аналогии разобраться с другими примерами!!

Даны A(n,n+1), B(n+1), C(n+1). Получить D(n+1, n+2) вставкой в A после строки с номером p вектора B и последующей вставкой после столбца с номером g вектора C.

[wital1984]

вот вам вставка строки:

Код: [Выделить]

for (int i=0; i<=n; i++)
for (int j=0; j<=n; j++)
{
 if (i<p) d[i,j]=a[i,j];
 if (i==p) d[i,j]=d[j];
 if (i>p) d[i,j]=a[i-1,j];
}
правда, это не фортран - его не знаю

[sp]

Описочки нет?
Где второй if вроде вектор b скопировать надо. Или как?
Фортран знал, но забыл...
Но что вектора, матрицы с 1 начинаются, помню. Вроде.

[wital1984]

Описочки нет?
Где второй if вроде вектор b скопировать надо. Или как?

есть конечно, писал не в компиляторе. Надо так:
 if (i==p) d[i,j]=b[j];

Фортран знал, но забыл...
Но что вектора, матрицы с 1 начинаются, помню. Вроде.

В фортране может быть, а вот в Java, С, javascript, VBA, php и еще хрен знает где с 0.