Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Аника
1 / 1 / 0
Регистрация: 22.12.2012
Сообщений: 160
#1

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

07.10.2013, 20:51. Просмотров 449. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Матрица. В каждой строке найти: четные элементы(1), минимальный элемент(2). Заменить 1 на 2 (Delphi):

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

Дана матрица K. Четные элементы заменить на min элемент - Delphi
Программа запускается, но в конце выдает те же данные, что при вводе (т.е. не вычисляет). var Form1: TForm1; k:array of integer;...

В каждой строке матрицы предпоследний элемент заменить на минимальный элемент матрицы по модулю - Delphi
В целочисленной матриц a) Найти минимальный элемент Form1: TForm1; A:ARRAY OF INTEGER; I,J,T,C,N,M,D,KMIN,RMIN,MIN:INTEGER; ...

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

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

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

2
Cyborg Drone
Модератор
5220 / 3085 / 1278
Регистрация: 17.08.2012
Сообщений: 9,960
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 / 13
Регистрация: 07.03.2013
Сообщений: 489
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

Определить минимальный из нечетных элемент в каждой строке матрицы - Delphi
2. Определить минимальный из нечетных элемент в каждой строке матрицы . 3. Определить произведение кратных семи элементов матрицы. ...

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке - Delphi
Привет помогите пожалуста прогу написать. Дана матрица размера, а x б. Преобразовать матрицу, поменяв местами минимальный и максимальный...


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

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

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