[Pascal] Расстановка элементов в массиве

[merch]

Доброго времени суток!

Прошу помочь с задачей:

В массиве X(3.5, -7.4, 1.7, 12.9, -5.6, 21.3, -8.6, 4.5, 0.6, 2.5) переставить элементы так, чтобы сначала стояли отридцательные элемены, а затем положительные. Группу положительных элементов расставьте в убывающем порядке. Напечатать исходный и измененный массивы.

Человек помог написать программу такого рода:

const
   CSize = 10;

type
   TArray = array[1..CSize] of real;

{-----------------------------------------------}
procedure ArrayCopy(theFromArray: TArray; var theToArray: TArray);
var
   i: integer;
begin
   for i:= 1 to CSize do
      theToArray[i]:= theFromArray[i];
end;
{-----------------------------------------------}
procedure ArrayPrint(theArray: TArray);
var
   i: integer;
begin
  for i:= 1 to CSize do
     write(theArray[i]:2:1, ' ');
  writeln;
end;
{-----------------------------------------------}
procedure Swap(var theFirst, theSecond: real);
var
   buff: real;
begin
   buff:= theFirst;
   theFirst:= theSecond;
   theSecond:= buff;
end;
{-----------------------------------------------}
procedure ArrayFirstNegativeNumber(var theArray: TArray);
var
   L, R: integer;
begin
   L:= 1;
   R:= CSize;

   while (L < R) do
   begin
      while ((L < R) and (theArray[L] < 0)) do
         inc(L);
      while ((L < R) and (0 <= theArray[R])) do
         dec(R);
      if (L < R) then
         Swap(theArray[L], theArray[R]);
   end;
end;
{-----------------------------------------------}
procedure ArraySortByDiminution(var theArray: TArray; thePosBegin, thePosEnd: integer);
var
   i, j: integer;
begin
   for i:= thePosBegin to thePosEnd do
      for j:= i to thePosEnd do
         if (theArray[i] < theArray[j]) then
            Swap(theArray[i], theArray[j]);
end;
{-----------------------------------------------}
function FindFirstPositiveNumber(theArray: TArray): integer;
var
   i: integer;
begin
   i:= 1;
   while ((i <= CSize) and (theArray[i] < 0)) do
      inc(i);

   if (i <= CSize) then
      FindFirstPositiveNumber:= i
   else
      FindFirstPositiveNumber:= 0;
end;
{-----------------------------------------------}

const
   CArr: TArray = (3.5, -7.4, 1.7, 12.9, -5.6, 21.3, -8.6, 4.5, 0.6, 2.5);

var
   arr: TArray;
   pos: integer;
begin
   {Копируем константные значения в массив}
   ArrayCopy(CArr, arr);

   {Печатаем на экран исходный массив}
   ArrayPrint(arr);

   {Перекидыаем а начало массива отрицательные элементы}
   ArrayFirstNegativeNumber(arr);

   {Ищем в массиве первое вхождение положительного числа}
   pos:= FindFirstPositiveNumber(arr);

   {В том случае если положительное число найдено, то}
   if (pos <> 0) then
      {Сортируем массив по убыванию с начала первого
       входжения положительного числа и до конца}
      ArraySortByDiminution(arr, pos, CSize);

   {Печатаем на экран исходный массив}
   ArrayPrint(arr);
end.

Все конечно работает, но должно выходить все как то проще.

Вот то что делал я:

Program lab_3;
uses crt;
const n=10;
a:array[1..n] of real=(3.5,-7.4,1.7,12.9,-5.6,21.3,-8.6,4.5,0.6,2.5);


var j,i,k:integer;

{-----------------------------------------------}
 
 procedure Swap(var g1, g2: real);
var
   buff: real;
begin
   buff:= g1;
   g1:= g2;
   g2:= buff;
end;

{-----------------------------------------------}

begin
for i:=1 to 10 do
if a[i]<0 then write(' ',a[i]);

begin
   for i:= 1 to n do
      for j:= i to n do
         if (a[i] < a[j]) then
            Swap(a[i], a[j]);
            
            end;
            end;

end.

В моем случае выдается ошибка : Параметр не может передаваться по ссылке ( параметр a[i] )

help!

[Mad_Cat]

Параметр не может передаваться по ссылке

потому что массив у тя константа) а в константе элементы не поменяешь)

[Alex11223]

Массив мб после var надо объявлять, а не перед?

[merch]

Ага, а как я задам нужный мне массив, если он будет висеть в разделе переменных?

Программа выдает ошибку при присваивании в разделе переменных a:array[1..n] of real=(3.5,-7.4,1.7,12.9,-5.6,21.3,-8.6,4.5,0.6,2.5);

Как присвоить, подскажите пожалуста

[Mad_Cat]

для этого в проге №1 из поста 1 есть

procedure ArrayCopy(theFromArray: TArray; var theToArray: TArray);

она копирует константный массив в переменный)

можно ли присвоить значения массиву без использования процедур?

Конечно)

[merch]

Это понял, с этим разобрался, вопрос стоит такой: можно ли присвоить значения массиву без использования процедур?

[Alex11223]

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

[merch]

Пытался сейчас делать, вышла такая бурда:

Program lab_3;
uses crt;
const n=10;
type mass = array[1..n] of real;

var j,i,k:integer;


{-----------------------------------------------}

procedure ArrayCopy(theFromArray: mass; var theToArray: mass);
var
   i: integer;
begin
   for i:= 1 to n do
      theToArray[i]:= theFromArray[i];
end;
{-----------------------------------------------}
 
 procedure Swap(var g1, g2: real);
var
   buff: real;
begin
   buff:= g1;
   g1:= g2;
   g2:= buff;
end;

{-----------------------------------------------}
const
   CArr: mass = (3.5, -7.4, 1.7, 12.9, -5.6, 21.3, -8.6, 4.5, 0.6, 2.5);
var arr:mass;
begin

ArrayCopy(CArr, arr);



for i:=1 to 10 do
if Arr[i]<0 then write(' ',Arr[i]);

   for i:= 1 to n do
      for j:= i to n do
         if (Arr[i] < Arr[j]) then
            Swap(Arr[i], Arr[j]);
            
writeln(Arr[i])
            
            end.

Выводит только половину массива измененного...

в этом месте что то напорол походу

for i:= 1 to n do
      for j:= i to n do
         if (Arr[i] < Arr[j]) then
            Swap(Arr[i], Arr[j]);

конкретно в этой строке

for j:= i to n do

[merch]

Ребят ну помогите хоть немного, может кто знает как методом "пузырька" расставлять элементы в массиве?

[Mad_Cat]

Пузырек - паскаль
зачем ты сортируешь весь массив полностью7