Developing.ru

Я хотел еще спросить, у меня тут загвоздка. Мне нужен алгоритм решения вот такой задачи: 1) нужно найти максимум среди сумм элементов диагоналей, параллельных побочной диагонали у квадратной матрицы. Нужен просто код.
2)И как переставлять строки при условии повышения суммы элементов в этих строках. Вывод естественно в другом StringGride

Отличается не сильно, даже меньше по объему

[quote="Tre"]Преобразованный массив необходимо выводить в другом StringGride. Как это сделать? [/quote]
Да точно так же, как и в первом! Кладешь на форму еще один СтрингГрид (почему его все преподы так нежно любят, я вот терпеть не могу) и пишешь:
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[i,j]:= .... что тебе там надо вывести

Помнишь ты мне сделал задачу с одномерным массивом? Так вот, Я все задачи с одномерными сделал, но оказывается Преобразованный массив необходимо выводить в другом StringGride. Как это сделать? И сильно ли этот вывод отличается для задач с двумерными матрицами?

[quote="somewhere"]Для ввода данных "с руки" в Дельфи служат объекты.[/quote] спасибо за задачу. Попробую разобраться

Сделал Options GoEditing true. Ввод пошел. Спасибо, за ранний совет ;-)

[quote="somewhere"]Для ввода данных "с руки" в Дельфи служат объекты.[/quote]

Пробую на событие OnSelectCell, сделать ввод числа, в соответсвующий cell. Подскажешь куда смотреть?

Для ввода данных "с руки" в Дельфи служат объекты.

А в чем проблема, там же все еще проще!
Например, есть двумерный массив mas2=array[1..m,1..n] of integer
Если мы хотим что-то сделать с каждым элементом массива - делаем два цикла (по горизонтали и вертикали) и мучаем элементы:
for i:=1 to m do
for j:=1 to n do
mas2[i,j]:= что-то там
А если одномерный - просто считай, что у тебя n тождественно равен 1.
Правда, такой код будет неудобен, поэтому можно второе измерение вообще выкинуть
mas1:array[1..m] of integer;
И тогда достаточно одного цикла
for i:=1 to m do
mas1[i]:= что-то там
Что тут еще сложного?

[quote="somewhere"]И попробуй пока сам, иначе какой смысл решать задачи мне. Меня это не научит, а вот чем больше времени ты сам будешь ей уделять - тем больше опыта и знаний ты получишь. Не забывай, что всегда есть Help который расскажет о каждом свойстве и методе любого объекта.[/quote]
тк, я бы сидел, но у меня времени совсем нет, а скоро уже сдавать 15 задач. Половина из них двумерные, половина одномерные. Ты мне дал код для двумерной, вот если дашь и для одномерного, для вот этой задачи, тогда я уж наверно и сам попробую посидеть. А так толку совсем нет, я попросту ниче не успею понять, а здесь будет хоть от чего отталкиваться. напиши мне решение для одномерного просто, только, ладно, не надо с clrscr, пусть будет все просто как с двумерной. Без фишек. Заранее благодарю
P.S. а когда организуешь ввод с рук эти строчки надо удалять?

procedure TForm1.BitBtn1Click(Sender: TObject);
var x, y: Integer;
begin
for x:=0 to sg.RowCount-1 do
for y:=0 to sg.ColCount-1 do
sg.Cells[y,x] := Inttostr(random(50)-25);
end;
а вместо них что-нибудь надо писать?
Я в Options у StringGrid поставил True. Значения ввожу но выходит ошибка, типа не целый тип переменная принимает. Что-то типа того. короче мне тяжело разобраться. Помоги