товарищи помогите с процедурой

← →
RiP (2005-11-12 09:43) [0]

Удалено модератором
Примечание: СПАМ

← →
vrem (2005-11-12 09:50) [1]

имя мало, ещё параметры пиши
а в edit1 - целый массив может и не войти.

← →
RiP (2005-11-12 09:58) [2]

а куда и как не мог бы ты по подробней объяснить
я в кнопаре писал SortPuz не пашет

← →
vrem (2005-11-12 10:06) [3]

> var Arr : array of Integer
Вот это настораживает. обычно советуют

type
mytype = array of Integer;

procedure sortpuz(arr:mytype

Но если компилируется и без этого, то
создай массив arr => setlength(arr,n);

и используй =
sortpuz(arr,n);

когда отработает, то изменит arr - читай его arr[0] и т.д.

← →
RiP (2005-11-12 10:21) [4]

я зделал вот как

const n= 10;
var
Form1: TForm1;
i,v:integer;
mas:array[1..n] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
Temp : Integer;
Flag : Boolean;
begin
edit1.Text:="";
for i:=1 to n do
mas[i]:=random(100);
for i:=1 to n do
edit1.Text:=edit1.text+" "+inttostr(mas[i])+" ";
repeat
Flag := False;
for i := 0 to n - 1 do
if mas [i] > mas [i + 1] then begin
Temp := mas [i];
mas [i] := mas [i + 1];
mas [i + 1] := Temp;
Flag := True;
end;
until Flag = False;
edit2.Text:=edit2.text+" "+inttostr(mas[i])+" ";
end;
но он выдает в edit2 какуюто чушь, а не отсортированный массив

← →
GrayFace © (2005-11-12 10:24) [5]

:))

хммм странно что он вообще что-то выдает так как массив у теья от [1..n]
а ты пишешь

for i := 0 to n - 1 do if mas [i] > mas [i + 1] then begin ......

и что ж ты свой вывод

> edit2.Text:=edit2.text+" "+inttostr(mas[i])+" ";

постовал уже после всех циклов ??

товарищи помогите с процедурой Найти похожие ветки