В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву

@molinenhard · Регистрация: 10.03.2012

Студворк — интернет-сервис помощи студентам

"В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву"
и
"В заданном массиве строк определить количество строк, у которых первый и последний символы совпадают."
Сделать нужно через простейшие функции аля substring mid и тп

@Dimon_bogoduhov · 10.03.2012, 12:32

Сообщение от molinenhard

"В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву"

эта тема на форуме уже была вот здесь

@sco43 · 10.03.2012, 13:30

Visual Basic
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
Dim a(), s, b As String
Dim k, l, m, n, p As Integer
 List1.Clear
Randomize
k = Int(Rnd(1) * 30 + 1) 'ñîçäàåì ñòðîêó ñëîâà ðàçäåëåíû ","
For i = 1 To k
l = Int(Rnd(1) * 5 + 2)
For j = 1 To l
 s = s & Chr(Int(Rnd(1) * 12 + 97))
Next j
s = s & ","
Next i
Text1.Text = s
 
List1.AddItem "ñëîâà"
ReDim a(1 To k)                 'ïðåâðàùàåì ñòðîêó â ìàññèâ, ñëîâo ýëåìåíò ìàññèâà
For i = 1 To Len(s)
n = n + 1
 If Mid(s, i, 1) = "," Then
  m = m + 1
  a(m) = Mid(s, i + 1 - n, n - 1)
  List1.AddItem a(m)
  n = 0
 End If
Next i
 
List1.AddItem "îäèíàêîâûå áóêâû "
For i = 1 To k             'èùåì ñëîâà ñ îäèíàêîâîé ïåðâîé è ïîñëåäíåé áóêâîé
 If Left(a(i), 1) = Right(a(i), 1) Then
  p = p + 1
 List1.AddItem a(i)
 End If
Next i
List1.AddItem "÷èñëî ñëîâ "
List1.AddItem p

@molinenhard · 10.03.2012, 14:18 **[ТС]**

Спасибо вам огромное, а как насчет"В заданном массиве строк определить количество строк, у которых первый и последний символы совпадают."?

@gaw · 10.03.2012, 14:19

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
List1.AddItem "слова"
ReDim a(1 To k)                 'превращаем строку в массив, словo элемент массива
For i = 1 To Len(s)
n = n + 1
 If Mid(s, i, 1) = "," Then
  m = m + 1
  a(m) = Mid(s, i + 1 - n, n - 1)
  List1.AddItem a(m)
  n = 0
 End If
Next i

=

Visual Basic
1
2
3
4
5
List1.AddItem "слова"
 a = Split(s, ",")            'превращаем строку в массив, словo элемент массива
For i = 1 To k
  List1.AddItem a(i - 1)
Next i

@sco43 · 10.03.2012, 14:47

Visual Basic
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
Dim a() As String
Dim k, l, p As Integer
 List1.Clear
Randomize
k = Int(Rnd(1) * 30 + 1) 'ñîçäàåì ìàññèâ ñòðîê
ReDim a(1 To k)
List1.AddItem "ñòðîêè"
ReDim a(1 To k)
For i = 1 To k
 l = Int(Rnd(1) * 15 + 3)
For j = 1 To l
  a(i) = a(i) & Chr(Int(Rnd(1) * 15 + 97))
Next j
List1.AddItem a(i)
Next i
 
List1.AddItem "îäèíàêîâûå áóêâû "
For i = 1 To k             'èùåì ñòðîêè ñ îäèíàêîâîé ïåðâîé è ïîñëåäíåé áóêâîé
 If Left(a(i), 1) = Right(a(i), 1) Then
  p = p + 1
 List1.AddItem a(i)
 End If
Next i
List1.AddItem "÷èñëî ñòðîê "
List1.AddItem p

Добавлено через 1 минуту

Visual Basic
1
 a = Split(s, ",")

Прикольная функция)))

@molinenhard · 10.03.2012, 17:27 **[ТС]**

А как заставить VB читать строку введенную с клавиатуры, мне постоянно выдает выход за массив сколько бы redim и прочего я бы не делал.(желательно к обоим заданиям)

@sco43 · 10.03.2012, 17:50

Просто в форме создаешь текстовое окошко, имя text1 присваивается автоматически.
Создаешь кнопку, щелкаешь по ней два раза. Пишешь внутри процедуры код:
d=text1.text
Запускаешь эту прогу, вводишь в текстовое окошко текст, щелкаешь кнопку.
Переменной d будет приваиваться тескт, который в это окошко ввел.
Чтоб проверить текст, можно команду добавить после оператора d=text1.text:
msgbox d - появится сообщение после щелчка на кнопку со значением переменной d.
.......................

