0 / 0 / 0
Регистрация: 03.11.2011
Сообщений: 28
1

Вывести позицию и длину самой длинной непрерывной цепочки из символов а

03.11.2011, 13:10. Показов 1031. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дана строка символов и некоторый символ а. Вывести позицию и длину самой длинной непрерывной цепочки из символов а

Добавлено через 37 секунд
Помогите пожалуйста,буду благодарна:*

Добавлено через 11 минут
Срочно нужно решение этой задачи(((Помогите пожалуйста(((:*
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2011, 13:10
Ответы с готовыми решениями:

В строке символов найти длину самой длинной цепочки
Дана строка символов и некоторый символ а. Вывести позицию и длину самой длинной непрерывной...

Вывести длину самой длинной цепочки чисел в массиве
Добрый вечер. Дан одномерный массив размерностью n. Вводится с клавиатуры числа. Необходимо...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел и вывести результат в другой файл
В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая...

Найти длину самой длинной цепочки положительных чисел
Найти длину самой длинной цепочки положительных чисел. Например, для последовательности -1, 1, 2,...

6
754 / 553 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
03.11.2011, 13:46 2
Как вариант:
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
30
31
32
Public Class Form1
    Private Const MainStr As String = "aabbbbaaaaabjhnnbb1bgbbbaaaaaakkk11jaaaaaaaaaaaalkjjj"
    Dim _char As String = "a"
    Dim arrLength As New ArrayList
    Dim arrPos As New ArrayList
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim k As Integer = 1
        For j As Integer = 1 To Len(MainStr)
            If Mid(MainStr, j, 1) = _char Then
                arrLength.Add(getQuantChar(j))
                arrPos.Add(j)
            End If
        Next
        Dim maxLength As Integer = 0
        Dim pos As Integer = -1
        For i As Integer = 0 To arrLength.Count - 1
            If CInt(arrLength(i)) > maxLength Then
                maxLength = CInt(arrLength(i))
                pos = arrPos(i)
            End If
        Next
        MsgBox("Максимальная длинна символа '" & _char & "'=" & maxLength & vbNewLine & "А его позиция=" & pos, MsgBoxStyle.Information)
    End Sub
    Function getQuantChar(ByRef startIndex As Integer) As Integer
        Dim k As Integer = 0
        While Mid(MainStr, startIndex, 1) = _char
            startIndex += 1
            k += 1
        End While
        Return k
    End Function
End Class
0
Почетный модератор
21401 / 9135 / 1083
Регистрация: 11.04.2010
Сообщений: 11,014
03.11.2011, 13:48 3
Ну уж написал, поэтому выложу.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        Dim S As String = "fhpstuuuqbnmuuuuusaetyreuuuuuuu478"
        Dim C As Char = "u"
        Dim Position As Integer = 0
        Dim MaxLen As Integer = 0
        Dim Tmp As Integer = 0
        For I As Integer = 1 To S.Length
            If C = Strings.Mid(S, I, 1) Then
                Tmp += 1
                If Tmp > MaxLen Then
                    MaxLen = Tmp
                    Position = I - Tmp + 1
                End If
            Else
                Tmp = 0
            End If
        Next
        If MaxLen <> 0 Then
            MsgBox("Максимальная длина: " & MaxLen & ", началась в позиции: " & Position)
        Else
            MsgBox("Такой символ не встречается")
        End If
Это топор от шестого.
0
754 / 553 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
03.11.2011, 13:56 4
Цитата Сообщение от Памирыч Посмотреть сообщение
Это топор от шестого.

Не по теме:

Эхххх...Люблю же я велики изобретать. Со всякими приёмами типа передача по ссылке и принцип наименьших привилегий.

1
Почетный модератор
21401 / 9135 / 1083
Регистрация: 11.04.2010
Сообщений: 11,014
03.11.2011, 13:59 5
Цитата Сообщение от gitarillo Посмотреть сообщение
Эхххх...Люблю же я велики изобретать
+1
Такая же беда. Задача скорей всего решается средствами .NET
Я уже обзвонил все Московские клиники.
И был опечален.
Оказывается, быдлокодерство и болезнь "шестого" там нигде не лечится
1
0 / 0 / 0
Регистрация: 03.11.2011
Сообщений: 28
03.11.2011, 14:05  [ТС] 6
Спасибо большое вам))):*
0
754 / 553 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
03.11.2011, 14:08 7
Ольга скоковая, Заметьте в любой момент вы можете также узнать все количчества непрерывных цепочек этого символа и их позиции через массив arrLength и arrPos. Не только максимальные значения.
0
03.11.2011, 14:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2011, 14:08
Помогаю со студенческими работами здесь

Определить длину самой длинной цепочки элементов файла
11. Файл состоит из действительных чисел . Чтобы определить размер файла был самый длинный цепочка...

Найти длину самой длинной цепочки положительных чисел
Найти длину самой длинной цепочки положительных чисел. Например, для последовательности -1, 1, 2,...

Вывести длину самой длинной повторяющейся серии символов: “xxyyyz” – 3, “xyz” – 1
вывести длину самой длинной серии символов что повторяются “xxyyyz” – 3, “xyz” –1;

Определить длину самой длинной цепочки единиц в переменной unsigned long a
#include &lt;iostream&gt; using namespace std; int main() { unsigned long a = 123123; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru