Строковый тип. Множества и записи

Упражнение № 23. Строковый тип данных

Пример. Определить, сколько раз в данной строке встречается символ «а». Решение. Опишем функцию, которой будем передавать строку. Результат выпол­нения — целое число.

Гипс1: ±оп 0_СЬ(з1:: 81: г1пд): Ву1: е;

Уаг л_, к: ВуЬе/

Вед±п

к: = 0; {просматриваем все символы строки, их число равно длине строки, если очередной символ равен ^! а^! , увеличиваем счетчик} Еог 1: =1 То Ъепд1: Ь (з" Ь) Эо з1: [1] = ^! а^! ТЪеп 1пс(к); 0_СЬ: =к/ Епс1;

Пример. Если длина строки нечетное число, то удалить среднюю букву. Решение. Пусть к — это длина строки, если оно нечетное, то надо удалить сред­ний символ, а его номер равен к Б1у 2 + 1.

Ргосейиге Бе 1 (Уаг зЪ: 81: г1пд), -

Уаг к: Ву1: е;

Вед±п

к: =Ъепд1: Ь (зЪ);

к Мое! 2 = 1 ТЪеп Эе1е1: е (зЪ, ' к Эллг 2 + 1, 1);

Епс1;

Пример. Заменить все вхождения подстроки ¹ с! е1¹ на ¹ ГпзегЪ ¹. Решение. Пока такая подстрока встречается, необходимо находить номер первого символа первой встречи, удалять в этом месте ¹ с! е1¹ и сюда вставлять ¹1пзег1: ¹.

Ргосейиге 1пз (Уаг зЪ: 8Ъг: 1пд); Уаг к: ВуЪе;

Ведхп

Ш1е Роз ('с! е1', з!) < > 0 Бо Ведхп

к: =Роз (¹ с! е1¹, з!);

0е1е" Ье (з1, к, ЪепдЪЬ ('с! е1¹));

1пзег1: (¹1пзег1: ¹, зЬ, к);

Епс1; Епс1;

Пример 48. Дана строка, состоящая из нескольких слов, между словами стоит один пробел_у в конце предложения — точка. Подсчитать число слов и вывести на экран только те из них, которые начинаются с буквы «а» (слов не больше 30).

Решение. Разобьем предложение на отдельные слова и каждое будем хранить как элемент массива.

Ргодгат Ехатр1е_4 8; Сопз-Ь п=30;

Туре Муаггау_5!: г=Аггау [ 1.. п] ОГ 3-Ьгл.пд; Уаг А: Муаггау_31г; зЪг: 3" Ьг1пд [255 ]; к: ВуЬе;

Ргосес1иге 1пИ: (Уаг Ь: Муаггау_31г);

Уаг 1: 1п1: едег;

Ведхп

к: =1; {пока не встретится пробел, формируем очередное слово к,

прибавляя по одной букве}

Еог 1: =1 То ЪепдЪЪ(зЪг)-1 Со

1Г з^г^О'' ТЬеп Ь[к]: =Ь[к]+з1г [1]

Е1зе

{если это не последний символ, то увеличиваем счетчик слов и начинаем формировать соответствующий элемент массива} II 1< > Ъепд" Ы1 (з" Ьг) -1 ТЬеп Ведхп 1пс (к); Ь[к]: = '' Епс1; Епс1; Ведхп

ЮгИ: е1п (¹ Введите предложение¹); КеасИп (зЪг); 1пИ: (А);

ЭДгИеД-П (¹ Всего слов: ¹, к); {просматриваем все слова, если первый символ очередного слова есть ¹ а', то выводим его}

Еог 1: =1 То к Бо 1Г А[х] [1] = ^, а¹ ТЬеп ЮгИ: е (А[л_], ' '); КеасИп; Епс1.

Задания для самостоятельной работы

1. Подсчитать, сколько раз в данной строке встречается некоторая буква, вво­димая с клавиатуры.

2. Дан текстовый файл, в котором записано одно из стихотворений А. С. Пушкина. Сколько раз в каждой строке встречаются гласные буквы?

3. Из строки удалить среднюю букву, если длина строки нечетная, если четная — удалить две средние буквы. Заменить все вхождения в текст некоторой буквы на другую букву (их значения вводить с клавиатуры).

4. Заменить все вхождения подстроки 1 на подстроку 81г2 (подстроки вводят­ся с клавиатуры).

5. Даны две строки. Если они начинаются с одинаковых символов, то напечатать «ДА», в противном случае — «НЕТ».

6. Дана последовательность слов. Напечатать все слова, отличные от слова «Не11о».

7. Дана последовательность слов. Напечатать все слова в алфавитном порядке.

8. Дана последовательность слов. Напечатать все слова последовательности, ко­торые встречаются в ней по одному разу.

9. Дано предложение. Напечатать все различные слова.

10. Дана последовательность слов. Напечатать все слова, предварительно преоб­разовав каждое из них по следующему правилу:

а) удалить из слова все предыдущие вхождения последней буквы;

б) оставить в слове только первые вхождения каждой буквы.