@molinenhard · 10.03.2012, 20:39 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Dim a(), s As String
        Dim k, l, p As Integer
        List1.Items.Clear()
        p = -1
        k = TextBox3.Text 'кол-во слов
        s = Text1.Text
 
        List1.Items.Add("слова")
        a = Split(s, " ")            'превращаем строку в массив, словo элемент массива
        For i = 1 To k
            List1.Items.Add(a(i - 1))
        Next i
 
        List1.Items.Add("одинаковые буквы ")
        For i = 1 To k             'ищем слова с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then 'выход за пределы массива блаблабла...
                p = p + 1
                List1.Items.Add(a(i))
            End If
        Next i
        List1.Items.Add("число слов ")
        List1.Items.Add(p)

Я так и делал, но ошибку победить не получается

Добавлено через 27 минут
Проблема решена

Добавлено через 1 час 30 минут

Сообщение от sco43

Просто в форме создаешь текстовое окошко, имя text1 присваивается автоматически.
Создаешь кнопку, щелкаешь по ней два раза. Пишешь внутри процедуры код:
d=text1.text
Запускаешь эту прогу, вводишь в текстовое окошко текст, щелкаешь кнопку.
Переменной d будет приваиваться тескт, который в это окошко ввел.
Чтоб проверить текст, можно команду добавить после оператора d=text1.text:
msgbox d - появится сообщение после щелчка на кнопку со значением переменной d.
.......................

Во второй задаче со строками вроде как так легко не получится?

Добавлено через 31 минуту
Так вот, подскажите как можно текст введенный с клавиатуры содержащий несколько строк впихнуть в массив?

@sco43 · 10.03.2012, 21:15

Думаю что так:

Visual Basic
1
2
3
4
5
6
7
List1.Clear
Dim a() As String
ReDim a(1 To Val(Text1.Text))
For i = 1 To Val(Text1.Text)
 a(i) = InputBox("Ââeäè ñòðîêó")
 List1.AddItem a(i)
Next i

@molinenhard · 10.03.2012, 21:30 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim a() As String
        Dim k, p As Integer
        ListBox1.Items.Clear()
        ReDim a(0 To Val(TextBox1.Text))
        For i = 1 To Val(TextBox1.Text)
            a(i) = InputBox("Ввeди строку")
            ListBox1.Items.Add(a(i))
        Next i
        For i = 1 To k             'ищем строки с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
                ListBox1.Items.Add(a(i))
            End If
        Next i
        ListBox1.Items.Add("число строк ")
        ListBox1.Items.Add(p)

получилось как то так, но в итоге выдает 0 даже если есть строки с одинаковыми буквами

SoftIce · 10.03.2012, 21:42

Сообщение от molinenhard

For i = 1 To k

к чему равно? У тебя цикла проверки вообще нет. к=Val(TextBox1.Text)

или

Visual Basic
1
 For i = 1 To Val(TextBox1.Text)

@molinenhard · 10.03.2012, 21:45 **[ТС]**

Ой ужс, проглядел такую глупость, извиняюсь, проблема решена

@sco43 · 10.03.2012, 21:50

Сообщение от molinenhard

Visual Basic
1
2
3
 Dim a() As String
        
        For i = 1 To k             'ищем строки с одинаковой первой и последней буквой

получилось как то так, но в итоге выдает 0 даже если есть строки с одинаковыми буквами

k - не определно.
Думаю

Visual Basic
1
k=val(textbox1.text)

SoftIce · 10.03.2012, 21:51

Не по теме:

sco43, :D

@molinenhard · 14.03.2012, 12:10 **[ТС]**

Нужно подредактировать эти две задачи:

VB.NET
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
Public Class Form1
    Dim a() As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ListBox1.Items.Clear()
        ReDim a(0 To Val(TextBox1.Text))
        For i = 1 To Val(TextBox1.Text)        'Вводим строки в массив
            a(i) = InputBox("Ввeдите строку")
            ListBox1.Items.Add(a(i))
        Next i
    End Sub
    Sub opr(ByVal a() As String)
        Dim p As Integer
        For i = 1 To Val(TextBox1.Text) 'Ищем строки с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
            End If
        Next i
        TextBox2.Text = p 'Выводим результат 
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        opr(a)
    End Sub
End Class

1)Не обьявлять массив глобально, а передавать его с помощью byval byref
2)Сделать ввод массива не через импат бокс, а через процедуры\фунции типо:

VB.NET
1
2
3
    Function vvod(ByVal T As TextBox) As Double
        Return Val(T.Text)
    End Function

