>> Правильно?
Ну да :]
Кстати... Я только сейчас увидел, что дал кусок про тасовку карт на паскале... :-P
LOL, даже ROTFLMAO
По-русски :] это будет так:
Код:
Sub shuffle()
'массив карт
Dim L(0 To 51) As Integer
'инициализация колоды
For I = 0 To 51 Step 1
L(I) = I
Next I
'печать для екселя - надо же что-то узреть :)
For I = 0 To 51 Step 1
Worksheets(1).Cells(I + 1, 1).Value = L(I)
Next I
'тасовка
For I = 51 To 0 Step -1
R = Int(52 * Rnd)
If R <> I Then
T = L(R): L(R) = L(I): L(I) = T
End If
Next I
'снова печать - результат тасования
For I = 0 To 51 Step 1
Worksheets(1).Cells(I + 1, 2).Value = L(I)
Next I
End Sub