11. Дана последовательность слов. Напечатать те слова последовательности, ко­торые отличны от последнего слова и удовлетворяют следующему свойству:

а) в слове нет повторяющихся букв;

б) буквы слова упорядочены по алфавиту;

в) слово совпадает с начальным отрезком латинского алфавита (а, аЬ, аЬс, аЬЫ,...);

г) слово симметрично.

12.Составить программу вывода самой большой цифры в записи заданного числа.

13.Найти сумму всех чисел строки.

Упражнение № 24. Множественный тип данных

Пример 49. Составить программу выделения из множества целых чисел от 1 до 30 следующих множеств:

• множества чисел, кратных 2;

• множества чисел, кратных 3;

• множества чисел, кратных 6;

• множества чисел, кратных 2 или 3.

Ргодгат Ехатр1е__4 9; СопзЪ п = 30; Туре тп=5еЪ 05 1..п; Уаг п2, пЗ, пб, п23: тп;

{п2 - множество чисел, кратных 2, пЗ - кратных 3, пб - кратных 6,

п23 - кратных 2 или 3} к: 1п1: едег;

Ргосес1иге Ргл.п1: (т: тп);

Уаг л.: 1п1едег;

Ведл-п

Еог, 1: =1 То п Оо 1 1п т ТЪеп ШгИ: е(1: 3);

Епс1; Ведл-п

п2=[ ]; пЗ=[ ]; {начальное значение множеств}

Рог к: =1 То п Бо {формирование п2 и пЗ} Ведхп {если число делится на 2, то заносим его в п2} 1Г к Мой 2=0 ТЪеп п2: =п2+[к];

1Г к Мой 3=0 ТЪеп пЗ: =пЗ+[к]; {если чидло делится на 3, то добавляем его в пЗ} Еп< 1;

{числа, кратные 6, - это те, которые кратны и 2, и 3, поэтому это - пересечение двух первых множеств, а числа, кратные 2 или 3, - это объединение этих же множеств} пб: =п2*пЗ; п23: =п2+п3;

1#г1" Ье1п (' числа, кратные 2'); {вывод множеств} Рг1п! (п2);

ДОгл_" Ье1п ('числа, кратные 3'); РгхпМпЗ);

ДОг1" Ье1п ('числа, кратные 6');

Рг1п1(пб); -

ДОг1" Ье1п ('числа, кратные 2 или 3'); РГ1П1(п23);

КеасИп;.

Епс!.

Пример 50. «Мешанина». Если взять то общее, что есть у боба с ложкой, добавить кота и поместить в тепло, то получится муравей. Так ли это? Состоит ли муравей из кота?

Ргодгат Ехатр1е_50;

Уаг у1, у2, уЗ, у4, х: 3е1 ОГ СЬаг;

з: СЬаг;

Ведхп

