В предложении указать слово, в котором доля гласных ‘a’, ‘е’, ‘и’ максимальна

@JuckZero · Регистрация: 07.06.2019

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

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

@Burk · 06.02.2020, 13:03

JuckZero, а вы сами-то что-нибудь делать даже и пытаться не будете?

@Catstail · 07.02.2020, 09:45

В функциональном стиле:

Visual Basic

Sub Test_00m()
Dim c1 As aIter
Dim c2 As aIter
 
    Text$ = InputBox("Введите предложение")
    Set c1 = New Container
    c1.Init Split(Text$, " ")
    
    Max% = c1.Map("w -> len(w)-len(delSym(w,""аеиАЕИ""))").maximum
    Set c2 = c1.Filter("w -> len(w)-len(delSym(w,""аеиАЕИ""))=max", Array("max", Max))
    
    Do While c2.hasNext()
       Debug.Print c2.getNext
    Loop
 
End Sub

@JuckZero 1 / 1 / 0 Регистрация: 07.06.2019 Сообщений: 42
		1
	В предложении указать слово, в котором доля гласных ‘a’, ‘е’, ‘и’ максимальна 06.02.2020, 12:52. Показов 1148. Ответов 2 Метки нет (Все метки) В заданном предложении указать слово , в котором доля гласных ‘a’, ‘е’, ‘и’ максимальна. 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,105
	06.02.2020, 13:03	2
	JuckZero, а вы сами-то что-нибудь делать даже и пытаться не будете? 0

	07.02.2020, 09:45

Опции темы