![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 18.11.2007
Сообщений: 2
|
![]()
Вот такое задание. Дана матрица A(n,n)(Memo). Поменять местами K и L строки.:
|
![]() |
![]() |
![]() |
#2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
1. Почему в Общих вопросах Делфи.
2. Что сделали. 3. Что не получилось. p.s.: без вашего участия проблематично будет.
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
#3 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Запоминаем К-ую строку во временной переменной.
Копируем L-ую строку в позицию К. Копируем содержимое временной переменной в строку L. Все. |
![]() |
![]() |
![]() |
#4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
А еще можно сделать без дополнительной переменной:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 18.11.2007
Сообщений: 2
|
![]()
Дан исходник, который перегоняет данные из одного memo в другой и с ним надо что-то сделать , чтобы еще и строки местами менял
procedure TForm1.Button9Click(Sender: TObject); var a:array [1..10,1..10] of integer; i,j,k,rez,l:integer; str,s:string; begin str:=Memo1.text; S:=Memo2.Text; for i:=1 to strtoint(edit2.text) do begin for j:=1 to strtoint(edit2.text) do begin k:=pos(' ',str); a[i,j]:=StrToInt(copy(str,1,k-1)); delete(str,1,k); end; delete(str,1,2); end; Memo3.Clear; for i:=1 to strtoint(edit2.text) do begin S:=''; for j:=1 to strtoint(edit2.text) do S:=S+inttostr(a[i,j])+' '; memo3.Lines.Add(s); end; end; |
![]() |
![]() |
![]() |
#6 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
Почему вы работаете с матрицой как с текстом?
Предположим массив уже имеется, тогда объявляем глобальные переменные: Код:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как поменять строки местами? | ar. | Microsoft Office Word | 1 | 05.09.2008 11:36 |
поменять местами столбцы | veter_s_morya | SQL, базы данных | 4 | 29.06.2008 13:36 |
Поменять местами две половины массива, сохраняя их порядок. | Леди Уинтер | Помощь студентам | 11 | 09.01.2008 09:21 |
Как поменять строки в текстовом файле местами | _ares_ | Помощь студентам | 8 | 13.11.2007 02:14 |