Сори Виол, но у мня самого времени в обрез
всю неделю до ночи сижу за своими задачами...вон две задачи выложил, никто неотписывает...наверн кто просмотрели немогут помочь
Я попробую немного пояснить в каком направлении двигаться...
Вот кусок кода из бутон2:
Цитата:
j:=0; {-это мы назначили перед циклом что бы был столбец первый, тебе надо чтоб вводилось, значит будет j:=StrToInt(Edit1.text)-1}
For i:=0 to m-1 do
Begin
b[i]:=a[i,j]; {тут в одномерный массив b[i] записывается столбик, номер которого вёл пользователь}
End;
j:=m-1; {тут назначается поледний столбец, его тоже можеш привязать к переменной как выше...}
For i:=0 to m-1 do c[i]:=a[i,j]; {тут всё так же ток в c[i] пишется последний стлбуц}
For i:=0 to m-1 do a[i,j]:=b[i];{а начиная отсюда из массивов b[i] и c[i] дописываются обратно в матрицу ток на место друг друга}
j:=0;
For i:=0 to m-1 do a[i,j]:=c[i];
|
Что бы вместо случайных по формуле заполнялась матрица, надо вместо рандомаза подставить формулу твою в буттон1
Цитата:
|
For j:=0 to m-1 do a[i,j]:=Random(100)-50;
|
только сверху Randomaize незабудь удалить...