Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 16.03.2017
Сообщений: 2
1

В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим

16.03.2017, 07:22. Показов 969. Ответов 3
Метки нет (Все метки)

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

В матрице поменять местами строку с наименьшим элементом на строку с наибольшим элементом
В матрице поменять местами строку с наименьшим элементом на строку с наибольшим элементом. Искал...

Поменять столбец с наибольшим элементом, со столбцом с наименьшим (исправьте задачу)
В действительной матрице размером n x m (n, m <10) поменять местами столбец, содержащий элемент с...

В матрице поменять столбец с наибольшим элементом со столбцом с наименьшеим элементом
ПОМОГИТЕ, ПОЖАЛУЙСТА (нужны только программы ,без блок-схем) 4)в массиве В (3,3) поменять...

Поменяйте в матрице местами строку с наибольшим элементом и строку с наименьшим элементом
Введите матрицу (6*9), в которой есть единственные наибольший и наименьшие элементы и они...

3
1037 / 854 / 334
Регистрация: 08.12.2016
Сообщений: 3,283
16.03.2017, 08:20 2
Здесь Форум Delphi и базы данных. У вас какая СУБД для хранения матрицы?
0
ZX Spectrum-128
16.03.2017, 09:18
  #3
 Комментарий модератора 
Arman808, внимательно выбирайте раздел для размещения ваших заданий.
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
16.03.2017, 09:56 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,imn,jmx,mn,mx,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=-50+random(101);
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
mn:=a[1,1];
imn:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then
 begin
  mn:=a[i,j];
  imn:=i;
 end;
Label3.Caption:='Минимальный элемент='+inttostr(mn)+' в строке '+inttostr(imn);
mx:=0;
jmx:=0;
for j:=1 to n do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]>0 then inc(k);
  if k>mx then
   begin
    mx:=k;
    jmx:=j;
   end;
 end;
Label4.Caption:='Максимальное число положительных='+inttostr(mx)+' в столбце '+inttostr(jmx);
Label2.Caption:='Обмен строки '+inttostr(imn)+' и столбца '+inttostr(jmx);
for i:=1 to n do
 begin
  k:=a[imn,i];
  a[imn,i]:=a[i,jmx];
  a[i,jmx]:=k;
 end;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;
0
Вложения
Тип файла: 7z Обмен строки и столбца в матрице.7z (2.8 Кб, 1 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2017, 09:56

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

В матрице поменять местами строки с наибольшим и наименьшим элементом
В матрице А (mxn) поменять местами строки с наибольшим и наименьшим элементом. Вот код, но здесь...

В матрице А (mxn) поменять местами строки с наибольшим и наименьшим элементом
В матрице А (mxn) поменять местами строки с наибольшим и наименьшим элементом. Вот на паскале,...

В матрице найти разность между наибольшим элементом третьей строки и наименьшим элементом пятого столбца
В двумерном массиве К(6,6) найти разность между наибольшим элементом третьей строки и наименьшим...

Найти строку с наименьшим элементом в матрице. Обнулить эту строку
1) НАйти наибольший элемент матрицы на главной диагонале. Вычеркнуть стобец в коотром находится...

Поменять местами столбцы с наибольшим и наименьшим элементом.
Составить программу, позволяющую с помощью датчика случайных чисел сформировать матрицу MxN....

Поменять местами столбцы с наибольшим и наименьшим элементом.
С помощью датчика случайных чисел сформировать матрицу n x m. Поменять местами столбцы с наибольшим...


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

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

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