алгоритмы упорядочивания

[Тигран001]

Упорядочить по возрастанию массив действительных чисел a1, ..aN, используя алгоритм сортировки обменами - II.
пожалуйста напишите програмку на паскале, тема алгоритмы упорядочивания, очень надо

[xakkkkker]

Вот полностью готовая задача. Делает сортировку методом пузырька...
На лекции ходи братан все будет понятно.....
Я тоже такой же студент как и ты 1 курс программист...

Program SORTIROVKA_MASSIVA;
 const n=10;
 var
  mas: array[1..n] of integer;
  pr,i,j:integer;
  
 begin
  For i:= 1 to n do
   Readln(mas[i]);
  For j:=1 to n do 
  For i:= 1 to n-1 do
   If mas[i]>mas[i+1] then
    begin
	 pr:=mas[i+1];
	 mas[i+1]:=mas[i];
	 mas[i]:=pr;
	end;

  For i:= 1 to n do
   Writeln (mas[i]);
 end.

[Grag]

Program SORTIROVKA_MASSIVA;
 const n=10;
 var
  mas: array[1..n] of integer;
  pr,i,j:integer;
  
 begin
  For i:= 1 to n do
   Readln(mas[i]);
  For j:=1 to n do 
  For i:= 1 to n-1 do
   If mas[i]>mas[i+1] then
    begin
	 pr:=mas[i+1];
	 mas[i+1]:=mas[i];
	 mas[i]:=pr;
	end;

  For i:= 1 to n do
   Writeln (mas[i]);
 end.

Ты в этом уверен?

[Stilet]

Ты в этом уверен?

А что тебя тут смутило?

[Grag]

Цикл по J...

[Stilet]

Да нормально все...
Для сортировки этого типа нужно как раз два цикла...
http://www.delphiworld.narod.ru/base...thod_sort.html
Единственное к чему можно придраться так это к mas[i]>mas[i+1]
Тут по хорошему как раз нужно J тот самый использовать а не i+1

[Grag]

Вот обычная сортировка "пузырьком"...

              //сортировка массива окладов компаний
              for ims:=0 to cntKladcomp-1 do
                for jms:=ims+1 to cntKladcomp-1 do
                  if msKladcomp[ims]>msKladcomp[jms]then
                    begin                      
                      msX:=msKladcomp[ims];
                      msKladcomp[ims]:=msKladcomp[jms];
                      msKladcomp[jms]:=msX
                    end;

Это рабочий код из программы...

Вот я и не уверен, что его сортировка будет работать правильно...

[xakkkkker]

я проверял программа работала... а цикл по моему тоже правильно составил. Нам на лекции так объясняли

[Serge_Bliznykov]

Сообщение от Grag

Это рабочий код из программы...

Grag, Вы уж простите меня, зануду.. Но либо это нерабочий (не совсем корректный) код, либо размер массива msKladcomp задан так, что там есть "хитрые" "лишние" элементы...

поясню свою мысль примером кода (заметьте, что Ваш код сортировки скопирован "буква в букву"! даже отступы оставил Ваши ):

const
  cntKladcomp = 5;
var
  ims, jms, msX : integer;
  msKladcomp : array[0..cntKladcomp] of integer;
begin
  for ims:=0 to cntKladcomp do msKladcomp[ims] := 10 - ims;

  { ввывод массива }
  WriteLn('Исходный массив: ');
  for ims:=0 to cntKladcomp do Write(msKladcomp[ims]:4);
  WriteLn;

              
              {сортировка массива окладов компаний}
              for ims:=0 to cntKladcomp-1 do
                for jms:=ims+1 to cntKladcomp-1 do
                  if msKladcomp[ims]>msKladcomp[jms]then
                    begin
                      msX:=msKladcomp[ims];
                      msKladcomp[ims]:=msKladcomp[jms];
                      msKladcomp[jms]:=msX
                    end;

  { ввывод массива }
  WriteLn('После сортировки массив: ');
  for ims:=0 to cntKladcomp do Write(msKladcomp[ims]:4);
  WriteLn;

end.

p.s.
собственно претензия к строчке:
for ims:=0 to cntKladcomp-1 do
имхо, должно быть
for ims:=0 to cntKladcomp-2 do

[Grag]

Большое спасибо, замечание верное, как то не обратил внимание на это.