VPF::Работа с матрицей - Форум программистов

Adriana

Дата 22.12.2009, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.12.2009

Репутация: нет
Всего: нет

Дана квадратная матрица А размерности (nxn) (n=6).
Получить по ней квадратную матрицу В той же размерности, являющуюся результатом следующего преобразования: значение главной диагонали матрицы А, стоящее в данной строке умножить на текущий элемент данной строки и разделить на наибольший среди индексов строки и столбца данного элемента. Найти вектор d размерности n, состоящий из максимальных элементов главных диагоналей матриц А и В, сравненных построчно.

Это сообщение отредактировал(а) Adriana - 22.12.2009, 16:19

volvo877

Дата 23.12.2009, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код

const
  n = 6;
type
  vector = array[1 .. n] of real;
  matrix = array[1 .. n] of vector;

var
  a, b: matrix;
  d: vector;
  i, j, index: integer;

begin
  for i := 1 to n do
    for j := 1 to n do a[i, j] := random(100) / random(100);

  writeln('matrix A:');
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:8:2);
    writeln;
  end;

  for i := 1 to n do
    for j := 1 to n do
    begin
      if i > j then index := i else index := j;
      b[i, j] := a[i, i] * a[i, j] / index;
    end;

  for i := 1 to n do
    if a[i, i] > b[i, i] then d[i] := a[i, i]
    else d[i] := b[i, i];

  writeln('matrix B:');
  for i := 1 to n do
  begin
    for j := 1 to n do write(b[i, j]:8:2);
    writeln;
  end;

  writeln('vector D:');
  for i := 1 to n do write(d[i]:8:2);
  writeln;
end.

И что? Помогло оно тебе? Мало получить решение, его ж надо еще и понять... Разбирайся.

Это сообщение отредактировал(а) volvo877 - 23.12.2009, 13:49

Adriana

Дата 23.12.2009, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.12.2009

Репутация: нет
Всего: нет

ОГРОМНОЕ спасибо, разбирусь. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »