|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2013, 19:21 | #1 |
Регистрация: 19.01.2012
Сообщений: 8
|
Матрицы
Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент и все элементы, расположенные в одной строке и в одном столбце с минимальным, заменяет на минимальное значение. Учесть, что значения в массиве не повторяются.
|
28.05.2013, 20:07 | #2 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
пишу код не только за печеньки
|
28.05.2013, 21:04 | #3 | |
Регистрация: 19.01.2012
Сообщений: 8
|
Цитата:
я уже читал эту тему. |
|
28.05.2013, 21:06 | #4 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
и на основе всего прочитанного не появилось никаких мыслей и наработок?
пишу код не только за печеньки
|
28.05.2013, 21:13 | #5 |
Регистрация: 19.01.2012
Сообщений: 8
|
|
28.05.2013, 21:15 | #6 |
Регистрация: 19.01.2012
Сообщений: 8
|
|
28.05.2013, 21:26 | #7 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
я еще ни одной из ваших программ и не видел...
так что все может быть...
пишу код не только за печеньки
|
28.05.2013, 21:30 | #8 |
Регистрация: 19.01.2012
Сообщений: 8
|
Для заданной матрицы размером 8×8 найти такие k, что k-я строка матрицы совпадает с k-ым столбцом. Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.
Вроде матрицу составляет правильно. Только не могу понять чего нужно добавить чтобы сумму считало program matritsa; uses crt; const n=8; type matr= array[1..n,1..n] of integer; var a: matr; i, j, k : integer; Procedure findk ( a:matr; var k:integer ); var i, j: integer; begin for i:=1 to n do begin k:=i; for j:=1 to n do if A[i,j] <> A [j,i] then begin k:=0; if a[j,j]<0 then k:=k+j; break; end; if k>0 then break; end; end; begin clrscr; randomize; for i:=1 to n do for j:=1 to n do begin a[i,j]:=random(10)-2; end; findk(a, k); writeln('k=',k); writeln; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readkey; end. Последний раз редактировалось Folayt; 28.05.2013 в 21:33. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перекодировать консолевкий код под оконное приложение в Билдер 6. Решаю матрицы Матрицы | g.e.s | Общие вопросы C/C++ | 0 | 18.11.2012 20:21 |
В каждой строке матрицы А(n*n) найти наибольший и наименьший элементы матрицы и поменять их местами | saha1994 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 15.05.2012 20:38 |
Первый элемент - размерность матрицы, остальные образуют строки этой матрицы | Anastasiya_Pot | Помощь студентам | 2 | 10.04.2012 09:46 |
Ф-ия, определяющая сумму строк матрицы, если на главной диагонали матрицы имеется отрицательный эл-т. | Volk_xD | Помощь студентам | 6 | 05.01.2011 13:39 |
На главную диагональ матрицы поместить наибольшие элементы этой матрицы | mivel | Помощь студентам | 2 | 23.12.2009 21:19 |