Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
mivel
2 / 2 / 2
Регистрация: 19.12.2009
Сообщений: 13
1

На главную диагональ матрицы поместить наибольшие элементы

19.12.2009, 19:59. Просмотров 680. Ответов 3
Метки нет (Все метки)

На главную диагональ матрицы А(К,К), К <= 100 поместить наибольшие элементы этой матрицы (сначала наибольший, затем следующий по величине и т.д.), а диагональные элементы - на место наибольших.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2009, 19:59
Ответы с готовыми решениями:

Минимальные элементы строк матрицы поместить на главную диагональ
Доброго времени суток товарищи. Помогите решить программку: Найти минимальные элементы каждой...

В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ
Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. ...

Заполнить главную и побочную диагональ матрицы 0, а остальные элементы 1
Составить программу, которая создает и выводит на экран таблицу, в которой главной и побочной...

найти минимальный элемент и поместить его на главную диагональ
В каждой стороке матрицы А(n,n) найти минимальный элемент и поместить его на главную диагональ (т.е...

Поменять главную и побочную диагональ матрицы
в заданном целочисленном массиве Аnn поменять главную и побочную диагональ

3
Snoopy
1913 / 1063 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
19.12.2009, 20:59 2
Цитата Сообщение от mivel Посмотреть сообщение
наибольшие элементы этой матрицы
наибольшие в строках??столбцах??
0
mivel
2 / 2 / 2
Регистрация: 19.12.2009
Сообщений: 13
19.12.2009, 22:29  [ТС] 3
По-моему наибольшие элементы во всей матрице. Как найти наибольший элемент и поменять его с первым диагональным я знаю, а вот что дальше делать не знаю.
0
mivel
2 / 2 / 2
Регистрация: 19.12.2009
Сообщений: 13
23.12.2009, 21:25  [ТС] 4
Вот что у меня получилось:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program kkr3;
uses crt;
var
  A: array [1..100,1..100] of integer;
  i,j,k,n,imax,jmax,c,max: integer;
begin
  clrscr;
  write('Введите число строк и столбцов матрицы: ');
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент (',i,' ',j,'): ');
        readln(A[i,j]);
      end;
  k:=1;
  while k <= n do
    begin
      max:=A[k,k];
      for i:=1 to n do
        for j:=1 to n do
          begin
            if ((A[i,j] > max) and (i<>j)) then
              begin
                max:=A[i,j];
                imax:=i;
                jmax:=j;
              end;
          end;
      c:=A[k,k];
      A[k,k]:=max;
      A[imax,jmax]:=c;
      k:=k+1;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(A[i,j],' ');
      writeln;
    end;
  readkey
end.
Правильно работает только когда на главной диагонали нет ни одного максимального элемента. Как это исправить?
0
23.12.2009, 21:25
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2009, 21:25

Поменять местами первую строку и главную диагональ матрицы.
Если в матрице количество отрицательных элементов в четных строках больше количества положительных...

Поменять местами первую строку и главную диагональ матрицы.
Задача 8 uses crt; const nmax=20; var a:array of integer; n,i,j,kp,ko:byte; x:integer;...

Заменить главную диагональ матрицы вектором наименьших значений в столбцах
люди,нужна помощь) В матрице из случайных чисел размера 7*7 заменить главную диагональ вектором...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru