Begin Delete (St, i, 1) ; Insert ('-'St,1) ; End

Else

If St[i]='-' Then

begin Delete(St,i,1); Insert(':',St,1); end;

Writeln('Результуючий рядок: ',St);

Readkey;

End.

ЗАДАЧА № 3

Умова: Визначити, скільки разів у даному тексті зустрічається послідовність символів «абв».

Розв'язання: Організовуємо прохід по рядку за допомогою циклу з параметром, причому враховуємо, що слід перевірити три послідовно розташованих символи (зверніть увагу на можливість виходу за межі рядка!). Один з методів вибору кількох послідовних символів уже розглядався раніше (і-ий, і+1-ий та і+2-ий елементи), тому розглянемо інший метод, що полягає у використанні функції копіювання Copy. Нагадуємо, що ця функція містить у якості параметрів вихідний рядок, номер початку копіювання (виділення) та кількість вибраних символів, тобто для вибору трьох символів з будь-якого місця рядка Л ця функція буде мати вид:

Cоpy(St,i,3).

Порівнюючи виділені (скопійовані) символи з еталоном, нарощуємо лічильник при виконанні поставлених умов. Програма має вигляд:

Var і:byte; {і - змінна циклу}

St:string; {St - даний текст}

Count:byte; {Count - лічильник послідовностей}

Begin

Clrscr;

Write(^'Введіть текст: ');

Readln(St);

Count:=0; {Початкове значення лічильника}

For i:=1 to length(St)- 2 do

If Copy(St,i,3) = 'абв' Then count:=count+1;

Writeln(^'Кількість шуканих послідовностей: ',count);

Readkey;

End.

Хід роботи

1. Вивчити теоретичні відомості до лабораторної роботи.

2. Вибрати завдання на лабораторну роботу згідно варіанту.

3. Скласти схему алгоритму розв’язку задачі.

4. Написати програму за алгоритмом, виправити помилки у ній.

5. Перевірити роботу програми.

6. Зробити висновки.

ВАРІАНТИ ЗАВДАНЬ

1. Написати програму, яка кодує заданий рядок за принципом збільшення значення (ASCII-коду) кожного символу на одиницю.

2. Написати програму, яка об’єднує два введені з клавіатури рядка в один. Вивести рядок на екран.

3. Написати програму, яка порівнює два введені з клавіатури рядка. Вивести результати на екран.

4. Написати програму, яка заповнює рядок введеним з клавіатури символом. Вивести рядок на екран.

5. Написати програму, яка перетворює прописні символи введеного з клавіатури рядка в строчні. Вивести рядок на екран.

6. Написати програму, яка перетворює строчні символи введеного з клавіатури рядка в прописні. Вивести рядок на екран.

7. Написати програму, яка перетворює прописні символи введеного з клавіатури рядка кирилицею в строчні. Вивести рядок на екран.

8. Написати програму, яка перетворює строчні символи введеного з клавіатури рядка кирилицею в прописні. Вивести рядок на екран.

9. Написати програму, яка перевіряє чи введене з клавіатури число ціле. Вивести результат та введене число на екран.

10. Написати програму, яка перевіряє чи введене з клавіатури число дійсне. Вивести результат та введене число на екран.

11. Написати програму, яка перевіряє чи введене з клавіатури число шістнадцатирічне. Вивести результат та введене число на екран.

12. Написати програму, яка перевіряє чи введене з клавіатури число восьмирічне. Вивести результат та введене число на екран.

13. Написати програму, яка перевіряє чи введене з клавіатури число двійкове. Вивести результат та введене число на екран.

14. Написати програму, яка перевіряє чи введене з клавіатури число є дробовим. Вивести результат та введене число на екран.

15. Написати програму, яка виконує пошук введеного з клавіатури символа в рядку. Вивести вказівник на перший знайдений символ на екран.

16. Написати програму, яка виводить код введеного з клавіатури символа .

17. Написати програму, яка виводить кількість слів в введеному з клавіатури рядку. Вивести рядок на екран.

18. Написати програму, яка виводить скільки слів в введеному з клавіатури рядку. Вивести рядок на екран.

19. Написати програму, яка запитує ім’я користувача та вітає його.

20. Написати програму, яка обчислює довжину введеного з клавіатури рядка.

21. Написати програму, яка виводить на екран першу частину кодування символів (символи з кодами від 0 до 127). Таблиця повинна складатися з 8 стовпчиків та 16 рядків. В першому стовпчику повинні бути символи з кодом від 0 до 15, у другому - від 16 до 31 і т. д

22. Написати програму, яка видаляє із введеного з клавіатури рядка початкові проміжки.

23. Написати програму, яка об’єднує два рядка в один. Вивести рядок на екран.

24. Написати програму, яка до першого рядка додає 5 символів другого рядка. Вивести рядок на екран.

25. Написати програму, яка порівнює символи двох рядків і повертає позицію (починаючи з нуля), в які рядки не співпадають.

26. При інтернет – спілкуванні зі співвітчизниками за кордоном часто виникає проблема через відсутність кирилиці у закордонних респондентів, а також слабке знання іноземних мов у співвітчизників. Один з виходів – набір українських слів схожими за накресленням літерами англійського алфавіту. В заданому українському тексті вибрати ті слова, які без спотворень можуть бути написані латинськими літерами, наприклад: “TEXHIKYM”, “CTAPOCTA”.

27. У заданому словнику знайти групи слів, які записані однаковими літерами і відрізняються лише їх порядком, тобто перестановкою, наприклад: “РАНОК” – “КРОНА”.

28. Заданий список українських прізвищ. Упорядкувати їх за алфавітом. Перевірити написання першої літери великою.

29. Заданий список прізвищ. Надрукувати для кожної людини зі списку привітання до певного свята. Щоб уникнути шаблону, перелік побажань вибирати як випадкову підмножину зі спеціально підготовленого списку.

30. Одна з помилок, яку часто допускають недосвідчені наборщики – двічі записане слово. Знайти такі помилки у заданому тексті і виправити їх.

Література

1. Ривкінд Й. Я., Лисенко Т. І., Чернікова Л. А., Шакотько В., В. Інформатика: Підручник для загальноосвітніх шкіл, академічний рівень, Київ, «Ґенеза», 2010.

2. Інформатика: 7-11 клас. Гаєвський А. Ю. 2-е вид., доп. — Київ: А.С.К., 2008. — 536 с.

3. Глинський Я. М. Іформатика: Навчальний посібник. Львів: СПД Глинський, 2008. – 296 с.

4. Ярмуш О. В., Редько М. М. Інформатика і комп’ютерна техніка: Навч. Посібник. – К:. Вища освіта, 2006. – 359 с.: іл.

5. Віткуп М. Є., Петренко В. В. Інформатика та комп`ютерна техніка Центр “Методика-інформ” м. Київ, 2008 р.

Поиск по сайту: