Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 3
1

В каждой строке найти min элемент и поместить его на главную диагональ

13.01.2012, 15:07. Просмотров 553. Ответов 2
Метки нет (Все метки)

Задача:
Дан массив n*n
В каждой строке найти min элемент и поместить его на главную диагональ.
Проблема:
Как поместить на главную диагональ?
И правильно составлена программа?
Заранее благодарю)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
INPUT "VVOD ZNACHENIYA ", N
DIM A(N, N)
RANDOMIZE TIMER
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100 - 10)
NEXT
NEXT
PRINT "MATRICA"
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT
PRINT
NEXT
PRINT "MIN V KASHDOY STROKE"
FOR I = 1 TO N
MIN = 1E+10
FOR J = 1 TO N
IF A(I, J) < MIN THEN MIN = A(I, J)
NEXT
PRINT MIN
NEXT
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2012, 15:07
Ответы с готовыми решениями:

В матрице найти минимальный элемент и поставить его на главную диагональ
в матрице N*M найти минимальный элемент ,поставить его на главную диагональ, на главной диагонали...

Как найти в каждой строке матрицы C минимальный элемент и поменять его местами с последним элементом строки
Найти в каждой строке матрицы C(n, m) минимальный элемент и поменять его местами с последним...

В квадратной матрице найти сумму и Min по каждой строке
В квадратной матрице найти сумму и Min по каждой строке в QBasic

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

2
651 / 380 / 259
Регистрация: 09.12.2011
Сообщений: 749
Записей в блоге: 29
13.01.2012, 15:37 2
В принципе, решение верное, только не законченное. Вот:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
cls: x=1
randomize timer
input "n=";n
dim A(n,n)
 
for i=1 to n
  min=20
for j=1 to n
  A(i,j)=int(rnd*41-20): print using "### "; A(i,j);
  if A(i,j)<min then min=A(i,j): y=i: z=j' находим мин. в строке
next j
  swap A(y,z),A(x,x): x=x+1' swap-обменять значения переменных
  print :
next i
 
color 2
for i=1 to n
for j=1 to n
  print using "### ";A(i,j);
next j
print :
next i
end
1
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 3
13.01.2012, 15:45  [ТС] 3
спасибо большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2012, 15:45

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

Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В
Ребят помогите пожалуйста с задачей, не понимаю как ее решить, завтра за нее голову отрубят.. ...

Найти максимальные элементы каждой строки и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных
Найти максимальные элементы каждой строки исходной матрицы А(N,N) (N&lt;=10) и поместить их на главную...

Найти наибольшие элементы каждой строки матрицы и поместить их на главную диагональ
Найти наибольшие элементы каждой строки матрицы Z(16,16) и поместить их на главную диагональ....

Найти наименьшие элементы каждой строки квадратной матрицы и поместить их на главную диагональ
где ошибка ? нужно найти малейшие элементы каждой строки квадратной матрицы и поместить их на...


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

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

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