Назад   Задать вопрос
Информатика
ВУЗ
5 отметок
+ В закладки
26.06.2015, 11:20

2. в матрице есть хотя бы 1 элемент, значение которого отрицательно,найти номера его строки и столбцов

Комментарии (0)

Решить задание

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

Ответы и решения


26.06.2015, 17:19

это поиск минимального элемента.

доработай под себя.

среда разработки Embarecodero Delphi XE5 
procedure TForm1.minel;
var min: integer;
i,j:integer;
MinI,MinJ: Integer;
begin
Min:= StrToint(Form2.Stringgrid1.Cells[1,1]); //присвоим значение 1 элемента
for i:=1 to Form2.Stringgrid1.ColCount-1 do //цикл по столбцам
for j:=1 to Form2.Stringgrid1.RowCount-1 do //цикл по строкам

if StrToint(Form2.Stringgrid1.Cells[i,j])<Min //сравниваем элемент с текущим минимальным
then
begin
Min:=StrToint(Form2.Stringgrid1.Cells[i,j]);//значение минимального элемента
MinI:=i; //столбец
MinJ:=j; //строка
end;
Form2.label10.Caption:='Минимальный элемент: '+IntToStr(Min)+#10#13;
Form2.label10.Caption:= Form2.label10.Caption+'Он лежит на пересечении '+IntToStr(MinI)+'-го столбца и ';
Form2.label10.Caption:= Form2.label10.Caption+IntToStr(MinJ)+'-й строки';
end; 

Оценка: 2.0 (голосов: 1)

Комментарии (0)