Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 160
1

Матрица. В каждой строке найти: четные элементы(1), минимальный элемент(2). Заменить 1 на 2

07.10.2013, 20:51. Просмотров 463. Ответов 2
Метки нет (Все метки)

Мой неправильный(неработающий) вариант. Поделитесь своим вариантом программы или поломайте голову над моим.
См. также http://www.cyberforum.ru/delphi/thread970066.html
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for i:=1 to n do
begin
min:=k[i,1];
for j:=1 to m do begin
if k[i,j]<min then begin
min:=k[i,j];
h:=i;
f:=j;
end;
end;
end;
for i:=1 to n do
for j:=1 to m do
if (k[i,j] mod 2)=0 then begin
k[h,f]:=min;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 20:51
Ответы с готовыми решениями:

Матрица К. В каждой строке четные элементы заменить на минимальный элемент
Ключевая фраза: в каждой строке. Мучаюсь с этим кодом больше месяца....

Дана матрица K. Четные элементы заменить на min элемент
Программа запускается, но в конце выдает те же данные, что при вводе (т.е. не...

В каждой строке матрицы предпоследний элемент заменить на минимальный элемент матрицы по модулю
В целочисленной матриц a) Найти минимальный элемент Form1: TForm1; ...

Найти минимальный элемент в каждой строке
Найти минимальный элемент в каждой строке и вывести на экарн.

В квадратной матрице в каждой строке найти минимальный элемент
В квадратной матрице в каждой строке найти минимальный элемент, стоящий под...

2
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
08.10.2013, 02:04 2
Для выполнения Вашего задания достаточно
Delphi
1
2
3
4
5
6
7
8
for i:=1 to n do
  begin
    min:=k[i, 1];
    //ищем минимальный элемент строки
    for j := 1 to m do if k[i, j] < min then min := k[i, j];
    //ищем чётные элементы строки и заменяем их на минимальный
    for j := 1 to m do if k[i, j] mod 2 = 0 then k[i, j] := min
  end;
И нечего тут голову ломать.

Добавлено через 3 минуты
Ой. По Вашей ссылке FIL уже написал этот очевидный код... Надо было сразу глянуть...
1
Algoritmer
155 / 95 / 24
Регистрация: 07.03.2013
Сообщений: 490
Записей в блоге: 1
08.10.2013, 08:52 3
Аника, в вашем коде была неправильной только строка 15:
Pascal
1
k[i,j]:=min;
А строки 7, 8 излишни
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2013, 08:52

Найти в каждой строке матрицы максимальный и минимальный элементы
Помогите с задачей пожалуйста,заранее спасибо) Дана матрица B. Найти в...

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно
Дана матрица B. Найти в каждой строке матрицы максимальный и минимальный...

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


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

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

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