![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
Дана матрица размера MxN.поменять местами столбцы, содержащие минимальные и максимальные эллементы массива.
паскаль. так чтоб было не мудренно ) |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 24.04.2010
Сообщений: 205
|
![]()
Это фрагмент из настраиваемого теста где строковые массивы сортируются по возрастанию. Вопросы и ответы на них вводятся в ходе создания теста. На один вопрос можно дать 5 вариантов ответов на другой 3. Но эта процедура все равно поменяет все по возрастанию.
procedure TForm2.BubbleInt(var M: array of integer); var i, j, N, Rtmp,Rtmp1: integer; noswap: boolean; Buff:TStringList;bStr:string; begin N := High(M); for i:=0 to N-1 do begin Buff:=TStringList.Create; noswap := true; for j:=N-1 downto i do if M[j] > M[j+1] then begin Rtmp := M[j+1]; M[j+1] := M[j]; M[j] := Rtmp; Rtmp1 := msCo[j+1]; msCo[j+1] := msCo[j]; msCo[j] := Rtmp1; Buff.Assign(mmList[j+1]); mmList[j+1].Assign(mmList[j]); mmList[j].Assign(Buff); bStr:= cbQust.Items[j+1]; cbQust.Items[j+1]:= cbQust.Items[j]; cbQust.Items[j]:= bStr; noswap := false; end; if(noswap) then begin Buff.Free; exit end end; end; |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поменять местами 3-ю и 4-ую строки массива | танечка155 | Помощь студентам | 3 | 23.11.2010 21:52 |
С++. Поменять местами средние столбцы со вторым и предпоследним | Bonne | Помощь студентам | 0 | 10.02.2010 19:52 |
Поменять в таблице exel столбцы местами | marYna | Microsoft Office Excel | 2 | 15.01.2009 18:40 |
поменять местами столбцы | veter_s_morya | SQL, базы данных | 4 | 29.06.2008 13:36 |
в двухмерном массиве поменять местами столбцы с максимальным и минимальным элементами | Лёха | Помощь студентам | 5 | 18.12.2007 18:12 |