Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2013, 14:24   #1
wlll
Пользователь
 
Регистрация: 07.11.2010
Сообщений: 25
По умолчанию Минимальный элемент главной диагонали квадратной матрицы

Здравствуйте! Нужно найти минимальный элемент главной диагонали квадратной матрицы и номер строки где находится минимальный элемент...Матрицу генерирую случайными числами!
Код:
implementation

{$R *.dfm}
 var A:array [1..5,1..5] of Real;
 i,j:integer;
 min:Real;
procedure TForm1.FormCreate(Sender: TObject);
begin
begin
for i:=1 to 5 do
  StringGrid1.cells[0,i]:=IntToStr(i)+'-й рядок';
  for j:=1 to 5 do
  StringGrid1.cells[j,0]:=IntToStr(j)+'-й стовпчик';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
min:=a[1,1];
for i:=1 to 5 do
if a[i,i]<min then min:=a[i,i];
  k:=i;
  Memo1.Lines.Add('min:'+FloatToStr(min));
  Memo1.Lines.Add('номер стобца: '+IntToStr(k));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
For i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(50)-25;
For i:=1 to 5 do
for j:=1 to 5 do
Stringgrid1.Cells[i,j]:=FloatToStr (A[j,i]);
end;
Минимальный элемент находит, но номер строки все время пишет - 6! Что я написал не так?
Еще вопрос: как очистить Stringgrid?

Последний раз редактировалось wlll; 13.04.2013 в 16:04.
wlll вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
минимальный элемент на главной диагонали Klasky C++ Builder 8 20.11.2012 19:17
сумма элементов квадратной матрицы расположенных выше главной диагонали (Pascal) Vogelfrei Помощь студентам 4 15.12.2011 20:38
В целочисленной квадратной матрице наибольший элемент каждой строки поменять местами с элементом главной диагонали DesignGenius C# (си шарп) 0 18.10.2011 20:22
Все элементы выше главной диагонали квадратной матрицы, заменить на минимальный элемент (VisualBasic) ride013 Помощь студентам 4 03.05.2011 20:40
Максимальный элемент выше главной диагонали матрицы (C#) Dj_SheLL Помощь студентам 2 14.02.2011 23:21