Зразок виконання завдання.
Завдання 1. З слова "светильник" отримати слово "китель". Приклад розмітки слова: REM Програма X$="светильник"; Y$=RIGHT(X$, 1)+MID$(X$, 9, 1)+ MID$(X$, 4, 1)+ MID$(X$, 3, 1)+ MID$(X$, 6, 2) PRINT X$, Y$ END
Завдання 2. Із заданого слова отримати його обернене значення, наприклад, із "мир" отримати "рим". REM Програма INPUT X$ ' Ввод слова «мир» B$=" " ' пустий рядок FOR I=LEN(X$) TO 1 STEP –1 B$=B$+MID$(X$,I,1) NEXT I PRINT X$, B$ END
Завдання 3. У заданому рядку порахувати кількість букв "а". REM Програма INPUT X$: PRINT X$ K=0 FOR I=1 TO LEN(X$) Y$=MID$(X$, I, 1) IF Y$="а" THEN K=K+1 NEXT I PRINT K END
Завдання 4. Порахувати кількість слів у фразі "Боря був у барі". Розв`язання. Кількість пропусків між словами може бути різна, тому по їх кількості порахувати кількість слів неможливо. Доцільно рахувати закінчення слів, тобто ситуацію, коли i-й символ не є пропуском, а наступний за ним (i+1)-й символ є пропуском. Так як після останнього слова пропуску може і не бути, добавимо в кінець рядка пропуск. REM Програма INPUT X$: PRINT X$: X$=X$+" "; K=0 FOR I=1 TO LEN(X$)-1 IF MID$(X$,I,1)<>" "; AND MID$(X$, I+1, 1)=" "; THEN K=K+1 NEXT I PRINT K END
Завдання 5. Визначити в даному реченні найдовше слово. Розв`язання. Розіб’ємо речення на окремі слова (див. завдання 4) і створимо з отриманих таким чином слів одновимірний символьний масив V$. Наступна обробка виконується аналогічно числовому масиву. REM Програма INPUT X$: PRINT X$: X$=X$+" "; B$=" ": K=0: DIM V$(LEN(X$)) REM Створення символьного масиву FOR I=1 TO LEN(X$)-1 X$=MID$(X$, I, 1): Y$=MID$(Y$, I+1, 1) IF X$<>" "; THEN B$=B$+X$ IF X$<>" "; AND Y$=" "; THEN K=K+: V$(K)=B$: B$=" "; NEXT I ‘ Пошук максимуму і його індексу MAX=LEN(V$(1)): N=1 FOR I=1 TO K IF LEN(V$(I))>MAX THEN MAX=LEN(V$(I)): N=I NEXT I PRINT V$(N) END
Контрольні запитання
Варіанти завдань.
1. В заданому рядку порахувати кількість букв "а". 2. В заданому рядку порахувати кількість пропусків. 3. В заданому рядку порахувати кількість словосполучень "ик". 4. В заданому рядку порахувати кількість окремо "х" та "у". 5. В заданому рядку порахувати загальну кількість символів ".", "?" і "*". 6. З слова "старшокласник" отримати слово "клас", "ласка" і т.д. 5 слів. 7. З слова "родоначальник" отримати слово "дно", "начало" і т.д. 5 слів. 8. З слова "кораблестроение" отримати слово "блеск", "раб" і т.д. 5 слів. 9. В заданому слові перевірити чи повторюється хоч би один його символ. 10. Дано рядок. Порахувати в ньому кількість слів, що починаються на "р". 11. Дано рядок. Порахувати в ньому кількість слів, що закінчуються на "а". 12. Дано рядок. Надрукувати його останнє слово, що починається на "к". 13. Дано рядок. Перевірити, чи він однаково читається зліва направо та справа наліво. 14. Дано рядок Отримати новий рядок, замінивши "а" на "б". 15. Дано рядок. Отримати новий рядок, видаливши кожний символ "б". 16. Дано рядок. Отримати новий рядок, видаливши кожний із символів "х" і "у". 17. Дано рядок. Отримати новий рядок, замінивши "х" на "у". 18. Дано рядок. Перевірити, чи входять до нього символи, з яких можна скласти слово "вода ". 19. Дано рядок. Замінити в ньому місцями перше та останнє слова. 20. Дано рядок. Перевірити, чи входять до нього символи, з яких можна скласти довільно задане слово. 21. Дано рядок. Порахувати кількість слів, що вміщують більше п’яти символів. Порахувати кількість слів, що вміщують букву "м". 22. Дано рядок. Порахувати найбільшу кількість пропусків, що розміщені поряд. 23. Дано рядок. Отримати новий рядок, замінивши групу символів "abc" на "ef". 24. Дано рядок. Отримати новий рядок, замінивши словосполучення "кішка" на "кіт". 25. Дано рядок. Отримати новий рядок, замінивши словосполучення "кіт" на "кішка". 26. Дано рядок. Отримати новий рядок, видаливши "он" та замінивши "и" на "ю". 27. Дано рядок. Отримати новий рядок, видаливши словосполучення "е_мое", та повторюючи інші символи. 28. Дано рядок. Отримати новий рядок, замінивши кожну групу пропусків одним пропуском і видаливши найдовше (найкоротше) слово. 29. Дано рядок. Отримати новий рядок, замінивши кожну групу пропусків одним пропуском, не змінюючи кількість початкових та кінцевих пропусків. 30. Дано рядок. Якщо у ньому є словосполучення "стоп", то отримати один рядок із символів, що розташовані до "стоп", та другий текст із символів, що розташовані після "стоп". За відсутності вказаного словосполучення вивести відповідне повідомлення. 31. Дано рядок. Якщо в ньому є словосполучення "фиг", то отримати новий рядок, замінивши "бе" на "ме", інакше залишити текст без зміни. При відсутності "фиг" повідомити про це. 32. Дано рядок. Якщо в ньому є символ "*", то залишити рядок без зміни, вивівши повідомлення про це; в протилежному випадку, отримати новий рядок, замінивши "ф" на "б". 33. Дано рядок. Якщо в ньому більше трьох букв "й", то залишити рядок без змін, інакше отримати новий рядок, замінивши цифри 1, 2 і 3 на "?". Якщо трьох букв "й" в початковому рядку немає, повідомити про це. 34. Дано рядок. Якщо в ньому є словосполучення "дил", то отримати новий рядок, вставивши перед кожним таким словосполученням підрядок "кроко", інакше повідомити про відсутність "дил". 35. Дано рядок. Якщо в ньому є символ "!", то отримати новий рядок, замінивши цифри 0, 3, 9 на цифру 5. При відсутності "!" або вказаних цифр видати відповідне повідомлення. 36. Дано рядок. Якщо в ньому підряд розміщенні букви "ее", то в рядку до цих букв замінити "р" на "с", а в рядку після цих букв видалити кожну букву "z". При відсутності "ее" видати повідомлення. 37. Дано рядок. Якщо в ньому є символ ".", то замінити перший такий символ на ",", інакше повторити кожний символ цього рядка. При відсутності символу "," повідомити про це. 38. Дано рядок, в якому є слово "так" або слово "ні". Якщо в ньому є слово "ні", то видалити його, інакше отримати рядок до слова "так" і рядок після слова "так".
|
