Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Задачка на двумерные массивы

Автор: zena711 3.6.2009, 23:40

Народ, помогите пожалуйста решить задачку на двумерные массивы горю!!!
Даны две квадратные матрицы А и В четвёртого порядка.Найти матрицу С и вывести ее на дисплей, при условии С=А -Вт(В транспонированная).Для матрицы С вывести на дисплей элементы диагонали ниже главной и найти их сумму. Среди элементов выше главной диагонали найти min элемент. Результаты вывести. smile

Задачку решить с помощью random,оператора repeat. В текстовом режиме использовать процедуру textcolor

Автор: Ozzя 4.6.2009, 07:28

Цитата

элементы диагонали ниже главной и найти их сумму

Код


s:=0;
For i:=1 To n Do
 For j:=1 To i Do 
    s:=s+c[i, j];

Цитата

элементов выше главной диагонали найти min элемент

Код


min:=c[1,1];
For i:=1 To n Do
 For j:=i To n Do 
    if c[i, j]<min then
      min:=c[i,j];

Цитата

В транспонированная

Цитата

относительно главной диагонали

Код


for i:=1 to n do
   for j:=i+1 to n do
     begin
        temp:=b[i,j]; 
        b[i,j]:=b[j,i]; 
        b[j,i]:=temp;
     end;

Автор: zena711 4.6.2009, 11:22

Ozzя,

Спасибо вам огромное, вы меня спасли!!!