у1: = [ ¹ б¹, 'о', 'б']; у2: = [ ¹ л ¹, 'о', 'ж', 'к', 'а']; уЗ: = [ ¹ к¹, 'о', 'т']; у4: = [ ¹ т ¹, 'е', 'п', 'л', 'о'];

х: =(у1*у2)+уЗ-у4;

ДОгл_" Ье1п ('множество х¹); {вывод множества х} Рог з: =¹ а¹ То 'я' Бо 1Г з 1п х ТЬеп МгИе(з); Мг11е1п; 1Г уЗ< =х ТЬеп ('муравей состоит из кота¹)

{проверка: состоит ли муравей из кота}

Е1зе ('муравей не состоит из кота');

Епс!.

Пример 51. Дано натуральное число п. Составить программу, печатающую все цифры, не входящие в десятичную запись данного натурального числа в порядке возра­стания.

Программа для решения этой задачи такова:

Ргодгат Ехатр1е_51; Туре тп = 3е1 ОГ 0..9; Уаг з: тп; п: Ьопд1п-Ь; 1, к: 1п" Ьедег; Ведхп

ДОг1" Ье1п ('введите число п'); КеасИп (п);

з: = [ ]; №Ы1е поО Во

{формирование множества цифр десятичной записи натурального числа} Вед1п

к: =п Мое! 10; п: =п Эл^ 10;

15 N01 (к 1п з) ТЬеп з: =з+[к};

Еп< 1;

Рог к: =0 То 9 Во 15 N01 (к 1п з) ТЬеп ЮгИе (к: 2); {вывод цифр в порядке возрастания} Мг11: е1п; КеасИп; Еп< 1.

Пример 52. «Решето Эратосфена». Составить программу поиска простых чисел в числовом промежутке [1...п]. Число п вводится с клавиатуры.

Решение. Простым числом называется число, которое не имеет других делите­лей, кроме единицы и самого этого числа. Для решения этой задачи воспользуемся методом «решета Эратосфена», идея которого заключается в следующем: сформи­руем множество М, в которое поместим все числа заданного промежутка. Затем последовательно будем удалять из него элементы, кратные 2, 3, 4 и так далее, до [л/2] (целая часть числа), кроме самих этих чисел. После такого «просеивания» в множестве М останутся только простые числа.

Ргодгат Ехатр1е_52; Уаг т: 3е1 05 ВуЬе; 1, к, п: 1п1: едег; Вед±п

