Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 06.11.2009
Сообщений: 23
1

Поменять местами строку матрицы с максимальным элементом на главной диагонали с заданной

08.11.2009, 19:18. Просмотров 1495. Ответов 2
Метки нет (Все метки)


Задана квадратная матрица.
Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером.
В каждом столбце найти минимумы и вывести их на печать с указанием их индексов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2009, 19:18
Ответы с готовыми решениями:

Поменять местами главный элемент заданной строки с максимальным элементом главной диагонали
С клавиатуры вводится произвольная матрица (не более 5-5), после чего делается его контрольный...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять в матрице местами строку с максимальным элементом на главной диагонали со строкой с заданным номером.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой с заданным номером
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали...

2
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
08.11.2009, 20:53 2
Лучший ответ Сообщение было отмечено varyaking как решение

Решение

varyaking, вот:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,temp,tempi,tempj,max,min:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìàêñèìóì íà ãëàâíîé äèàãîíàëè}
  max:=a[1,1];
  tempi:=1;
  for i:=2 to str do
    if a[i,i]>max then
    begin
      tempi:=i;
      max:=a[i,i]
    end;
  writeln('Ìàêñèìàëüíûé ýëåìåíò ãëàâíîé äèàãîíàëè íàõîäèòñÿ â ',tempi,' ñòðîêå è îí ðàâåí: ',max);
  {ìåíÿåì ñ çàäàííîé ñòðîêîé}
  writeln('Ââåäèòå íîìåð ñòðîêè ñ êîòîðîé âû õîòèòå ïîìåíÿòü ñòðîêó ñîäåðæàùóþ ìàêñèìóì...');
  repeat
    readln(tempj);
    if not tempj in [1..str] then
      writeln('Òàêîé ñòðîêè íå ñóùåñòâóåò! Ïîïðîáóéòå åùå ðàç èëè ââåäèòå 0 äëÿ âûõîäà...');
  until
    (tempj in [1..str]) or (tempj=0);
  if tempj=0 then
    exit;
  for j:=1 to sto do
  begin
    temp:=a[tempi,j];
    a[tempi,j]:=a[tempj,j];
    a[tempj,j]:=temp
  end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
  {íàõîäèì ìèíèìóìû}
  for j:=1 to sto do
  begin
    min:=a[1,j];
    tempi:=1;
    tempj:=j;
    for i:=2 to str do
      if a[i,j]<min then
      begin
        min:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
    writeln('Ìèíèìàëüíûé ýëåìåíò ',j,' ñòîëáöà a[',tempi,',',tempj,']=',min);
  end;
end.
1
0 / 0 / 0
Регистрация: 06.11.2009
Сообщений: 23
08.11.2009, 21:18  [ТС] 3
Благодарствую
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2009, 21:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой с заданным номером
Задана квадратная матрица. Переставить строку с максимальным элементом на главной диагонали со...

Поменять местами строку матрицы с максимальным элементом на главной диагонали, со строкой с заданным номером n
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)
Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...


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

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

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