Доброго времени суток всем!
Народ, помажите. Нужно написать программу, которая будет сортировать отрицательную последовательность в массиве. То есть, например:
массив
-1;-3;-6;-4;-2;2;2;2;2;2;
отсортирует в:
-6;-4;-3;-2;-1;2;2;2;2;2;
Без стандартных функций Java или C не могу ))%
Вот то у меня получилось, но работает как то криво. Точнее не криво, а не правильно. Если отрицательные числа идут в начале - то все ок, а если сначала идет любое положительное - лагает ):
program sort_array;
uses CRT;
type M = array[1..10] of integer;
var inp,sort:M;
var i,j,t,n_i:integer;
var n:boolean;
procedure setArray(var M:M);
begin
writeln('Input array`s element');
for i := 1 to 10 do begin
readln(M[i]);
end;
end;
procedure getSortArray(var M1:M);
//var temp:M;
begin
n := true;
for i := 1 to 10 do begin
for j := 0 to 10 - i do begin
if M1[i] AND M1[i+1] < 0 then begin
if M1[i] > M1[i+1] then begin
t := M1[i];
M1[i] := M1[i+1];
M1[i+1] := t;
end;
end;
end;
end;
writeln();
writeln('Sort array: ');
for i := 1 to 10 do begin
writeln('Array[',i,'] = ',M1[i]);
end;
end;
Begin
setArray(inp);
getSortArray(inp);
End.
Комбинируем: http://forum.pascal.net.ru/index.php?s=&showtopic=8438&view=findpost&p=56978
и
http://forum.pascal.net.ru/index.php?showtopic=3065
Получаем:
program sort_array;
uses CRT;
const n = 10;
type M = array[1..n] of integer;
var
inp:M;
procedure setArray(var M1:M);
var i: integer;
begin
writeln('Input array`s element');
for i := 1 to 10 do begin
readln(M1[i]);
end;
end;
procedure getSortArray(var arr:M);
var T, i, j, last_neg: integer;
begin
last_neg := 0;
for i := 1 to n do begin
if arr[i] < 0 then begin
inc(last_neg); T := arr[i];
for j := i downto last_neg + 1 do
arr[j] := arr[j - 1];
arr[last_neg] := T;
end;
end;
for j := 1 to last_neg do begin
for i := last_neg downto j+1 do begin
if arr[i-1] > arr[i] then begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
end;
end;
end;
writeln();
writeln('Sort array: ');
for i := 1 to 10 do begin
writeln('Array[',i,'] = ',arr[i]);
end;
end;
Begin
setArray(inp);
getSortArray(inp);
End.
он не должен сбивать все последовательности отрицательных чисел в начало массива.
то есть он должен сортировать подряд стоящие отрицательные числа.
-2 -3 2 5 2 -3 -4 -7 -5
-3 -2 2 5 2 -7 -5 -4 -3
чтобы он так все сбил в начало у меня тоже получается )%
Ах, вот оно что тебе нужно
procedure getSortArray(var arr:M);
var T, i, j: integer;
begin
for j := 1 to n do begin
for i := n downto j+1 do begin
if (arr[i-1] < 0) and (arr[i] < 0) then
if arr[i-1] > arr[i] then begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
end;
end;
end;
writeln();
writeln('Sort array: ');
for i := 1 to n do begin
writeln('Array[',i,'] = ',arr[i]);
end;
end;
ВООООООООТ ТАКОООООООЕ БОЛЬЧУЧЕЕЕ СПАСИБО! (: