|
#1
|
|||
|
|||
del
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:20. |
#2
|
||||
|
||||
В чем сложность?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:20. |
#4
|
|||
|
|||
Цитата:
Любезнейший - вы не по адресу. После изучения гугла по поводу матриц - из ничерта непонятной белиберды фраза Цитата:
превратится в понятную. |
#5
|
|||
|
|||
Тяжелый случай.
Вот решение. Но про матрицы ты все- таки прочитай... Код:
{-------устанавливаем порядок матрицы-----------------} procedure TForm1.SpinEdit1Change(Sender: TObject); var i:integer; begin with StringGrid1 do begin RowCount:=SpinEdit1.Value+1; ColCount:=SpinEdit1.Value+1; for i:=1 to RowCount do Cells[0,i]:=intToStr(i); for i:=1 to ColCount do Cells[i,0]:=intToStr(i); end; //with end; {----вычисление---------------} procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; MaxVal,MinVal:integer; begin MaxVal:=Low(Integer); MinVal:=High(Integer); with StringGrid1 do begin //главная диагональ (min) for j:=2 to SpinEdit1.Value do for i:=1 to j-1 do MinVal:=min(MinVal,StrToInt(Cells[j,i])); //побочная диагональ (max) for j:=2 to SpinEdit1.Value do for i:=SpinEdit1.Value downto SpinEdit1.Value-j+2 do MaxVal:=max(MaxVal,StrToInt(Cells[j,i])) end; //with Edit1.Text:=IntToStr(MaxVal); Edit2.Text:=IntToStr(MinVal); end; |
#6
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:20. |
#7
|
||||
|
||||
Цитата:
[Error] Unit1.pas(63): Undeclared identifier: 'min' - юпитер в созвездии девы; [Error] Unit1.pas(67): Undeclared identifier: 'max' - марс во второй фазе затмения. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#8
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:20. |
#9
|
||||
|
||||
Цитата:
Подробно по этим функциям можете почитать здесь: http://clme.ru/m7 — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 27.11.2011 в 15:02. |
#10
|
|||
|
|||
эти функции определены в модуле Math
впиши строку Uses Math; |
#11
|
|||
|
|||
delete delete
Последний раз редактировалось Andrew93, 26.03.2018 в 20:21. |