![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() ![]() |
![]() |
Olegatronics |
![]()
Сообщение
#1
|
Гость ![]() |
Как отсортировать массивы Линейным способом и методом пузырька?
|
sandman |
![]()
Сообщение
#2
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 101 Пол: Мужской Репутация: ![]() ![]() ![]() |
пузырьком:
Код { сортировка массива "пузырьком" по возрастанию } const n = 10; { количество элементов в массиве } var a:array[1..n] of integer; i,j,x:integer; begin writeln('введите ',n,' элементов массива'); for i:=1 to n do readln( a[i] ); for i:=1 to n-1 do begin for j:=i+1 to n do begin if a[i]>a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; end; end; writeln('после сортировки:'); for i:=1 to n do writeln( a[i] ); end. -------------------- Плавают разными стилями, тонут-одним (ц) Кирпичи
|
Ivs |
![]()
Сообщение
#3
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 209 Репутация: ![]() ![]() ![]() |
Вот немножко улучшеный вариант:
Код w:=true; while w do begin w:=false; for j:=1 to n-1 do if a[j]>a[j+1] then begin w:=true; x:=a[j+1]; a[j+1]:=a[j]; a[j]:=x; end; end; -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
![]() ![]() |
![]() |
Текстовая версия | 30.05.2023 21:45 |