Программирование на Free Pascal и Lazarus - тест 8

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать количество запятых в строке.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Заменить в строке все цифры на пробел. Вывести количество замен.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество цифр.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки все запятые.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество слов.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки все слова, начинающиеся на букву "о".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: После каждого пробела вставить символ "*".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Найти в строке самое длинное слово.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Перед каждым пробелом вставить пробел и символ "+".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать сумму всех чисел, которые встречаются в строке.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество слов, начинающихся на "Ав".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Заменить в строке двойные пробелы на одинарный пробел. Вывести количество замен.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Вставить после каждого слова запятую.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Вставить после каждого слова запятую.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество символов ":" и ";".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки все цифры.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество слов, заканчивающихся символами "ая".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Найти в строке самое короткое слово.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Вставить после каждого слова, заканчивающегося на букву "о" слово "Ого".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки все слова, состоящие из пяти букв.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Найти в строке количество слов, начинающихся на букву "а" и заканчивающихся буквой "т".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки втрое, третье и пятое слова.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Перед каждой цифрой вставить символ "№".

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Посчитать в строке количество гласных букв.

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Выполнить со строкой заданные действия: Удалить из строки все слова, начинающиеся и заканчивающиеся на "о".

Создать структуру с данными по таблице 8.1. Добавить и вычислить в структуре поле "Средний прирост". Определить количество городов с отрицательным приростом в 2003 году. Упорядочить записи по возрастанию среднего прироста. Таблица должна содержать не менее десяти записей.
Прирост населения в городах
Город
Прирост населения, тыс. чел.
1999
2000
2001
2002
2003
Ижевск
2,5
1,3
-0,2
-0,1
0,6
...

Создать структуру с данными по таблице 8.1. Добавить и вычислить в структуре поле "Минимальный прирост". Определить количество городов с приростом в 2003 году более 2 тыс. чел. Упорядочить записи по алфавиту названия городов. Таблица должна содержать не менее десяти записей.
Прирост населения в городах
Город
Прирост населения, тыс. чел.
1999
2000
2001
2002
2003
Ижевск
2,5
1,3
-0,2
-0,1
0,6
...

Создать структуру с данными по таблице 8.2. Добавить и вычислить в структуре поле "Цена со скидкой", вводя процент скидки с формы. Найти общее количество игрушек с фабрики "Игрушка". Упорядочить записи по убыванию поля "Цена". Таблица должна содержать не менее десяти записей.
Сведения о товаре
Название
Фабрика
Цена
Дата выпуска
Количество
Паровозик
Игрушка
125,00
01.02.2007
...

Создать структуру с данными по таблице 8.2. Добавить и вычислить в структуре поле "Сумма продажи". Найти количество названий игрушек, у которых цена меньше общей средней цены всех игрушек. Упорядочить записи по названию игрушек. Таблица должна содержать не менее десяти записей.
Сведения о товаре
Название
Фабрика
Цена
Дата выпуска
Количество
Паровозик
Игрушка
125,00
01.02.2007
...

Создать структуру с данными по таблице 8.3. Добавить и вычислить в структуре поле "Возраст", вводя текущую дату с формы. Определить количество школьников с именем Сергей. Упорядочить записи по номеру школы. Таблица должна содержать не менее десяти записей.
Сведения о школьнике
Фамилия
Имя
Дата рождения
Школа
Класс
Сергеев
Сергей
05.05.1994
112
9-А
...

Создать структуру с данными по таблице 8.3. Добавить и вычислить в структуре поле "Год обучения", убрав из названия класса букву. Найти количество учеников девятых классов. Упорядочить записи по алфавиту фамилии. Таблица должна содержать не менее десяти записей.
Сведения о школьнике
Фамилия
Имя
Дата рождения
Школа
Класс
Сергеев
Сергей
05.05.1994
112
9-А
...

Создать структуру с данными по таблице 8.4. Добавить и вычислить в структуре поле "Выручка". Найти среднюю цену принтеров. Упорядочить записи по возрастанию поля "Цена". Таблица должна содержать не менее десяти записей.
Сведения о продажах
Принтер
Количество, шт
Цена, руб
Январь
Февраль
Март
Samsung CLP-310
25
20
26
12000
...

Создать структуру с данными по таблице 8.4. Добавить и вычислить в структуре поле "Среднее количество". Найти среднее количество принтеров в каждом месяце. Упорядочить записи по названию принтера. Таблица должна содержать не менее десяти записей.
Сведения о продажах
Принтер
Количество, шт
Цена, руб
Январь
Февраль
Март
Samsung CLP-310
25
20
26
12000
...

Создать структуру с данными по таблице 8.4. Добавить и вычислить в структуре поле "Общее количество". Найти общее количество проданных принтеров в каждом месяце. Упорядочить записи по возрастанию поля "Общее количество". Таблица должна содержать не менее десяти записей.
Сведения о продажах
Принтер
Количество, шт
Цена, руб
Январь
Февраль
Март
Samsung CLP-310
25
20
26
12000
...

Создать структуру с данными по таблице 8.4. Добавить и вычислить в структуре поле "Цена со скидкой", вводя процент скидки с формы. Найти количество принтеров с ценой более 15 000 рублей. Упорядочить записи по убыванию цены. Таблица должна содержать не менее десяти записей.
Сведения о продажах
Принтер
Количество, шт
Цена, руб
Январь
Февраль
Март
Samsung CLP-310
25
20
26
12000
...

Создать структуру с данными по таблице 8.5. Добавить и вычислить в структуре поле "Премия", рассчитав её по следующему принципу: 20 % от оклада, если стаж более 10 лет, в противном случае 10 %. Найти количество сотрудников со стажем более 10 лет. Упорядочить записи по должности. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
ФИО
Дата рождения
Должность
Стаж
Оклад
Сергеев С. И.
12.03.1966
Менеджер
2
1250
...