во второй задаче:

VB.NET
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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        Dim k As Integer
        List1.Items.Clear()
        k = TextBox3.Text
        s = Text1.Text
        Обработка(s, k)
    End Sub
 
    Sub Обработка(ByVal s As String, ByVal k As Integer)
        Dim a() As String
        Dim p As Integer
        a = Split(s, " ")
        For i = 1 To k
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
            End If
        Next i
        List1.Items.Add("Кол-во слов начинающихся и заканчивающихся")
        List1.Items.Add("на одну и ту же букву")
        List1.Items.Add(p)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

1)Сделать работу не через элементы массива, а с целой строкой....Как я понимаю придется посимвольно проверять всю строку

SoftIce · 14.03.2012, 12:36

Была уже такая тема

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer
 
 
  For Each s In Split(Replace(InputBox("Введите текст", _
                      "Ввод текста для обработки", _
                      "Это строка для обработко. Итоги."), _
                                                  ".", " "))
    If Left(s, 1) = Right(s, 1) And Len(s) > 1 Then
      Print s: kol = kol + 1
    End If
  Next s
  
  Print
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub

Это по второй задаче.

Добавлено через 8 минут
Или тебе надо без Сплит?

@molinenhard · 14.03.2012, 12:38 **[ТС]**

Во второй задаче как раз без сплит

SoftIce · 14.03.2012, 13:43

Без Сплит вторая задача

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer, n As String, k As String
  s = Trim(Replace(Replace(InputBox("Введите текст", _
      "Ввод текста для обработки", _
      " Это строка для обработко. Итоги."), _
      ".", " "), ",", " ")) & Space(1) 'Убир.проб.спр.-слева, заменяем точ.и зап.на проб., в конце ставим пробел.
   While InStr(1, s, "  ")
     s = Replace(s, "  ", " ") ' Тут убираем длинные пробелы
   Wend
   n = Mid(s, 1, 1)     ' Переменной n присваиваем значение первого символа
   For i = 1 To Len(s)
       If Mid(s, i, 1) = " " Then ' Если встречается пробел, то
        k = Mid(s, i - 1, 1)        'Переменной k присваивается значение предыдущего символа
        If n = k Then kol = kol + 1 ' Если переменные начала и конца совпадают, то увеличиваем kol
            ' Print n & k
            ' k = 0:  n = 0 '         Обнуляем переменные начала и конца
            n = Mid(s, i + 1, 1) 'Переменной присваиваем значение первого символа
        End If
    Next i
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub

@molinenhard · 14.03.2012, 14:50 **[ТС]**

Да, все отлично
а в первой задачке как можно ввести эти строки через лист бокс, без импата

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву

Решение

Решение

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11

	В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву 10.03.2012, 01:12. Показов 5647. Ответов 21 Метки нет (Все метки) "В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву" и "В заданном массиве строк определить количество строк, у которых первый и последний символы совпадают." Сделать нужно через простейшие функции аля substring mid и тп 0

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11
	10.03.2012, 14:18 [ТС]
	Спасибо вам огромное, а как насчет"В заданном массиве строк определить количество строк, у которых первый и последний символы совпадают."? 0

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11
	10.03.2012, 17:27 [ТС]
	А как заставить VB читать строку введенную с клавиатуры, мне постоянно выдает выход за массив сколько бы redim и прочего я бы не делал.(желательно к обоим заданиям) 1

@sco43 670 / 163 / 22 Регистрация: 27.01.2012 Сообщений: 372
	10.03.2012, 17:50
	Просто в форме создаешь текстовое окошко, имя text1 присваивается автоматически. Создаешь кнопку, щелкаешь по ней два раза. Пишешь внутри процедуры код: d=text1.text Запускаешь эту прогу, вводишь в текстовое окошко текст, щелкаешь кнопку. Переменной d будет приваиваться тескт, который в это окошко ввел. Чтоб проверить текст, можно команду добавить после оператора d=text1.text: msgbox d - появится сообщение после щелчка на кнопку со значением переменной d. ....................... 1

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11
	10.03.2012, 21:45 [ТС]
	Ой ужс, проглядел такую глупость, извиняюсь, проблема решена 0

SoftIce
	10.03.2012, 21:51
	Не по теме: sco43, :D 1

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11
	14.03.2012, 12:38 [ТС]
	Во второй задаче как раз без сплит 0

@molinenhard 2 / 2 / 0 Регистрация: 10.03.2012 Сообщений: 11
	14.03.2012, 14:50 [ТС]
	Да, все отлично а в первой задачке как можно ввести эти строки через лист бокс, без импата 0