ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
8 сообщений из 8, страница 1 из 1
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509067
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Смотрел док.фильм. Хотел проверить факты о 2 в квадрате.
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
22.12.2013, 02:10
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509150
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вообще-то, в справке прямо написано - "счетчик цикла не может быть логической переменной или элементом массива". Особенности реализации...
Впрочем, один из элементов массива можно использовать в качестве счётчика - но не более.
Могу посоветовать в качестве счетчика F(i) использовать просто битовое представление (16*4-bit=64-bit), например, в Double или более длинном типе.
...
Рейтинг: 0 / 0
22.12.2013, 11:39
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509189
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Dim f0 As Byte
Dim f1 As Byte

Set f0 = F(0)
Set f1 = F(1)

даже так отказывается.

Создать класс и в классе логику создать что-ли ?
...
Рейтинг: 0 / 0
22.12.2013, 13:08
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509243
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Андрей159,

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
'Option Explicit
Dim f(0 To 16) As Long
Dim txt(0 To 16)
Dim kv As Byte


Private Sub Command1_Click()
f(5) = 5
f(6) = 6
f(7) = 5

For f(0) = 1 To 16
j1 = f(1)
For j1 = 1 To 16
If Not (Zaboroniti(1)) Then
j2 = f(2)
For j2 = 1 To 16
If Not (Zaboroniti(2)) Then

j3 = f(3)
For j3 = 1 To 16
If Not (Zaboroniti(3)) Then
j4 = f(4)
For j4 = 1 To 16
If Not (Zaboroniti(4)) Then
j5 = f(5)
For j5 = 1 To 16
If Not (Zaboroniti(5)) Then

j6 = f(6)
For j6 = 1 To 16
If Not (Zaboroniti(6)) Then
j7 = f(7)
For j7 = 1 To 16
If Not (Zaboroniti(7)) Then
j8 = f(8)
For j8 = 1 To 16
If Not (Zaboroniti(8)) Then
j9 = f(9)
For j9 = 1 To 16
If Not (Zaboroniti(9)) Then
j10 = f(10)
For j10 = 1 To 16
If Not (Zaboroniti(10)) Then

j11 = f(11)
For j11 = 1 To 16
If Not (Zaboroniti(11)) Then
j12 = f(12)
For j12 = 1 To 16
If Not (Zaboroniti(12)) Then
j13 = f(13)
For j13 = 1 To 16
If Not (Zaboroniti(13)) Then
j14 = f(14)
For j14 = 1 To 16
If Not (Zaboroniti(14)) Then
j15 = f(15)
For j15 = 1 To 16
If Not (Zaboroniti(15)) Then




For kv = 0 To 15
txt(kv) = f(kv)
Debug.Print "txt=", kv, txt(kv)
Next
Stop

End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub

Private Function Zaboroniti(st As Byte) As Boolean
Dim etap As Byte
For etap = 0 To st - 1
If f(st) = f(etap) Then
Zaboroniti = True
'Debug.Print st, etap, f(st), f(etab)
 Exit Function
End If
Next
End Function

...
Рейтинг: 0 / 0
22.12.2013, 14:51
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509248
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
ПЕНСИОНЕРКААндрей159,

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
'Option Explicit
Dim f(0 To 16) As Long
Dim txt(0 To 16)
Dim kv As Byte


Private Sub Command1_Click()
f(5) = 5
f(6) = 6
f(7) = 5

For f(0) = 1 To 16
j1 = f(1)
For j1 = 1 To 16
If Not (Zaboroniti(1)) Then
j2 = f(2)
For j2 = 1 To 16
If Not (Zaboroniti(2)) Then

j3 = f(3)
For j3 = 1 To 16
If Not (Zaboroniti(3)) Then
j4 = f(4)
For j4 = 1 To 16
If Not (Zaboroniti(4)) Then
j5 = f(5)
For j5 = 1 To 16
If Not (Zaboroniti(5)) Then

j6 = f(6)
For j6 = 1 To 16
If Not (Zaboroniti(6)) Then
j7 = f(7)
For j7 = 1 To 16
If Not (Zaboroniti(7)) Then
j8 = f(8)
For j8 = 1 To 16
If Not (Zaboroniti(8)) Then
j9 = f(9)
For j9 = 1 To 16
If Not (Zaboroniti(9)) Then
j10 = f(10)
For j10 = 1 To 16
If Not (Zaboroniti(10)) Then

j11 = f(11)
For j11 = 1 To 16
If Not (Zaboroniti(11)) Then
j12 = f(12)
For j12 = 1 To 16
If Not (Zaboroniti(12)) Then
j13 = f(13)
For j13 = 1 To 16
If Not (Zaboroniti(13)) Then
j14 = f(14)
For j14 = 1 To 16
If Not (Zaboroniti(14)) Then
j15 = f(15)
For j15 = 1 To 16
If Not (Zaboroniti(15)) Then




For kv = 0 To 15
txt(kv) = f(kv)
Debug.Print "txt=", kv, txt(kv)
Next
Stop

End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub

Private Function Zaboroniti(st As Byte) As Boolean
Dim etap As Byte
For etap = 0 To st - 1
If f(st) = f(etap) Then
Zaboroniti = True
'Debug.Print st, etap, f(st), f(etab)
 Exit Function
End If
Next
End Function



Бредово((

Private Function Zaboroniti(st As Byte) As Boolean
If f(st) = f(etap) Then
...
Рейтинг: 0 / 0
22.12.2013, 15:02
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38509250
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Решите задачу Серла. Сколько и какие варианты могут быть чтобы сумы были ровные ?
...
Рейтинг: 0 / 0
22.12.2013, 15:03
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38514142
у-ль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
у-ль
Гость
Андрей159,

один школьник написал вот это:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
 Dim F0 As Byte
 Dim F1 As Byte
 ...

  For F0 = 1 To 16: F(0) = F0
   For F1 = 1 To 16: F(1) = F1
   ...
   Next F1
  Next F0

Другой школьник написал это:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Public Function Comb(ByVal n As Long, ByVal k As Long) As Long
 'n - количество разрядов в "числе" (длина комбинации).
 'k - основание системы счисления. Разряды имеют значения [1..k].
 'Возврат: k^n (количество комбинаций).
 Dim i() As Long
 ReDim i(1 To n) As Long 'Индексы
 Dim j As Long           'Счётчик по пустякам
 Dim m As Long           'Номер изменяемого индекса
 Dim s As String         'Комбинация в строковом виде
 Dim l As Long           'Счётчик комбинаций
 
 'Инициализация индексов
 For j = 1 To n
    i(j) = 1
 Next j
 
 Do
    l = l + 1
    'Печать комбинации
    s = i(1)
    For j = 2 To n
       s = s & "," & i(j)
    Next j
    Debug.Print s
    
    m = n
    If i(m) = k Then
       Do
          i(m) = 1
          m = m - 1
          If m = 0 Then
             Comb = l
             Exit Function
          End If
       Loop Until i(m) < k
    End If
    i(m) = i(m) + 1
 Loop
End Function

Вопрос: почему второй школьник получит более высокую оценку?
...
Рейтинг: 0 / 0
27.12.2013, 12:57
| Ответить | Цитировать | Написать  
for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
    #38514362
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
ПЕНСИОНЕРКА и Андрей159 ,
есть такой чудесный тег - spoiler :)
...
Рейтинг: 0 / 0
27.12.2013, 15:36
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / for f(0) to ..... for f(1)... for f(2)... ....... for f(15) не работает как в TurboBasic
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=49&tid=2156604]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 279ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]