ЭДгл_1: е1п (^? введите размер промежутка (до 255) '); КеасИп (п);

ш: =[2..п]; {начальное значение}

Еог к: =2 То п Эл^ 2 Эо {перебираем все делители } Еог ±: =2 То п Во

15 (1 Мое! к=0) Апс! (К> к) ТЬеп ш: =ш-[1];

{если число кратно делителю и отлично от него, то удаляем его} Еог 1: =1 То п Во 15 1 1п ш ТЬеп Юг11: е(1: 3); {распечатаем оставшиеся элементы } КеасИп; Еп< 1.

Пример 53. Ребус.

Решение. Каждая буква — это цифра, разным буквам соответствуют разные цифры. Необходимо заменить буквы цифрами так, чтобы получилось верное равенство.

МУХА

+

МУХА СЛОН

Для решения этой задачи используется метод перебора с возвратом. Исполь­зуем множество 51 для хранения цифр слова МУХА, причем будем вносить в него цифры последовательно, учитывая уже внесенные цифры. Начальное значе­ние 51 — пусто. После выбора всех цифр первого слова создаем его числовой эквивалент и числовой образ слова СЛОН. Выделяем цифры СЛОНа (множество 52) и если слова состоят из разных цифр (то есть пересечение 51 и 52 пустое) и все цифры СЛОНа разные (то есть пересечение множеств цифр тоже пустое), то выводим решение на экран. А сейчас идет возврат — удаляем из множества 51 последнюю внесенную цифру и пытаемся выбрать еще одно ее значение. Таким образом, мы перебираем все возможные варианты и выводим на экран только те, которые удовлетворяют равенству.

Заметим, что значение буквы «М» в слове МУХА может иметь значения от 1 до 4, а буква «А» в этом же слове не может быть равна 0.

Ргодгат Ехатр1е_53; Туре тп = Зе1: ОГ 0..9;

Уаг т, у, х, а: 0..9; {цифры числа МУХА}

п1, п2: 1п1: едег; {числа МУХА и СЛОН}

а1, а2, аЗ, а4: 0..9; {цифры числа СЛОН}

з1, з2: тп; {для хранения цифр каждого из чисел}

Ргосейиге Ргл-пЪ (х, у: 1п1: едег); {вывод решения в виде ребуса}

Ведхп

МгИ: е1п (х: 5); Мг11: е1п ('+'); ДОгл.1: е1п (х: 5);

ДОгл.1: е1п (' __ ')

Мгл.1: е1п (у: 5); Епс1; Ведхп

з1: = [ ]; з 2: = [ ]; Еог т: =1 То 4 Оо Ведхп

з1: =з1 + [т]; {заносим первую использованную цифру} Еог у: =0 То 9 Во

1Г N01: (у 1п з1) ТЪеп {если эта цифра не была еще взята, то добавляем ее во множество цифр числа МУХА и выбираем цифру для следующей буквы} Ведхп

з1: =з1+ [у];

Еог х: =0 То 9 Бо

IГ N01: (х 1п з1) ТЬеп

Ведхп

з1: = з1 + [х]; Еог а: =1 То 9 Во IГ N01: (а 1п з1) ТЪеп Ведхп

з1: =з1+[а];

п1: =1000*т+100*у+10*х+а; {число для слова МУХА}

п2: =2*п1; {число для слова СЛОН}

а1: =п2 ^^V 1000; {выделяем цифры СЛОНа}

а2: =п2 ^^V 100 Мой 10;

аЗ: =п2 ^^V 10 Мой 10;

а4: =п2 Мой 10;

з2: =[а1, а2, аЗ, а 4]; {множество цифр СЛОНа} {если слова состоят из разных цифр и в слове СЛОН нет одинаковых, то выводим решение ребуса на экран}

15 (з1*з2=[ ]) Апс! ([а1] * [а2] * [аЗ] * [а4] = [ ]) ТЪеп рг1п1: (п1, п2);

з1: =з1-[а]; {удаляем занесенную цифру}

Епс1;

з1: =з1-[х];

Епс1;

з1: =з1-[у];

Епс1;

з1: =з1-[ш];

Епс1;

КеасИп;

Епс1.

Задания для самостоятельной работы

1. Дана непустая последовательность символов. Построить и напечатать множе­ства, элементами которых являются встречающиеся в последовательности:

а) цифры от «О» до «9» и знаки арифметических операций;

б) буквы от «А» до «Е» и от «X» до «2»;

в) знаки препинания и буквы от «Е» до «ТУ».

2.Составить программу подсчета общего количества цифр и знаков «+», «—», «*» в строке 5, введенной с клавиатуры.

3. Составить программу печати элементов данного множества в алфавитном порядке.

4. Составить программу формирования множества строчных латинских букв, входящих в строку, введенную с клавиатуры, и подсчета количества знаков пре­пинания в ней.

5. Составить программу подсчета количества цифр в заданной строке и печати их.

6. Составить программу печати по одному разу в алфавитном порядке всех строч­ных русских гласных букв, входящих в заданный текст.

7.Составить программу печати в алфавитном порядке всех букв текста (текст оканчивается точкой), входящих в него:

а) не менее двух раз;

б) не более двух раз;

в) более двух раз.

8. Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись данного десятичного числа.

9. Составить программу печати всех символов заданного текста, входящих в него по одному разу.

10. Составить программу, подсчитывающую число гласных и согласных букв в заданном тексте и определяющую, каких букв больше (гласных или согласных), учесть, что в строке могут быть и другие символы, кроме букв.

