Выполнить следующие задания, используя процедуры и функции. 2 страница
5. Напишите функцию RightPosition(str1, str2: string), которая получает два параметра str1 и str2 типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition('Миссисипи', 'си') вернет значение 6.
6. Напишите функцию CountStr(str1, str2: string) которая получает два параметра str1 и str2 типа string и возвращает число, указывающее, сколько раз str2 встречается в str1. Функция не должна изменять свои параметры. Кроме того, любая литера в str1 может учитываться не более чем в одном вхождении str2. Например, CountStr('балалайка', 'ала') должна возвращать 1, а не 2.
7. Напишите функцию NonAlpha(str: string), которая получает параметр str типа string и возвращает позицию его первой литеры, не являющейся буквой (как латинского, так и русского алфавитов) строчной или прописной. Например, NonAlpha( 'stev7n' ) дает 5.
8. Напишите функцию Splite(name: string; var first, last : string), которая из параметра name, хранящего имя и фамилию человека, извлекает их в first (имя) и last (фамилия). Имя и фамилия разделены некоторым числом пробелов. Например, после обращения Splite('Вася Иванов', str1, str2) в str1 должно оказаться 'Вася', а в str2 — 'Иванов'. Необходимо также предусмотреть обнаружение и обработку некорректных данных. В частности, если в name вообще не окажется ни одного пробела, процедура должна установить в обоих выходных параметрах специальное значение 'error' (ошибка). Какие еще ошибочные ситуации следует учесть?
9. Пусть даны две строки str1 и str2. Необходимо выяснить, можно ли из str1 путём перестановки литер получить строку str2. Напишите подпрограмму, которая решала бы указанную задачу.
10. Напишите процедуру SortMid, которая сортировала бы ряд из n строк в алфавитном порядке, основываясь на k–ой литере каждой строки, где k является параметром, передаваемым процедуре SortMid. Например, если k=3, то элементы ряда должны быть отсортированы по возрастанию значения в третьей литере каждой строки. Если длина строки меньше k, то будем предполагать, что его k–ой литерой, реально не существующей, служит пробел.
11. Напишите процедуру сортировки строк в обратном алфавитном порядке.
12. Напишите подпрограммы Encode (зашифровать) и Decode (расшифровать), которые получают два параметра str и alpha типа string. В первом параметре задается слово, подлежащее шифрованию (расшифровке), второй представляет собой некоторую перестановку 26 латинских букв алфавита. Принцип преобразования для шифрации состоит в следующем. Если некоторая буква в str является k–ой буквой в обычном алфавите, то вместо нее должна быть взята буква из k–ой позиции "нового" алфавита alpha. Для подпрограммы дешифровки используется обратный принцип.
13. Расширим предыдущую задачу. Напишите программу для тестирования Encode и Decode. Она должна начинаться с ввода ключа для шифрования и дешифрации — 26–буквенной строки. Затем вводится серия строк, подлежащих обработке. Над каждой строкой применяется сначала операция шифрования, а затем дешифрации. При этом необходимо контролировать некоторые ошибочные ситуации. Например, каждая содержащаяся в ключе буква должна быть представлена только один раз.
14. Написать программу, которая будет вводить значения типа string и определять, является ли каждое из них правильным идентификатором, удовлетворяющем требованиям Паскаля. Напомним, вкратце правила построения имен. Всякое имя может содержать от 1 до 127 литер; первой литерой должна быть буква (строчная или прописная); любая другая литера (начиная со второй) может быть буквой, цифрой (от 0 до 9) или знаком подчеркивания. Если обнаружена ошибка, необходимо выдать сообщение, квалифицирующее ее.
15. Усовершенствуйте программу из предыдущей задачи, чтобы она умела распознавать служебные слова Паскаля и отвергать попытки их предъявления. Для простоты ограничьте набор служебных слов, взяв за основу только некоторые из них.
16. Усовершенствуйте программу из задачи 18, сделав возможным автоматическое преобразование неправильных идентификаторов в синтаксически допустимые. Если исходная строка имеет слишком большую длину, укоротите её до допустимого размера путем отбрасывания избыточных литер; если она пуста, добавьте букву 'x'. Если первая литера не является буквой, то вставьте перед ней 'x'. Если в строке присутствуют какие-то "незаконные" литеры, удалите их.
17. Задано десять русских имен. В тексте проверить, все ли эти имена написаны с большой буквы, если нет, то исправить.
18. Дана строка. Определить, стоят ли в данной строке подряд символы ′а′ и ′б′.
19. Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′, а также количество каждого из этих символов.
20. Дана строка. Определить, сколько в ней знаков '+', и заменить их на '–'.
21. Дана строка. Определить, есть ли в ней все буквы, входящие в слово ′шина′.
22. Дана строка. Определить, какие символы и сколько раз встречаются в данной строке.
23. В заданной строке установить пробелы вместо символов, номера позиций которых при делении на 4 дают в остатке 3.
24. Дана строка. Найти слова, которые имеют четную длину и начинаются с заданного символа.
25. Вывести строку длины N (N — четное), которая состоит из чередующихся символов C1 и C2, начиная с C1.
26. Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.
27. Дана строка. Вывести коды ее первого и последнего символа.
28. Дана строка. Подсчитать количество содержащихся в ней цифр1|прописных букв2|строчных букв3.
29. Дана строка. Преобразовать все строчные1|прописные2 латинские3|русские4 буквы в прописные1|строчные2.
30. Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.
31. Дано целое число. Вывести набор символов, содержащий цифры этого числа в исходном1|обратном2 порядке.
32. Дана строка S, изображающая вещественное число в формате с плавающей точкой, и целое число N (N> 0). Вывести набор символов, изображающих первые N цифр дробной части этого вещественного числа (без округления).
33. Дана строка, изображающая целое число. Вывести сумму цифр этого числа.
34. Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы ′.′ (точка).
35. Даны два числа: N1 и N2, и две строки: S1 и S2. Получить из этих строк новую строку, объединив N1 первых символов строки S1 и N2 последних символов строки S2.
36. Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0.
37. Даны две строки: S1 и S2. Определить количество вхождений строки S2 в строку S1.
38. Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S.
39. Даны строки S1, S2 и символ C. Перед1|после2 каждого вхождения символа C в строку S1 вставить строку S2.
40. Даны две строки: S1и S2. Удалить из строки S1 первую1| последнюю2| все3 подстроки, совпадающие с S2. Если таких подстрок нет, то вывести S1без изменений.
41. Даны три строки: S1, S2, S3. Заменить в строке S1 первое1| последнее2| все3 вхождения строки S2 на S3.
42. Дана строка. Вывести подстроку, расположенную между первой и второй1|последней2 точками исходной строки. Если в строке менее двух точек, то вывести всю исходную строку.
43. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов в строке.
44. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые [начинаются и заканчиваются одной и той же буквой]1|[содержат хотя бы одну букву ′А′]2.
45. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы ′А′ .
46. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить длину самого короткого1|длинного2 слова.
47. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом ′.′ (точка). В конце точку не ставить.
48. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
49. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, удалив из него все последующие1|предыдущие2 вхождения первой1|последней2 буквы этого слова (количество пробелов между словами не изменять).
50. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.
51. Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы.
52. Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке [знаков препинания]1|[гласных букв]2.
53. Дана строка-предложение на русском языке. Вывести самое короткое1|длинное2 слово в предложении (если таких слов несколько, то вывести первое3|последнее4 из них).
54. Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.
55. Дана строка, содержащая полное имя файла, то есть имя диска, список каталогов (путь), собственно имя и расширение. Выделить из этой строки имя1|расширение2 файла.
56. Дана строка, содержащая полное имя файла. Выделить из строки название последнего каталога (без символов ′\′ ). Если файл содержится в корневом каталоге, то вывести символ ′\′.
57. Дана строка-предложение на русском языке. Зашифровать ее, выполняя циклическую замену каждой буквы на следующую за ней в алфавите и сохраняя при этом регистр букв (′А′ перейдет в ′Б′ , ′а′ — в ′б′ , ′Б′ — в ′В′ , ′я′ — в ′а′ и т.д.). Букву ′ё′ в алфавите не учитывать (′е′ должна переходить в ′ж′). Знаки препинания и пробелы не изменять.
58. Дана строка-предложение на русском языке и число k (0 < k < 10). Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра, расположенную в алфавите на k‑й позиции после шифруемой буквы (например, для k = 2 ′А′ перейдет в ′В′ , ′а′ — в ′в′ , ′Б′ — в ′Г′ , ′я′ — в ′б′ и т.д.). Букву ′ё′ в алфавите не учитывать, знаки препинания и пробелы не изменять.
59. Дано зашифрованное предложение на русском языке (способ шифрования описан в задании 41) и кодовое смещение k (0 < k < 10). Расшифровать предложение.
60. Дано зашифрованное предложение на русском языке (способ шифрования описан в задании 41) и его расшифрованный первый символ C. Определить кодовое смещение k и расшифровать предложение.
61. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном порядке, все символы, расположенные на нечетных местах (например, строка ′Программа′ превратится в ′ргамамроП′ ).
62. Дано предложение, зашифрованное по правилу, описанному в предыдущем задании. Расшифровать это предложение.
63. Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (то есть каждой открывающей соответствует одна закрывающая), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена первая ошибочная закрывающая скобка, или, если закрывающих скобок не хватает, число –1.
64. Дана строка, содержащая комментарии типа {...}. Создать другую строку, содержащую тот же текст, но без комментариев.
65. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить, сколько слов в строке являются палиндромами (перевертышами), и вывести эти слова.
66. Дана строка, содержащая некоторый текст. Определить, является ли данный текст палиндромом, т.е. читается ли он слева направо так же, как и справа налево (например: ′А роза упала на лапу Азора′).
67. Дана строка, состоящая из латинских букв, в которой слова разделены пробелами (одним или несколькими). Напечатать те слова строки, которые отличны от последнего слова и удовлетворяют следующему свойству:
a) слово симметрично;
b) первая буква слова входит в него еще раз;
c) слово совпадает с начальным отрезком латинского алфавита (′a′, ′ab′, ′abc′ и т.д.);
d) слово совпадает с конечным отрезком латинского алфавита (′z′, ′yz′, ′xyz′ и т.д.);
e) длина слова максимальна;
f) в слове нет повторяющихся букв;
g) каждая буква входит в слово не менее двух раз;
h) в слове гласные буквы (′a′, ′e′, ′i′, ′o′, ′u′) чередуются с согласными.
68. Дана строка, ограниченная точкой, в которой слова разделены пробелом. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу:
a) перенести первую букву в конец слова;
b) перенести последнюю букву в начало слова;
c) удалить из слова первую букву;
d) удалить из слова последнюю букву;
e) удалить из слова все последующие вхождения первой буквы;
f) удалить из слова все предыдущие вхождения последней буквы;
g) оставить в слове только первые вхождения каждой буквы;
h) если слово нечетной длины, то удалить его среднюю букву.
Входные строковые параметры, если они не изменяются в теле процедуры/функции, для экономии памяти рекомендуется описывать как параметры-константы.
69. Описать функцию IsIdent(S) целого типа, проверяющую, является ли строка S допустимым идентификатором Паскаля. При утвердительном ответе возвращается 0. Если S является пустой строкой, то возвращается –1, если строка начинается с цифры, то возвращается –2. Если S содержит недопустимые символы, то возвращается номер первого недопустимого символа.
70. Описать функцию FillStr(S, Len) строкового типа, возвращающую строку длины Len, заполненную повторяющимися копиями строки-шаблона S (последняя копия строки-шаблона может входить в результирующую строку частично).
71. Описать процедуру UpCase(S)1|LowCase(S)2, преобразующую все строчные1|прописные2 буквы строки S в прописные1|строчные2 (остальные символы строки S не изменяются).
72. Описать процедуру TrimL(S)1|TrimR(S)2|Trim(S)3, удаляющую в строке S начальные1|конечные2|[начальные и конечные]3 пробелы.
73. Описать функцию PosLast(subS, S) целого типа, возвращающую номер позиции, с которой в строке S содержится последнее вхождение подстроки subS. Если в строке S отсутствуют подстроки subS, то функция возвращает 0.
74. Описать функцию PosK(subS, S, k) целого типа, возвращающую номер позиции, с которой в строке S содержится k-е вхождение подстроки subS (k > 0). Если количество вхождений subS в строке S меньше k, то функция возвращает 0.
75. Описать функцию WordN(S, k) строкового типа, возвращающую k‑е слово строки S (под словом понимается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше k, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с номерами k1, k3, k3.
76. Описать процедуру SplitStr(S, W, N), которая формирует по данной строке S набор слов W, входящих в S (W — выходной строковый массив; N — его размер; предполагается, что N не будет превышать 10). Под словом понимается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки. Используя эту функцию, вывести количество слов N, содержащихся в данной строке S, и сами эти слова.
Одномерные массивы
1. Даны действительные числа x1, x2, ... , xn, y1, y2, ... , yn, r1, r2, ... , rn. Выяснить, есть ли на плоскости точка, принадлежащая всем кругам с1, с2, ... , сn, где ci имеет центр с координатами xi, yi и радиус ri.
2. Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой оси (a1, a2), (a3, a4), ..., (a2n-1, a2n). Является ли интервалом объединение этих интервалов? Если да, то указать концы этого интервала.
3. Даны действительные числа a1, a2, ... , a2n. Эти точки определяют n интервалов числовой (a1, a2), (a3, a4), ..., (a2n-1, a2n). Имеются ли точки числовой оси, принадлежащие по крайней мере трем каким-нибудь из данных интервалов. Если да, то указать какую-нибудь из этих точек.
4. Даны целые числа a1, a2, ..., an. Пусть M — наибольшее, m — наименьшее из них. Получить в порядке возрастания все целые числа из интервала (m, M), которые не входят в последовательность a1, a2, ..., an.
5. Даны координаты центров n окружностей и их радиусы. Определить число пересекающихся окружностей.
6. Все отрицательные элементы массива X перенести в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов. Дополнительный массив не заводить.
7. Переменной t присвоить значение true, если в массиве нет нулевых элементов и при этом положительные элементы чередуются с отрицательными и значение false в противном случае.
8. Имеются десять гирь весом a1, a2, ..., a10. Обозначим через ck — число способов, которыми можно составить вес k, то есть ck — это число решений уравнения a1x1 + a2x2 +...+ a10x10 = k, где xi может принимать значения 0 или 1 (i=1,..., 10). Получить с0, с1, ..., с10.
9. Прямая на плоскости может быть задана уравнением ax + by = c, где a, b одновременно не равны нулю, a, b, c — целые. Пусть даны коэффициенты нескольких прямых a1, b1, c1, a2, b2, c2, ..., an, bn, cn. Определить, имеются ли среди этих прямых совпадающие или параллельные.
10. Прямая на плоскости может быть задана уравнением ax + by = c, где a, b одновременно не равны нулю, a, b, c — целые. Пусть даны коэффициенты нескольких прямых a1, b1, c1, a2, b2, c2, ..., an, bn, cn. Определить, имеются ли среди этих прямых три прямые, пересекающиеся в одной точке.
11. Даны две последовательности по n чисел в каждой. Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую (считать, что хотя бы одно такое число есть).
12. Даны натуральное число n, целые числа a, x1, x2, ..., xn. Если в последовательности x1, x2, ..., xn есть хотя бы один член, равный a, то получить сумму всех членов, следующих за первым таким членом, иначе найти минимальный среди нечетных чисел последовательности x1, x2, ..., xn.
13. Даны целые числа a1, a2, ..., an, среди которых могут быть повторяющиеся. Составить новый массив из чисел, которые входят в последовательность по одному разу.
14. Даны целые числа a1, a2, ..., an, среди которых могут быть повторяющиеся. Составить новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности.
15. Даны натуральные числа k, n, действительные числа a1, a2, ..., akn. Получить последовательность min(a1, a2, ..., ak), min(ak+1, ak+2, ..., a2k), ..., min(ak(n-1)+1, ..., akn).
16. Даны натуральные числа k, n, действительные числа a1, a2, ..., akn. Получить последовательность последовательность max(a1, a2, ..., ak), max (ak+1, ak+2, ..., a2k), ..., max (ak(n-1)+1, ..., akn).
17. Даны натуральные числа k, n, действительные числа a1, a2, ..., akn. Получить min(a1 + a2 + ... + ak, ak+1 + ak+2 + ... + a2k, ..., ak(n-1)+1 + ... + akn).
18. Сформировать одномерный массив размера N по следующему принципу: четные элементы равны квадрату индекса, а нечетные его обратной величине.
19. Заполнить одномерный массив размера N так, чтобы каждый элемент с четным индексом был равен половине своего номера, а каждый элемент с нечетным индексом — 0.
20. Даны два массива А(N) и В(N).Сформировать С(N) такой, что С[i]=А[i]/B[i], если i нечетное, и C[i]=A[i]*B[i], если i четное.
21. Дан массив размера N. Вывести его элементы в обратном порядке.
22. Подсчитать сумму элементов одномерного массива.
23. Подсчитать сумму элементов двухмерного массива.
24. Найти максимальный элемент в массиве. Найти индекс максимального элемента.
25. Найти минимальный элемент в массиве. Найти индекс минимального элемента.
26. Поменять местами минимальный и максимальный элементы массива.
27. Найти среднее арифметическое элементов массива.
28. Вывести всех элементов массива из интервала C..D.
29. Массив размера N заполнен случайными числами от –15 до 15.Определить количество отрицательных элементов и их индексы.
30. Дан массив размера N. Осуществить циклический сдвиг элементов массива влево (вправо) на одну позицию.
31. Дан массив размера N и число k (0 < k < 5, k < N). Осуществить циклический сдвиг элементов массива влево (вправо) на k позиций.
32. Вывести наиболее часто встречающийся элемент массива.
33. Проверить, все ли элементы массива различны.
34. Проверить, имеется ли в массиве размера N. хотя бы одна пара чисел, совпадающих по величине.
35. Дан массив размера N. Определить индексы всех равных элементов.
36. Дан массив размера N. Вывести вначале его элементы с четными (нечетными) индексами, а затем — с нечетными (четными).
37. Дан целочисленный массив A размера N. Вывести номер первого (последнего) из тех его элементов A[i], которые удовлетворяют двойному неравенству: A[1] < A[i] < A[N]. Если таких элементов нет, то вывести 0.
38. Дан целочисленный массив A размера N и два числа x и y (x < y). Найти номера элементов, удовлетворяющих условию x< A[i] < y.
39. Дан целочисленный массив размера N. Преобразовать его, прибавив к четным (нечетным) числам первый (последний) элемент. Первый и последний элементы массива не изменять.
40. Дан целочисленный массив размера N. Вывести вначале все его четные (нечетные) элементы, а затем — нечетные (четные).
41. Дан целочисленный массив размера N. Изменить знак всех элементов с четными индексами на противоположный.
42. Дан целочисленный массив размера N. Заменить нулевые элементы квадратами их индексов.
43. Дан целочисленный массив размера N. Поменять местами соседние четные и нечетные по номеру элементы. Указание: дополнительные массивы не использовать.
44. Заменить все положительные (отрицательные) элементы целочисленного массива на значение минимального (|максимального).
45. Дан массив размера N. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами.
46. Проверить, образуют ли элементы целочисленного массива размера N арифметическую прогрессию. Если да, то вывести разность прогрессии, если нет — вывести 0.
47. Проверить, образуют ли элементы целочисленного массива размера N геометрическую прогрессию. Если да, то вывести знаменатель прогрессии, если нет — вывести 0.
48. Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести 0, если нет, то вывести номер первого элемента, нарушающего закономерность.
49. Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести номер первого элемента, нарушающего закономерность.