VPF::транспонирование - Форум программистов

yuser2587

Дата 12.4.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.4.2006
Где: Архангельск

Репутация: нет
Всего: нет

Я только начал изучать Delphi и написал простую программу для транспонирования квадратной матрицы.
Вот тут код я написал. На форме есть Edit1.text, Memo и кнопка. Все работает , но мне надо так изменить, чтобы например я ввожу в Edit n=3. Т.е. надо заменить 3 строку на 3 стобец. А остальное ,чтоб не изменялось.
Я уже все перебробовал, но не могу понять как задать условие. Начальная матрица квадратная и вторая естественно тоже.

Помогите пожалуйста с задачей, где надо че изменить. Очень надо!!!

Код


procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..100,1..100]of integer;
    b:array[1..100,1..100]of integer;
    i,j,n:byte;
    s:string;
begin
n:=strtoint(Edit1.Text);

(формирование исходной матрицы):

Код


for i:=1 to n do
begin
 for j:=1 to n do
 begin
 a[i,j]:=random(10);
 s:=s+inttostr(a[i,j])+' ';
 end;
memo1.Lines.Add(s);
s:='';
end;

(формирование второй матрицы):

Код


for i:=1 to n do
begin
 for j:=1 to n do
 begin
 b[i,j]:=a[j,i];
 s:=s+inttostr(b[i,j])+' ';
 end;
memo1.Lines.Add(s);
s:='';
end;
end;

Это сообщение отредактировал(а) Girder - 12.4.2006, 22:02

Albinos_x

Дата 12.4.2006, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

используй StringGrid...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

yuser2587

Дата 12.4.2006, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.4.2006
Где: Архангельск

Репутация: нет
Всего: нет

А проще то нельзя, может подскажешь хотя бы как.

Albinos_x

Дата 12.4.2006, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

тут можно использовать несколько методов... к примеру запихнуть массив в глобальную переменную, а потом толко перезаписывать нужные... или писать функцию которая будет разбивать строки на столбцы и записывать в массив и уже полученые массивы перезаписывать и выводить... или ф-ю которая напрямую будет перезаписывать...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

yuser2587

Дата 12.4.2006, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.4.2006
Где: Архангельск

Репутация: нет
Всего: нет

Ну а в моем коде разве нельзя чего-нибудь сделать, все что ты пишешь для меня еще сложновато.

Демо

Дата 12.4.2006, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

>автор
добавь еще кнопку.
После ввода в Edit.text=3 и нажатия на кнопку очищай Memo и формируй матрицы заново.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »