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 39 40 | CLSRazdelitel$ = " " 'Razdelitel strokiagain:INPUT "Vvedite stroku:"; a$olda$ = a$IF a$ = "" THEN PRINT "Vvedite zanovo"INPUT "Vvedite kol-vo slov:"; n%' Proveryaem kol-vo slov v predlozheniisl% = 0: stat% = 0: oldstat% = 1FOR i% = 1 TO LEN(a$) IF MID$(a$, i%, 1) = Razdelitel$ THEN stat% = 1 IF oldstat% = 1 AND stat% = 0 THEN sl% = sl% + 1 oldstat% = stat% stat% = 0NEXT' Udalyaem sleva vse razdelitelnie znakiFOR i% = 1 TO LEN(a$) STEP -1 IF MID$(a$, i%, 1) = Razdelitel$ THEN a$ = RIGHT$(a$, LEN(a$) - 1) ELSE EXIT FORNEXT i%' Udalyaem sprava vse razdelitelnie znakiFOR i% = LEN(a$) TO 1 STEP -1 IF MID$(a$, i%, 1) = Razdelitel$ THEN a$ = LEFT$(a$, LEN(a$) - 1) ELSE EXIT FORNEXT i%' i stavim vmesto nikh 1 razdelitel spravaa$ = a$ + Razdelitel$' Tsiklicheski vertim slovaFOR i = 1 TO n% stat% = 0: oldstat% = 0 DO LfZn$ = MID$(a$, 1, 1) oldstat% = stat% stat% = 0 IF LfZn$ = Razdelitel$ THEN stat% = 1 IF oldstat% = 1 AND stat% = 0 THEN EXIT DO a$ = RIGHT$(a$, LEN(a$) - 1) + LfZn$ LOOPNEXTCLSPRINT "ishdnaya stroka:"; olda$PRINT "Novaya stroka:"; a$ |
Следующий вариант
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Rzd$ = " " 'РазделительAgain: CLS: INPUT "Vvedite stroku :", a$ ' Ввод строкиIF a$ = "" GOTO Again ' Если строка пуста, вводим заново'IF MID$(a$, LEN(a$), 1) <> Rzd$ THEN a$ = a$ + Rzd$INPUT "Skolko slov dvigat' :", nPRINT "ishodnaya:";: WRITE a$IF n = 0 GOTO OkReFnd: IF MID$(a$, 1, 1) <> Rzd$ AND rg = 0 THEN s = s + 1FOR i = 1 TO LEN(a$) - 1 'Считаем слова -> s IF MID$(a$, i, 1) = Rzd$ AND MID$(a$, i + 1, 1) <> Rzd$ THEN s = s + 1: IF rg = 1 AND s = d THEN r = i END IFNEXTIF rg = 0 THEN d = n MOD s: rg = 1: s = 0: GOTO ReFnd ' На сколько слов дигатьOk: PRINT "Resultat :";: WRITE RIGHT$(a$, LEN(a$) - r) + LEFT$(a$, r) |
Тестирование выполнено в программе QB64 ( Скачать )