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

[Alex11223]

Метод пузырька
Но по условию же вам вроде не это надо?

[merch]

Задумывалось так, что редактироваться будут только положительные элементы массива. Но как это реализовать, вот сижу думаю... Вдруг кто подскажет

[merch]

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

http://lmgtfy.com/?q=%D0%BC%D0%B5%D1...0%B0%22+pascal

ну неправельно меня поняли, у меня он есть, пример решенный этом методом есть:

Program lab_3;
uses crt;

type massiv=array[1..10] of real;

var

y:massiv;
s:real;
i,j:integer;

const
 x:massiv=(3.5, -7.4, 1.7, 12.9, -5.6, 21.3, -8.6, 4.5, 0.6, 2.5);
 n=10;
 begin
 
 for j:=1 to n-1 do
 for i:=1 to n-j do
 if x[i]<x[i+1] then
 begin
 
 s:=x[i];
 x[i]:=x[i+1];
 x[i+1]:=s;
 end;
 
 begin
 
 for i:=1 to 10 do
 writeln(massiv[i])
 end.

программа тупит, не может присвоить это

x[i]:=x[i+1];

[Mad_Cat]

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;

чего делает эта функция в проге N1 знаешь7 если да то напиши аналогичное без функции) если нет то она возвращает № 1-го положительного числа в массиве вот с него и надо сортировать) но писать тебе все равно самому)

[merch]

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

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;

чего делает эта функция в проге N1 знаешь7 если да то напиши аналогичное без функции) если нет то она возвращает № 1-го положительного числа в массиве вот с него и надо сортировать) но писать тебе все равно самому)

Я прекрасно понимаю что она делает) проблема в том что я не смогу объяснить преподователю как эта процедура работает...

[Mad_Cat]

Я прекрасно понимаю что она делает) проблема в том что я не смогу объяснить преподователю как эта процедура работает...

напиши аналогичное сам

[Alex11223]

программа тупит, не может присвоить это

Вы x и y перепутали. х у вас конст.

[merch]

Всё, разобрался в первом варианте программы, единственный вопрос - какая роль отведена этому куску кода:

function FindFirstPositiveNumber(theArray: TArray): integer;
var
   i: integer;
begin
   i:= 1;
   while ((i <= n) and (theArray[i] < 0)) do
      inc(i);

   if (i > n) then
      FindFirstPositiveNumber:= 0
   else
      FindFirstPositiveNumber:= i;
end;

а конкретно этим строкам:

if (i > n) then
      FindFirstPositiveNumber:= 0
   else
      FindFirstPositiveNumber:= i;
end;

[Alex11223]

Если не найден - вернуть 0, а если найден - его позицию.

[merch]

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

Если не найден - вернуть 0, а если найден - его позицию.

То есть он проходит таким образом по всем элементам массива, нужные включает в список, а когда уже номер элмента (i) превышает колличество элементов массива (максимальное), на этом процесс стопорится. Правельно?