Создать структуру с данными по таблице 8.5. Добавить и вычислить в структуре поле "Возраст", текущую дату вводить с формы. Найти средний оклад всех сотрудников. Упорядочить записи по ФИО. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
ФИО
Дата рождения
Должность
Стаж
Оклад
Сергеев С. И.
12.03.1966
Менеджер
2
1250
...

Создать структуру с данными по таблице 8.5. Добавить и вычислить в структуре поле "Возраст", текущую дату вводить с формы. Определить количество молодых специалистов (моложе 25 лет). Упорядочить записи по возрастанию оклада. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
ФИО
Дата рождения
Должность
Стаж
Оклад
Сергеев С. И.
12.03.1966
Менеджер
2
1250
...

Создать структуру с данными по таблице 8.6. Добавить и вычислить в структуре поле "Среднее количество". Найти общее количество путёвок в каждом месяце. Упорядочить записи по месту отдыха. Таблица должна содержать не менее десяти записей.
Сведения о продажах путёвок
Место отдыха
Количество, шт
Цена, руб
Июль
Август
Сентябрь
Геленджик
255
203
198
12400
...

Создать структуру с данными по таблице 8.6. Добавить и вычислить в структуре поле "Доход от путёвок". Найти среднюю цену путёвки. Упорядочить записи по возрастанию цены. Таблица должна содержать не менее десяти записей.
Сведения о продажах путёвок
Место отдыха
Количество, шт
Цена, руб
Июль
Август
Сентябрь
Геленджик
255
203
198
12400
...

Создать структуру с данными по таблице 8.7: Добавить и вычислить в структуре поле "Зарплата", рассчитав её по следующему принципу: к окладу прибавить 15 % премии от размера оклада. Упорядочить записи по ФИО. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
ФИО
Дата рождения
Должность
Пол
Оклад
Сергеев С. И.
12.03.1966
Менеджер
Муж.
14000
...

Создать структуру с данными по таблице 8.7. Добавить и вычислить в структуре поле "Возраст", текущую дату вводить с формы. Определить количество мужчин и женщин. Упорядочить записи по должности. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
ФИО
Дата рождения
Должность
Пол
Оклад
Сергеев С. И.
12.03.1966
Менеджер
Муж.
14000
...

Создать структуру с данными по таблице 8.8. Добавить и вычислить в структуре поле "Активность" по следующему принципу: если количество статей более 5, то в поле записать пробел, в противном случае — фразу "Работать лучше". Упорядочить записи по фамилии. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
Фамилия
Инициалы
Учёная степень
Год рождения
Количество статей
Сергеев
С. И.
Доцент
1971
7
...

Создать структуру с данными по таблице 8.8. Удалить сотрудника с фамилией, которая вводится с формы. Определить количество доцентов. Упорядочить записи по должности. Таблица должна содержать не менее десяти записей.
Сведения о сотруднике
Фамилия
Инициалы
Учёная степень
Год рождения
Количество статей
Сергеев
С. И.
Доцент
1971
7
...

Создать структуру с данными по таблице 8.9. Добавить и вычислить в структуре поле "Стоимость тиража". Найти общий тираж книг 2005 года. Упорядочить записи по автору. Таблица должна содержать не менее десяти записей.
Сведения о тираже книг
Название
Автор
Название типографии
Год издания
Цена, руб.
Тираж
Светлый облик
Задорожный И. Д.
КП
2003
220
15000
...

Создать структуру с данными по таблице 8.9. Удалить все записи книг тиража 2000 года. Найти среднюю цену книг типографии "КП". Упорядочить записи по году издания. Таблица должна содержать не менее десяти записей.
Сведения о тираже книг
Название
Автор
Название типографии
Год издания
Цена, руб.
Тираж
Светлый облик
Задорожный И. Д.
КП
2003
220
15000
...

Создать структуру с данными по таблице 8.10: Добавить и вычислить в структуре поле "Стоимость звонка". Найти общую стоимость звонков в город, вводимый по запросу. Упорядочить записи по ФИО абонента. Таблица должна содержать не менее десяти записей.
Сведения о телефонных звонках
ФИО абонента
Номер
Дата звонка
Город
Стоимость 1 мин
Количество минут
Моль Р. Ю.
956-25-78
12.05.2003
Нерюнгри
3,65
2
...

Создать структуру с данными по таблице 8.10. Удалить все записи звонков с номерами, начинающимися с цифры 3. Упорядочить записи по названию города. Таблица должна содержать не менее десяти записей.
Сведения о телефонных звонках
ФИО абонента
Номер
Дата звонка
Город
Стоимость 1 мин
Количество минут
Моль Р. Ю.
956-25-78
12.05.2003
Нерюнгри
3,65
2
...

Создать структуру с данными по таблице 8.11. Добавить и вычислить в структуре поле "Гарантийное обслуживание" по следующему принципу: записать фразу "1 год", если гарантийный срок более 3 лет, в противном случае — фразу "нет обслуживания". Найти общее количество всех приборов. Упорядочить записи по названию прибора. Таблица должна содержать не менее десяти записей.
Сведения о приборах
Название прибора
Шифр прибора
Дата выпуска
Количество
Гарантийный срок, мес.
Микроскоп
М12-08
12.06.2006
200
24
...

Создать структуру с данными по таблице 8.11. Удалить все записи с гарантийным сроков менее 6 месяцев. Упорядочить записи по дате выпуска. Таблица должна содержать не менее десяти записей.
Сведения о приборах
Название прибора
Шифр прибора
Дата выпуска
Количество
Гарантийный срок, мес.
Микроскоп
М12-08
12.06.2006
200
24
...