| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / 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.

---

Elen   (2006-10-31 16:07:00) [21]

> Ketmar

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

---

Ketmar   (2006-10-31 16:03:00) [22]

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

---

Elen   (2006-10-31 16:02:00) [23]

> Percent

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

---

Percent   (2006-10-31 15:58:00) [24]

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

---

Elen   (2006-10-31 15:54:00) [25]

> 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;


---

Ketmar   (2006-10-31 15:53:00) [26]

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

---

Сергей М.   (2006-10-31 15:48:00) [27]

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


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

---

Ketmar   (2006-10-31 15:47:00) [28]

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

---

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

Наверх