Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Sten777
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 6
#1

Найти самое короткое слово в строке

26.04.2010, 02:06. Просмотров 1740. Ответов 3
Метки нет (Все метки)

нужно найти самое короткое слово в строке.
я вот чет попробовал написать, но работать не хочет(((
подскажите где ошибка?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Resh(ByVal a As String, ByRef Dlinna As Integer, ByRef Slovo As String)
        Dim slovo1 As String
        Dim kol, j, m As Integer
        m = CInt(a.Length)
        Dlinna = m - 1
        j = 0
        kol = 0
        slovo1 = ""
        Do While j <= m - 1
            Do
                kol = kol + 1
                slovo1 = slovo1 + a.Substring(j, 1)
                j = j + 1
            Loop While a.Substring(j, 1) <> " "
            If kol < Dlinna Then
                Dlinna = kol
                Slovo = slovo1
            End If
        Loop
    End Sub

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2010, 02:06
Ответы с готовыми решениями:

Вывести самое длинное и самое короткое слово из введенного предложения
нужно написать программу!!! пользователь вводит предложение, нужно вывести...

Написать программу, которая находит самое короткое слово в предложении
Задано предложение, состоящее из слов-строк. Написать программу, которая...

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово
Уже долго сижу над данной задачей. Плохо понимаю тему работы с файлами и...

Найти самое длинное слово в предложении
Найти самое длинное слово в предложении. Например: Горные вершины спят во тьме...

Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных
Пожалуйста помогите решить задание,не могут понять как это делать в VB,...

3
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
26.04.2010, 02:22 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Dim text, min, a, slovo
text = InputBox("text")
a = Split(text, " ")
min = Len(a(0))
slovo = a(0)
For i = 1 To UBound(a)
If Len(a(i)) < min Then min = Len(a(i)): slovo = a(i)
Next i
MsgBox slovo
End Sub
3
Sten777
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 6
26.04.2010, 02:48  [ТС] #3
ОГРОМНОЕ спасибо=)))
немного ща потупил пока подгонял код под свою процедуру, но в итоге справился, все работает)))
можно я к тебе еще оброщаться буду если вопросы появятся?=)
0
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
02.12.2010, 15:59 #4
Можно)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2010, 15:59

Нужно найти самое короткое и длинное слово в тексте
Нужно найти самое короткое и длинное слово в тексте. КТО НИБУДЬ ЗНАЕТЬ КАК...

Самое длинное симметричное слово
составить программу, которая в заданном предложении находит самое длинное...

В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово
помогите решить пожалуйста а то я в программировании не очень)


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru