Напечатать самое длинное слово из заданного текста «Цель статистики сосредоточивается в предоставлении фактов в наиболее сжатой форме»- Visual Basic(Бейсик)

CLS
t$ = "Цель статистики сосредоточивается в предоставлении фактов в наиболее сжатой форме"
t$ = " " + t$ 'добавляем к фразе пробел, чтобы все слова начинались с пробела (легче искать слово)
DIM a$(100) 'задаем массив слов
FOR i = 1 TO LEN(t$) ' проходим по символам фразы
IF MID$(t$, i, 1) = " " THEN k = k + 1 ELSE a$(k) = a$(k) + MID$(t$, i, 1)
'если нашли пробел, значит начинается слово, счётчик увеличиваем на 1,
'а если не пробел, то к очередному слову добавляем символ из фразы
NEXT
max = LEN(a$(1)) 'задаём максимум=длине 1 слова
n = 1 'номер максимального элемента, пока не нашли другой,=1
FOR i = 1 TO k
IF LEN(a$(i)) > max THEN max = LEN(a$(i)): n = i 'если нашли  слово длиннее, то оно будет макс
'а номер станет =i
NEXT
PRINT a$(n)  

Leave a Comment