Дана строка, содержащая текст. Найти длину самого короткого и самого длинного слова — QBasic(Бейсик)

INPUT "vvedite stroku ", a$
a$ = " " + a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " THEN k = k + 1 ELSE b$(k) = b$(k) + MID$(a$, i, 1)
NEXT
max = LEN(b$(1))
min = LEN(b$(1))
FOR i = 1 TO k
    IF LEN(b$(i)) > max THEN max = LEN(b$(i))
    IF LEN(b$(i)) < min THEN min = LEN(b$(i))
NEXT
PRINT "max dlina="; max
PRINT "min dlina="; min

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment