IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Как отсортировать массивы...
сообщение
Сообщение #1


Гость






Как отсортировать массивы Линейным способом и методом пузырька?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 101
Пол: Мужской

Репутация: -  0  +


пузырьком:

Код
{ сортировка массива "пузырьком" по возрастанию }
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.


--------------------
Плавают разными стилями, тонут-одним (ц) Кирпичи
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Вот немножко улучшеный вариант:
Код

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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.08.2017 22:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"