| Re: Увы, мы с вами думаем по-разному (ответ на задачку ЛоХХХ'a) ID:15584 ответ на 15507 |
Пн, 22 августа 2005 14:50 [#] |
|
|
| Цитата: | | Я, ни чего не продаю! |
скажи еще, что ты откажесься продать, если попросят!)
Бренд - есть бренд
| Цитата: | | Да Я теоретик, и попробуй, поспорь с этим |
не тема для спора
| Цитата: | | подтвердите на фактах, предъявите файл |
пожалуйста
Sub aaf() 'глобальная задача Квинстара
For jj = 1 To 1
Sum = 0
n = 0
sp = 0
For a = 1 To 180
y = Int(37 * Rnd)
Worksheets("list1").Cells(a, 2).Value = y
sp = sp + 1
If n = 6 Then n = 0
If n = 0 Then st = 10
If n = 1 Then st = 30
If n = 2 Then st = 70
If n = 3 Then st = 150
If n = 4 Then st = 310
If n = 5 Then st = 630
If y > 0 And y < 19 Then Sum = Sum + st: n = 0
If y = 0 Or y > 18 Then
Sum = Sum - st
n = n + 1
End If
Worksheets("list1").Cells(a, 1).Value = Sum
If Sum < -2400 Then GoTo 1:
Next a
1:
Worksheets("list1").Cells(jj, 4).Value = Sum
Worksheets("list1").Cells(jj, 5).Value = sp
Next jj
End Sub
| Цитата: | | я сомневаюсь что человек, который марку монитора путает с параметрами и системными требованиями своего компьютера |
я был большего мнения о вашем чувстве юмора
| Цитата: | | критерии прогонки системы |
я спрашивал не про критерии прогонки вашей программы(фактически черного ящика), а про критерии поимки волны вашей программой, почувствуйте разницу
|
|
|