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 33 34 35 36 37 38 | CLSINPUT "vvedate text"; a$n = LEN(a$): q$ = " ": k = 1FOR i = 1 TO n IF MID$(a$, i, 1) = q$ THEN k = k + 1NEXTDIM b(k), e(k - 1), d$(k), z1(k), z2(k)FOR i = 1 TO n IF MID$(a$, i, 1) = q$ THEN r = r + 1: e(r) = iNEXTFOR i = 1 TO k SELECT CASE i CASE IS = 1 d$(1) = MID$(a$, 1, e(1) - 1) CASE IS = k d$(k) = MID$(a$, e(r) + 1, n) CASE 2 TO (k - 1) d$(i) = MID$(a$, e(i - 1) + 1, e(i) - e(i - 1) - 1) END SELECTNEXTFOR i = 1 TO k b(i) = LEN(d$(i))NEXTmin = b(1): max = b(1)FOR i = 1 TO k IF b(i) <= min THEN min = b(i): l = l + 1: z1(l) = i IF b(i) >= max THEN max = b(i): p = p + 1: z2(p) = iNEXTCLSPRINT a$PRINT "min slova"FOR i = 1 TO l PRINT d$(z1(i))NEXTPRINT "max slova"FOR i = 1 TO p PRINT d$(z2(i))NEXT |
Тестирование выполнено в программе QB64 ( Скачать )