Цитата:
|
Сообщение от Лунтик-Некрофил
malekskv, что за что вообще отвечает ? зачем нужен этот круговорот
Код:
Shuffle:=a[R1];
a[R1]:=a[R2];
a[R2]:=Shuffle;
и что предполагается с ним дальше делать? Извиняюсь конечно, но на ночь глядя туго соображать. |
[code]
Uses ..., Math;
...
var a:array[1..5] of integer; //Создаем массив целых чисел
Shuffle,N,M:Integer; // переменные которые нам понадобятся поже
begin
Randomize; //запускаем функцию рандомиз
for i:=1 to 5 do begin // цикл повторяется 5 рас
a[i]:=i; //присваиваем первому єлементу массива номер цикла.
end;
for i:=1 to 5 do begin //цикл повторяется 5 рас
N:=RandomRange(1,6); // Числу n присваиваем случайное значение из диапазона 1-5
M:=RandomRange(1,6); // Числу m присваиваем случайное значение из диапазона 1-5
Shuffle:=a[n]; // Присваиваем переменной Shuffle Значение N элемента массива а.
a[n]:=a[m]; // Присваиваем N єлементу массива а значение M элемента массива а.
a[m]:=Shuffle; // Присваиваем M єлементу массива а значение переменной Shuffle.
end;
//С помощью єтих 2 циклов ми создали массив a[1,2,3,4,5] и случайный образом потом перемешали его элементы.
end;
[code]
нужно было сразу такой код давать... )