Массивы

← →
Viktoria (2006-10-31 15:45) [0]

Необходимо отсортировать массив, зпданный датчиком случайных чисел и исходную матрицу и полученную матрицу вывести на форму. Я написала прогу, но она почему-то не работает... :(

procedure TForm1.Button1Click(Sender: TObject);
const
n=100;
var
i,min,j,k,m:integer;
A:array[1..n] of integer;
begin
{randomize;}
for i:=1 to n do
a[i]:=random(a[i]);
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if a[j]<a[min]
then
min:=j;
k:=a[i];
a[i]:=a[min];
a[min]:=k;
end;
for m:=1 to n do
label1.Caption:=label1.Caption+IntToStr(a[m]);
end;
end.

← →
Ketmar © (2006-10-31 15:47) [1]

экая бредятина...

← →
Сергей М. © (2006-10-31 15:48) [2]

> она почему-то не работает

А почему-то должна ?

← →
Ketmar © (2006-10-31 15:53) [3]

кстати. совсем забыл.
автор, http://ln.com.ua/~openxs/articles/smart-questions-ru.html

← →
Elen © (2006-10-31 15:54) [4]

> Viktoria

Могу предложить такую отсебятинку :
procedure TForm1.FormCreate(Sender: TObject); var e,i:integer; arr:array of integer; begin //********* FOR ****************** for i :=0 to 10 do begin e:=random(100); if Length(arr)<=e then setlength(arr,e+1); arr[e]:=e; ListBox1.Items.Append(inttostr(e)) end; //********* FOR ****************** for i :=0 to length(arr)-1 do begin if arr[i]<>0 then ListBox2.Items.Append(inttostr(arr[i])); end; //******* END FOR **************** //******* END FOR **************** end;

← →
Percent (2006-10-31 15:58) [5]

%:?"№;(((*"№;(_!"_!!!

← →
Elen © (2006-10-31 16:02) [6]

> Percent

Это че - пароль Била Г. в его компе на фирме MicroSoftЪЪЪ?

← →
Ketmar © (2006-10-31 16:03) [7]

>[6] Elen(c) 31-Oct-2006, 16:02
>Это че - пароль Била Г. в его компе на фирме MicroSoftЪЪЪ?
это то, что можно сказать о коде без мата.

← →
Elen © (2006-10-31 16:07) [8]

> Ketmar

Да ладно Я не стесьняюсь. А действительно - чем не очень? хотя-б пару причин...

← →
Viktoria (2006-10-31 16:08) [9]

Вместо того, чтобы издеваться лучше бы помогли....или вы, наверное, сами не знаете и хотите умными показаться...

← →
Gero © (2006-10-31 16:10) [10]

> [8] Elen © (31.10.06 16:07)
> А действительно - чем не очень?

Он не «не очень». Он очень.

← →
Сергей М. © (2006-10-31 16:11) [11]

> хотя-б пару причин

Ну ведь ИД гласят:

> отсортировать ... массив ... и .. матрицу

Ну с массивом ты там что-то вытворяешь, согласен) ... а матрица-то где та самая ?)

← →
Percent (2006-10-31 16:11) [12]

[6] Elen © (31.10.06 16:02)

Солнце, что будет с твоей пльограммой, когда диапазон генерируемых чисел будет задан до MaxInt? Приведенный тобой алгоритм, ээээ... не очень оптимальный, если так можно выразиться.

Лучше уж воспользоваться TStringList.CustomSort, эффективнее, типа (саркастично так)...

Сортировка - это азы...

← →
Gero © (2006-10-31 16:11) [13]

> a[i]:=random(a[i]);
> a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

Что это?

> if a[j]<a[min]

Что это?

И неплохо бы форматировать код так, чтобы его можно было прочитать.

← →
Percent (2006-10-31 16:13) [14]

или вы, наверное, сами не знаете и хотите умными показаться...

Да я вообще бот...

← →
Gero © (2006-10-31 16:14) [15]

> [9] Viktoria (31.10.06 16:08)
> или вы, наверное, сами не знаете и хотите умными показаться...

И опять 25...

← →
default © (2006-10-31 16:14) [16]

спросил у телепатора про код: сказал, что есть подозрения что была предпринята попытка реализовать сортировку выбором

← →
Ketmar © (2006-10-31 16:14) [17]

>[9] Viktoria 31-Oct-2006, 16:08
>или вы, наверное, сами не знаете и хотите умными показаться...
не знаем, обидчивая наша, не знаем. у нас тут тусовка ламеров. а название сайта -- только для пиара, не больше.
ты по ссылке в [3]-то ходила? почитай, подумай. потом покажи в [0] хотя бы один вопросительный знак. ага?

← →
Elen © (2006-10-31 16:15) [18]

> олнце, что будет с твоей пльограммой, когда диапазон генерируемых
> чисел будет задан до MaxInt? Приведенный тобой алгоритм,
> ээээ... не очень оптимальный, если так можно выразиться.
>

А это да... Верно... Ну разве столько чисел надо?

> Сергей М

А в [0] тоже матрица в примере есть?
и еще вот это любопытно :
a[i]:=random(a[i]); a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

← →
Gero © (2006-10-31 16:16) [19]

> [18] Elen © (31.10.06 16:15)
> Ну разве столько чисел надо?

5 баллов. Куди их девать, столько чисел-то?

> [18] Elen © (31.10.06 16:15)

> и еще вот это любопытно :
> a[i]:=random(a[i]);
> a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

Угу, мне тоже это любопытно.

> Viktoria (31.10.06 15:45)

В демо-проекте Threads, который включён в поставку делфи 7, отражены ответы на все Ваши вопросы и приведено аж 3! алгоритма сортировки.

> Elen © (31.10.06 16:15) [18]

> А в [0] тоже матрица в примере есть?

Нет. По кр.мере я не вижу. думаю что и тебе она там не видна)..

К чему было нести телепатическую отсебятину, если есть несуразности в вопросе по отношению к примеру, его якобы иллюстрирующего ?

Не надо развращать "малолетних" своей "отсебятиной" - следует направлять этих "малолетних" в сторону "думай, что спросил")

← →
Viktoria (2006-10-31 16:23) [23]

люди, извините,что так сказала, просто уже много раз программу переделовала, а она ошибку выдает...спасибо, за помощь...

> Viktoria (31.10.06 16:23) [23]

Лучше бы ты подробно описала, в чем была твоя ошибка)

> Лучше бы ты подробно описала, в чем была твоя ошибка)

+ и задача...

> Ketmar (31.10.2006 16:03:07) [7]

Замаскированый мат все равно остается матом.
Тебя спасло, что я не смог это перевести :-)

> Viktoria (31.10.2006 16:23:23) [23]

Ну начни хотя бы с малого, если хочешь помощь получить, это

1. отформатировать код, с нормальными отступами
2. пометить его тегом Код
3. сделать четкое описание проблемы, что делает задача, где возникает
проблема и т.д.

Тогда можешь расчитывать на помощь, а иначе даешь повод повеселиться.

>[26] Anatoly Podgoretsky(c) 31-Oct-2006, 16:46
>Тебя спасло, что я не смог это перевести :-)
а я-то тут при чём? это вообще Percent сказал!
%-)

Массивы Найти похожие ветки