Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

RiP © (2005-11-12 09:43:00)
Удалено модератором
Примечание: СПАМ

Tonich (2005-11-12 10:27:00) [1]
и что ж ты свой вывод

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

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

Tonich (2005-11-12 10:25:00) [2]
хммм странно что он вообще что-то выдает так как массив у теья от [1..n]
а ты пишешь

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

GrayFace (2005-11-12 10:24:00) [3]
:))

RiP (2005-11-12 10:21:00) [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 какуюто чушь, а не отсортированный массив

vrem (2005-11-12 10:06:00) [5]
> 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 09:58:00) [6]
а куда и как не мог бы ты по подробней объяснить
я в кнопаре писал SortPuz не пашет

vrem (2005-11-12 09:50:00) [7]
имя мало, ещё параметры пиши
а в edit1 - целый массив может и не войти.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »