ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символьные массивы
25 сообщений из 83, страница 2 из 4
  2  все
Символьные массивы
    #36613612
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
дежавю прям

ps
изучайте книжку и читайте конспекты. вы основы алгоритмирования проходили?
...
Рейтинг: 0 / 0
05.05.2010, 17:51
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613620
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneвы основы алгоритмирования проходили?

Как раз хотел дать дружеский совет автору.

Сначала опишите алгоритм русскими словами, а потом будете переводить на VB
...
Рейтинг: 0 / 0
05.05.2010, 17:53
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613702
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command2_Click()
Dim A( 3 ,  10 ) As String
Dim d As String
Dim S1, S2, S3 As Integer
d = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
S1 = Mid(d,  5 ,  2 ) & "   " & Mid(d,  13 ,  3 ) & "   " & Mid(d,  33 ,  1 ) & "   " & Mid(d,  36 ,  2 ) & "   " & Mid(d,  40 ,  1 ) & "   " & Mid(d,  43 ,  2 ) & "   " & Mid(d,  52 ,  2 ) & "   " & Mid(d,  56 ,  1 ) & "  " & Mid(d,  67 ,  2 ) & "   " & Mid(d,  71 ,  3 )


Text2.Text = S1

End Sub
как s2 сделать-буквы не получается и S3
...
Рейтинг: 0 / 0
05.05.2010, 18:27
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613765
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyкак s2 сделать-буквы не получается и S3

Не удалось расшифровать данный набор слов.
...
Рейтинг: 0 / 0
05.05.2010, 19:01
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613846
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim A( 3 ,  10 ) As String
Dim d As String
Dim S1, S2 As Integer
d = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh "
S1 = Mid(d,  5 ,  2 ) & "   " & Mid(d,  13 ,  3 ) & "   " & Mid(d,  33 ,  1 ) & "     " _
& Mid(d,  36 ,  2 ) & "    " & Mid(d,  40 ,  1 ) & "      " & Mid(d,  43 ,  2 ) & "     " & Mid(d,  52 ,  2 ) & "    " _
& Mid(d,  56 ,  1 ) & "   " & Mid(d,  67 ,  2 ) & "   " & Mid(d,  71 ,  3 ) & vbCrLf _
& Mid(d,  1 ,  2 ) & "   " & Mid(d,  9 ,  2 ) & "   " & Mid(d,  18 ,  3 ) & "  " & Mid(d,  23 ,  3 ) _
& "   " & Mid(d,  28 ,  3 ) & "   " & Mid(d,  47 ,  3 ) & "   " & Mid(d,  59 ,  2 ) & "   " & Mid(d,  63 ,  2 ) _
& "   " & Mid(d,  76 ,  1 ) & "    " & Mid(d,  79 ,  2 )


 S1 = S1 & "   " & vbTab
Text2.Text = Text2.Text & S1 & vbCrLf
количество символов в строке не получается т е 3 строчка
...
Рейтинг: 0 / 0
05.05.2010, 20:09
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613851
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
короче как задать 3 строчку и установить массив 3*10 более корректно
...
Рейтинг: 0 / 0
05.05.2010, 20:12
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613855
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyколичество символов в строке не получается т е 3 строчка

мне вообще-то из ТЗ показалось, что вам нужно заполнить массив, а не строковые переменные....
...
Рейтинг: 0 / 0
05.05.2010, 20:14
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613866
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
как это сделать массивом 3*10, А то я уже не могу
HELP
...
Рейтинг: 0 / 0
05.05.2010, 20:18
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613877
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyкак это сделать массивом 3*10, А то я уже не могу
HELP

Наверное, вам надо перебрать в цикле всю строку от запятой до запятой, определять тип каждого элемента и класть его в первую или вторую строку массива, а после окончания разбора строки заполнить третью строку массива, использую первую и вторую, так?

Я вам уже предлагал написать сначала алгоритм работы программы просто русскими словами, однако, вы упорно продолжаете писать на VB, причем не решив, что именно вы хотите написать.

Мы не можем помочь вам записать алгоритм на языке VB, если самого алгоритма у вас нет.
...
Рейтинг: 0 / 0
05.05.2010, 20:24
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613886
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
1 заполняем данную строку Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh в текстовое окно 1
2 создаем массив 3*10 во втором текстовом окне
3 в первую строчку этого массива заносим элементы представляющие собой числа
4 во вторую строку представляющие собой слова
5 в третью строку сумарную длину элементов первой и второй строки т е количество букв и цифр
Такой алгоритм?
...
Рейтинг: 0 / 0
05.05.2010, 20:31
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613889
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoy2 создаем массив 3*10 во втором текстовом окне

Ага, так вы просто не понимаете, что такое массив.
Тогда для начала изучите этот вопрос, потом продолжим. Ссылку на учебник вам давали неоднократно. Ну или в конспект загляните.
...
Рейтинг: 0 / 0
05.05.2010, 20:33
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613896
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
некогда читать объясни на примере !
...
Рейтинг: 0 / 0
05.05.2010, 20:35
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613900
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
Ладно 2)заполняем массив 3*10 НЕТ?
...
Рейтинг: 0 / 0
05.05.2010, 20:36
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613907
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyЛадно 2)заполняем массив 3*10 НЕТ?

Мы в угадайку будем играть? Не угадал.

jotoyнекогда читать объясни на примере !

1) Некогда объяснять то, что уже кто-то обстоятельно и подробно объяснил.
2) На брудершафт мы не пили
3) Денег я за консультации не получаю
4) Имею желание общаться с вежливыми и благодарными людьми
...
Рейтинг: 0 / 0
05.05.2010, 20:42
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613921
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
Я просто не могу понять, как задать массив допустим А(3,10) и прописать в каждую его строчку данные которые нужны для решения
Согласен у меня получился строковый а как двумерный не знаю, и читать что-то бесполезно завтра сдавать надо.
...
Рейтинг: 0 / 0
05.05.2010, 20:52
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613926
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyчитать что-то бесполезно завтра сдавать надо.

могу только посочувствовать
...
Рейтинг: 0 / 0
05.05.2010, 20:54
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613935
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
так все таки может напишь чуть-чуть или ты сам не знаешь
...
Рейтинг: 0 / 0
05.05.2010, 20:56
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613938
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyСогласен у меня получился строковый

У вас не получился пока никакой, даже строковый.
Поэтому предлагаю сначала выяснить, что такое массив.

Иначе и сдавать бесполезно, какой смысл сдавать то, что не понимаешь как устроено, все равно зачет не будет.
...
Рейтинг: 0 / 0
05.05.2010, 20:58
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613942
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
давай хоть начало скажи как сделать или дай свою версию алгоритма
...
Рейтинг: 0 / 0
05.05.2010, 20:59
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613950
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyтак все таки может напишь чуть-чуть или ты сам не знаешь

чуть-чуть?
да пожалуйста

Код: plaintext
j = InStr(j +  1 , S1, ",")

эта строка точно понадобится, если вы настаиваете на использовании Mid

jotoyдавай хоть начало скажи как сделать или дай свою версию алгоритма

А я уже давал ВЕСЬ алгоритм рамочно. Но вам же читать некогда.
...
Рейтинг: 0 / 0
05.05.2010, 21:03
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613963
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
Dim a(3, 10) As String
но вот записали и чего дальше делать
Как можно без мid
...
Рейтинг: 0 / 0
05.05.2010, 21:17
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613970
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyDim a(3, 10) As String
но вот записали и чего дальше делать

выделять элементы из строки и запихивать в нужные строки массива

jotoyКак можно без мid

Функция Split позволит разобрать строку на элементы.
...
Рейтинг: 0 / 0
05.05.2010, 21:20
| Ответить | Цитировать | Написать  
Символьные массивы
    #36613972
jotoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jotoy
Гость
напиши плиз пример хоть для оной строки
...
Рейтинг: 0 / 0
05.05.2010, 21:21
| Ответить | Цитировать | Написать  
Символьные массивы
    #36614098
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
jotoyнапиши плиз пример хоть для оной строки

Пример чего?
...
Рейтинг: 0 / 0
05.05.2010, 22:47
| Ответить | Цитировать | Написать  
Символьные массивы
    #36614302
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
держи студент, терпеть не мог такие задачи, которые через одно место препод велел делать... так что выручаю :)

Код: plaintext
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.
Dim MyStr As String, Symb As String
Dim Mas( 2 ,  9 ) As String
Dim i As Integer, cntNum As Integer, cntWrd As Integer
MyStr = "Ab, 12, ba, 564, нге, роп, олр, 5, 78, 1, 35, abc, 23, 6, dd, df, 34, 567, d, gh"
cntNum =  0 
cntWrw =  0 
For i =  1  To Len(MyStr)
    Symb = Mid(MyStr, i,  1 )
    If Symb Like "[0-9]" Then
        Mas( 0 , cntNum) = Mas( 0 , cntNum) + Symb
        lastSymb = Symb
    End If
    If Symb Like "[A-z]" Or Symb Like "[А-я]" Then
        Mas( 1 , cntWrd) = Mas( 1 , cntWrd) + Symb
        lastSymb = Symb
    End If
    If Symb = "," Then
        If lastSymb Like "[0-9]" Then
            cntNum = cntNum +  1 
            Else
            cntWrd = cntWrd +  1 
        End If
    End If
Next i
For i =  0  To  9 
    Mas( 2 , i) = Len(Mas( 0 , i) + Mas( 1 , i))
Next i
...
Рейтинг: 0 / 0
06.05.2010, 01:19
| Ответить | Цитировать | Написать  
25 сообщений из 83, страница 2 из 4
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символьные массивы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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