|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2013, 22:10 | #1 |
Новичок
Джуниор
Регистрация: 01.02.2013
Сообщений: 1
|
квадратная вещественная матрица
Всем доброго времени суток..)
помогите пожалуйста решить. Я честно искал везде но не мог найти как делать (т.к в делфи не разбираюсь, а задание по учебе дали) : Дана квадратная вещественная матрица. Найти наименьший элемент среди эле¬ментов, расположенных на побочной диагонали (диагональ, идущая сверху вниз, справа налево). вот Я набросал : procedure TfmExample.bbRunClick(Sender: TObject); var min,s,r:real; i,j,ni,nj:byte; begin s:=0; mmOutput.Lines.Add('Наименьший элемент (строка, столбец)'); with StringGrid1 do begin min:=StrToFloat(Cells[0,0]); ni:=1; nj:=1; for i:=0 to RowCount-1 do for j:=0 to ColCount-1 do begin r:=StrToFloat(Cells[j,i]); if min>r then begin min:=r; ni:=i+1; nj:=j+1 end; // then if r>0 then s:=s+r else if r=0 then mmOutput.Lines.Add(IntToStr(i+1)+', '+IntToStr(j+1)) end // for j end; // with mmOutput.Lines.Add('MIN = '+FloatToStr(min)+' строка - '+IntToStr(ni)+', столбец - '+IntToStr(nj)); mmOutput.Lines.Add('S = '+FloatToStr(s)) end; procedure TfmExample.edInputClick(Sender: TObject); begin if Tag=0 then begin StringGrid1.RowCount:=StrToInt(edIn put.Text); lbOutput.Caption:='Количество столбцов'; Tag:=1 end else StringGrid1.ColCount:=StrToInt(edIn put.Text); edInput.Clear end; Это я написал по примеру ... уверен что не правильно,.. но все же будьте добры исправьте )) p.s- Заранее спасибо |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вещественная матрица | keks-zheka | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.12.2012 12:20 |
Вещественная матрица | xamelion | Visual C++ | 0 | 27.02.2012 03:09 |
Вещественная матрица | Ольга2012 | Помощь студентам | 1 | 28.12.2011 22:48 |
Квадратная вещественная матрица | Florida | Помощь студентам | 1 | 11.12.2010 16:09 |
Класс - вещественная матрица | ne4eHbko | Общие вопросы .NET | 1 | 29.06.2010 23:34 |