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

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

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

Массивы [D7]

Страницы: 1 2 >
Viktoria © (2006-10-31 15:45:00)
Необходимо отсортировать массив, зпданный датчиком случайных чисел и исходную матрицу и полученную матрицу вывести на форму. Я написала прогу, но она почему-то не работает... :(

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

Anatoly Podgoretsky (2006-10-31 16:51:00) [2]
> Viktoria (31.10.2006 16:23:23) [23]

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

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

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

Anatoly Podgoretsky (2006-10-31 16:46:00) [3]
> Ketmar (31.10.2006 16:03:07) [7]

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

Elen (2006-10-31 16:26:00) [4]

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

+ и задача...

Сергей М. (2006-10-31 16:24:00) [5]

> Viktoria (31.10.06 16:23) [23]

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

Viktoria (2006-10-31 16:23:00) [6]
люди, извините,что так сказала, просто уже много раз программу переделовала, а она ошибку выдает...спасибо, за помощь...

Сергей М. (2006-10-31 16:22:00) [7]

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

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

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

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

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

Плохиш (2006-10-31 16:17:00) [8]

> Viktoria (31.10.06 15:45)

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

Gero (2006-10-31 16:17:00) [9]
> [18] Elen © (31.10.06 16:15)

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

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

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

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

Elen (2006-10-31 16:15:00) [11]

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

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

> Сергей М

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

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

И опять 25...

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

default (2006-10-31 16:14:00) [14]
спросил у телепатора про код: сказал, что есть подозрения что была предпринята попытка реализовать сортировку выбором

Percent (2006-10-31 16:13:00) [15]
или вы, наверное, сами не знаете и хотите умными показаться...

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

Gero (2006-10-31 16:11:00) [16]
> a[i]:=random(a[i]);
> a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

Что это?

> if a[j]<a[min]

Что это?

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

Percent (2006-10-31 16:11:00) [17]
[6] Elen © (31.10.06 16:02)

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

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

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

Сергей М. (2006-10-31 16:11:00) [18]

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

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

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

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

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

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

Viktoria (2006-10-31 16:08:00) [20]
Вместо того, чтобы издеваться лучше бы помогли....или вы, наверное, сами не знаете и хотите умными показаться...

Страницы: 1 2 >

Наверх

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