11. Составить программу печати всех первых вхождений в данный текст строч­ных латинских букв, сохраняя их взаимный порядок.

12. Составить программу поиска и печати в порядке убывания вех простых чи­сел из промежутка [2... 201], используя метод «решета Эратосфена».

13. Задано множество вычислительных машин. Известен набор машин, имею­щихся в каждом из 10 техникумов города. Построить и распечатать множества, включающие в себя вычислительные машины:

а) которыми обеспечены все техникумы;

б) которые имеет хотя бы один техникум;

в) которых нет ни в одном техникуме.

Упражнение № 25. Комбинированный тип данных (записи)

Пример 54. Для каждого из двадцати пяти учеников класса известны фамилия и оценки (в баллах) по пяти дисциплинам. Требуется вычислить среднюю оценку каждо­го из учеников и выбрать человека, имеющего максимальный средний балл.

Ргодгат Ехатр1е_54; Туре

рирИ = Кесогс! Гат: 8Ъг1пд[15]; Ы, Ъ2, ЪЗ, Ъ4, Ъ5: 2..5; зЪ: Кеа1; Епс!;

Уаг с1азз: Аггау [ 1.. 25 ] ОГ рирИ;

р: рирИ; 1, т: 1пЪедег; зЬтах: Кеа1; Ведхп

Еог х: =1 То 25 Е> о {ввод исходных данных} с1азз[л.] Бо

Ведхп

Юг1Ъе1п(¹ Введите фамилию и пять оценок¹); КеасИп (Гат); КеайЪп (Ы, Ь2, ЬЗ, Ъ4, Ь5); Епс!;

Еог л.: =1 То ш Бо {вычисление среднего балла}

с1азз[х] Бо зЬ: = (Ы+Ь2+Ь3+Ь4+Ь5)/5; зЬтах: =0; {поиск максимального среднего балла} Еог 1: =1 То ш Оо

1Г с1азз [л_]. зЬ> =зЬтах ТЬеп зЬтах: =с1азз [1]. зЬ; Еог 1: =1 То т Бо {печать результатов} 1Г с1азз[1].зЬ=зЬшах ТЬеп

с1азз[х] Бо Юг: И: е1п (Гат: 20, ¹ - ', зЪ: 6: 3); КеасИп; Епс!.

Пример 55. Определить дату завтрашнего дня.

Решение. Чтобы определить дату завтрашнего дня, надо знать не только дату сегодняшнего дня, но и число дней данного месяца (так как если это последний день месяца, то завтра будет первый день следующего), кроме того, надо знать, какой год — високосный или нет (от этого зависит число дней февраля).

Пусть дата вводится следующим образом:

1 2 1997

Первая цифра — это число, вторая — месяц, третья — год. Тогда можно описать запись даты таким образом:

Туре уеаг=1500..2000; шоп1: 11=1..12; с! ау=1.. 31; с! а1: а=Кесогс1 у: уеаг; ш: шоп'Ып; < 1: < 1ау; Епс1;

Заметим, что:

• если это не последний день месяца, то завтра будет этот же год, этот же месяц, а число увеличится на 1;

• если это последний день месяца, то:

а) если это не декабрь, то завтра будет тот же год, но первое число следую­щего месяца;

б) если это декабрь, то завтра наступит следующий год, первый месяц и первое число.

Ргодгат Ехатр1е_55; Туре уеаг=1500..2000; топ1: 11=1.. 12; с! ау=1.. 31; с! а1: а=Кесогс1

у: уеаг; т: топ-ЬЪ; с1: с! ау; Епс1;

Уаг 6.аЬ, пех-Ь: с! а1: а; {с! а1: - переменная для сегодняшней даты, пехЪ - переменная для определения даты завтрашнего дня} РипсЫоп Ьеар(уу: уеаг): Воо1еап; {функция, определяющая, високосный год или нет}

Вед±п {год называется високосным, если его номер делится на 4, но если это год столетия, то номер столетия не делится на 4, то есть не делится на 400}

Ьеар: = (уу Мое! 4=0) Апс! (уу Мое! 400 < > 0); Епс1;

РипсЫоп Ошоп1: Ь(тт: топЫп; уу: уеаг): с! ау; {функция определения

количества дней данного месяца в данном году}

Вед±п

Сазе шш

1, 3, 5, 7, 8, 10, 12: Ошоп1: Ь: =31; 4, 6, 9, 11: Ошоп1: Ь: =30;

2: 15 Ьеар (уу) ТЬеп Ошоп1: Ь: =29 Е1зе Ошоп1: Ь: =28; Епс1; Епс1;

Ргосес1иге Тотоггсж (1: с1: с! а1: а; Уаг пс1: с! а1: а); {процедура определения завтрашней даты}

Вед±п {если это не последний день месяца} 15 1: с1. сК> Стоп^Ь (1: с1. т, 1: с1. у) ТЬе'п

пс! Эо

Ведхп

с!: =" Ьс1. с! +1;

у: =-Ь< 1. у;

Епс!

Е1зе {если это последний день месяца} 11: Ъс1.т=12 ТЬеп {если это декабрь} ЮЛ.Й1 пс! Эо Ведхп

< 1: =1; ш: =1; у: =" Ьс1. у+1;

Епс!

Е1зе {если это не декабрь} пс! Во

Ведхп

сП=1;

ш: =" Ьс!.т+1; у: =-Ь< 1.у; Епс1; Епс1; Ведхп

ЭДгл_1: е1п (¹ Введите сегодняшнее число, месяц и год'); КеасИп (< 1а1:. с1, с! а1:.т, с! а1:. у); Тотоггом{йаЪ, пехЪ); ЭДгл_1: е1п (¹ Завтра будет '); ЭДгл_-Ье1п (пехЪ. с1, '. ¹, пехЪ.ш, '. ¹, пех-Ь. у); КеасИп; Епс!.

Задания для самостоятельной работы

1. Написать программу, определяющую:

а) дату следующего (предыдущего) дня;

б) дату, которая наступит через т дней;

в) дату, которая была за т дней до сегодня;

г) число суток, прошедших от даты /1 до /2;

д) день недели, выпадающий на дату /1, если известно, что в первый день нашей эры был понедельник.

2. Дано время, описанное следующим образом:

Туре Ъллпе = Кесогс! Ъ: 0..23;

ш, з: 0..59

Епс!;

Описать:

а) логическую функцию для проверки, предшествует ли время /1 времени й (в рамках суток);

б) процедуру, присваивающую параметру /1 время, на 1 секунду большее времени / (учесть смену суток).

3. СопзЪ п = 300;

Туре Мугесогс! = Кесогс! Кеу: 1п1: едег; Мате: 51: г1пд; Епс1;

ТаЫе=Аггау [ 1.. п] 05 Мугесогс!.

Считая, что в таблице записи имеют различные ключи, описать:

а) процедуру, упорядочивающую записи таблицы по убыванию значений поля Кеу;

б) логическую функцию поиск(Т, К, Н), определяющую, есть ли в таблице Т (все записи которой уже упорядочены по возрастанию значений поля Кеу) запись со значением поля Кеу, равным К, и, если есть, присваивающую ее номер параметру Н.

4. Дан массив, содержащий информацию об учениках некоторой школы:

а) заполнить второй массив данными об учениках только девятых классов;

б) выяснить, на сколько человек в восьмых классах больше, чем в девятых.

5. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан массив, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно — действительное (вес в килограммах):

а) найти багаж, средний вес одной вещи в котором отличается не более чем на 0, 3 кг от общего среднего веса одной вещи;

б) найти число пассажиров, имеющих более двух вещей и число пассажи­ров, количество вещей которых превосходит среднее число вещей;

в) выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг.