Одномерные и двумерные массивы

При вводе исходного массива вначале следует ввести его размер (одно число для одномерных массивов, два числа — количество строк и столбцов — для двумерных массивов-матриц), а затем — все его элементы.
Если в задании явно не указывается размер одномерного массива, являющегося параметром процедуры или функции, то предполагается, что этот размер может меняться в пределах от $$1$$ до $$10$$. Для двумерных массивов-матриц также предполагается, что число их строк и столбцов может меняться от $$1$$ до $$10$$. Порядковые номера начальных элементов как одномерных, так и двумерных массивов всегда считаются равными 1. При описании процедур, выполняющих преобразование массива, не следует использовать вспомогательный массив того же размера.

Param1. Описать функцию MinInt($$A$$, $$N$$) целого типа, находящую минимальный элемент целочисленного массива $$A$$ размера $$N$$. С помощью этой функции найти минимальные элементы массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param2. Описать функцию NMax($$A$$, $$N$$) целого типа, находящую номер максимального элемента вещественного массива $$A$$ размера $$N$$. С помощью этой функции найти номера максимальных элементов массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param3. Описать процедуру NMiNMax($$A$$, $$N$$, $$NMin$$, $$NMax$$), находящую номера минимального и максимального элемента вещественного массива $$A$$ размера $$N$$. Выходные параметры целого типа: NMin (номер минимального элемента) и NMax (номер максимального элемента). С помощью этой процедуры найти номера минимальных и максимальных элементов массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param4. Описать процедуру Invert($$A$$, $$N$$), меняющую порядок следования элементов вещественного массива $$A$$ размера $$N$$ на противоположный (инвертирование массива). Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры инвертировать массивы $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param5. Описать процедуру Smooth_1($$A$$, $$N$$), выполняющую сглаживание вещественного массива $$A$$ размера $$N$$ следующим образом: элемент $$A_K$$ заменяется на среднее арифметическое первых $$K$$ исходных элементов массива $$A$$. Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива $$A$$ размера $$N$$, выводя результаты каждого сглаживания.

Решение задачи, на языке: Паскаль

Param6. Описать процедуру Smooth_2($$A$$, $$N$$), выполняющую сглаживание вещественного массива $$A$$ размера $$N$$ следующим образом: элемент $$A_1$$ не изменяется, элемент $$A_K$$ $$(K=2,…, $$N$$)$$ заменяется на полусумму исходных элементов $$A_{K-1}$$ и $$A_K$$. Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива $$A$$ размера $$N$$, выводя результаты каждого сглаживания.

Решение задачи, на языке: Паскаль

Param7. Описать процедуру Smooth_3($$A$$, $$N$$), выполняющую сглаживание вещественного массива $$A$$ размера $$N$$ следующим образом: каждый элемент массива заменяется на его среднее арифметическое с соседними элементами (при вычислении среднего арифметического используются исходные значения соседних элементов). Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива $$A$$ размера $$N$$, выводя результаты каждого сглаживания.

Решение задачи, на языке: Паскаль

Param8. Описать процедуру RemoveX($$A$$, $$N$$, $$X$$), удаляющую из целочисленного массива $$A$$ размера $$N$$ элементы, равные целому числу $$X$$. Массив $$A$$ и число $$N$$ являются входными и выходными параметрами. С помощью этой процедуры удалить числа $$X_A$$, $$X_B$$, $$X_C$$ из массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно и вывести размер и содержимое полученных массивов.

Решение задачи, на языке: Паскаль

Param9. Описать процедуру RemoveForIN_C($$A$$, $$N$$), удаляющую из вещественного массива $$A$$ размера $$N$$ «лишние» элементы так, чтобы оставшиеся элементы оказались упорядоченными по возрастанию: первый элемент не удаляется, второй элемент удаляется, если он меньше первого, третий — если он меньше предыдущего элемента, оставленного в массиве, и т. д. Например, массив $$5.5, 2.5, 4.6, 7.2, 5.8, 9.4$$ должен быть преобразован к виду $$5.5, 7.2, 9.4$$. Массив $$A$$ и число $$N$$ являются входными и выходными параметрами. С помощью этой процедуры преобразовать массивы $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно и вывести размер и содержимое полученных массивов.

Решение задачи, на языке: Паскаль

Param10. Описать процедуру DoubleX($$A$$, $$N$$, $$X$$), дублирующую в целочисленном массиве $$A$$ размера $$N$$ элементы, равные целому числу $$X$$. Массив $$A$$ и число $$N$$ являются входными и выходными параметрами. С помощью этой процедуры продублировать числа $$X_A$$, $$X_B$$, $$X_C$$ в массивах $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно и вывести размер и содержимое полученных массивов.

Решение задачи, на языке: Паскаль

Param11. Описать процедуру Sort($$A$$, $$N$$), выполняющую сортировку по возрастанию вещественного массива $$A$$ размера $$N$$. Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры отсортировать массивы $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param12. Описать процедуру SortIndex($$A$$, $$N$$, $$I$$), формирующую для вещественного массива $$A$$ размера $$N$$ индексный массив $$I$$. — массив целых чисел того же размера, содержащий номера элементов массива $$A$$ в том порядке, который соответствует возрастанию элементов массива $$A$$ (сам массив $$A$$ при этом не изменяется). Индексный массив $$I$$. является выходным параметром. С помощью этой процедуры создать индексные массивы для массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param13. Описать процедуру Bell($$A$$, $$N$$), меняющую порядок элементов вещественного массива $$A$$ размера $$N$$ на следующий: наименьший элемент массива располагается на первом месте, наименьший из оставшихся элементов — на последнем, следующий по величине располагается на втором месте, следующий — на предпоследнем и т. д. (в результате график значений элементов будет напоминать колокол). Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры преобразовать массивы $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение задачи, на языке: Паскаль

Param14. Описать процедуру Split1($$A$$, $$N_A$$, $$B$$, $$N_B$$, $$C$$, $$N_C$$), формирующую по вещественному массиву $$A$$ размера $$N_A$$ два вещественных массива $$B$$ и $$C$$ размера $$N_B$$ и $$N_C$$ соответственно; при этом массив $$B$$ содержит все элементы массива $$A$$ с нечетными порядковыми номерами $$(1, 3,…)$$, а массив $$C$$ — все элементы массива $$A$$ с четными номерами $$(2, 4,…)$$. Массивы $$B$$ и $$C$$ и числа $$N_B$$ и $$N_C$$ являются выходными параметрами. Применить эту процедуру к данному массиву $$A$$ размера $$N_A$$ и вывести размер и содержимое полученных массивов $$B$$ и $$C$$.

Решение задачи, на языке: Паскаль

Param15. Описать процедуру Split2($$A$$, $$N_A$$, $$B$$, $$N_B$$, $$C$$, $$N_C$$), формирующую по целочисленному массиву $$A$$ размера $$N_A$$ два целочисленных массива $$B$$ и $$C$$ размера $$N_B$$ и $$N_C$$ соответственно; при этом массив $$B$$ содержит все четные числа из массива $$A$$, а массив $$C$$ — все нечетные числа (в том же порядке). Массивы $$B$$ и $$C$$ и числа $$N_B$$ и $$N_C$$ являются выходными параметрами. Применить эту процедуру к данному массиву $$A$$ размера $$N_A$$ и вывести размер и содержимое полученных массивов $$B$$ и $$C$$.

Решение задачи, на языке: Паскаль

Param16. Описать процедуру ArrayToMatrix1($$A$$, $$K$$, $$M$$, $$N$$, $$B$$), формирующую по вещественному массиву $$A$$ размера $$K$$ матрицу $$B$$ размера $$M \times N$$ (матрица заполняется элементами массива $$A$$ по строкам). «Лишние» элементы массива игнорируются; если элементов массива недостаточно, то оставшиеся элементы матрицы полагаются равными $$0$$. Двумерный массив $$B$$ является выходным параметром. С помощью этой процедуры на основе данного массива $$A$$ размера $$K$$ и целых чисел $$M$$ и $$N$$ сформировать матрицу $$B$$ размера $$M \times N$$.

Решение задачи, на языке: Паскаль

Param17. Описать процедуру ArrayToMatrix2($$A$$, $$K$$, $$M$$, $$N$$, $$B$$), формирующую по вещественному массиву $$A$$ размера $$K$$ матрицу $$B$$ размера $$M \times N$$ (матрица заполняется элементами массива $$A$$ по столбцам). «Лишние» элементы массива игнорируются; если элементов массива недостаточно, то оставшиеся элементы матрицы полагаются равными $$0$$. Двумерный массив $$B$$ является выходным параметром. С помощью этой процедуры на основе данного массива $$A$$ размера $$K$$ и целых чисел $$M$$ и $$N$$ сформировать матрицу $$B$$ размера $$M \times N$$.

Решение задачи, на языке: Паскаль

Param18. Описать процедуру Chessboard($$M$$, $$N$$, $$A$$), формирующую по целым положительным числам $$M$$ и $$N$$ матрицу $$A$$ размера $$M \times N$$, которая содержит числа $$0$$ и $$1$$, расположенные в «шахматном» порядке, причем $$A_{1,1}=0$$. Двумерный целочисленный массив $$A$$ является выходным параметром. С помощью этой процедуры по данным целым числам $$M$$ и $$N$$ сформировать матрицу $$A$$ размера $$M \times N$$.

Решение задачи, на языке: Паскаль

Param19. Описать функцию Norm1($$A$$, $$M$$, $$N$$) вещественного типа, вычисляющую норму вещественной матрицы $$A$$ размера $$M \times N$$: Norm1($$A$$, $$M$$, $$N$$)=$$max {|A_{1,J}|+|A_{2,J}| +…+ |A_{M,J}|}$$, где максимум берется по всем $$J$$ от $$1$$ до $$N$$. Для данной матрицы $$A$$ размера $$M \times N$$ найти Norm1($$A$$, $$K$$, $$N$$), $$K=1,…, M$$.

Решение задачи, на языке: Паскаль

Param20. Описать функцию Norm2($$A$$, $$M$$, $$N$$) вещественного типа, вычисляющую норму вещественной матрицы $$A$$ размера $$M \times N$$: Norm2($$A$$, $$M$$, $$N$$)=$$max {|A_{I,1}|+|A_{I,2}| +…+ |A_{I,N}|}$$, где максимум берется по всем $$I$$. от $$1$$ до $$M$$. Для данной матрицы $$A$$ размера $$M \times N$$ найти Norm2($$A$$, $$K$$, $$N$$), $$K=1,…, M$$.

Решение задачи, на языке: Паскаль

Param21. Описать функцию SumRow($$A$$, $$M$$, $$N$$, $$K$$) вещественного типа, вычисляющую сумму элементов вещественной матрицы $$A$$ размера $$M \times N$$, расположенных в $$K$$-й строке (если $$K>M$$, то функция возвращает $$0$$). Для данной матрицы $$A$$ размера $$M \times N$$ и трех данных $$K$$ найти SumRow($$A$$, $$M$$, $$N$$, $$K$$).

Решение задачи, на языке: Паскаль

Param22. Описать функцию SumCol($$A$$, $$M$$, $$N$$, $$K$$) вещественного типа, вычисляющую сумму элементов вещественной матрицы $$A$$ размера $$M \times N$$, расположенных в $$K$$-м столбце (если $$K>N$$, то функция возвращает $$0$$). Для данной матрицы $$A$$ размера $$M \times N$$ и трех данных $$K$$ найти SumCol($$A$$, $$M$$, $$N$$, $$K$$).

Решение задачи, на языке: Паскаль

Param23. Описать процедуру SwapRow($$A$$, $$M$$, $$N$$, $$K_1$$, $$K_2$$), осуществляющую перемену местами строк вещественной матрицы $$A$$ размера $$M \times N$$ с номерами $$K_1$$ и $$K_2$$. Матрица $$A$$ является входным и выходным параметром; если $$K_1$$ или $$K_2$$ больше $$M$$, то матрица не изменяется. Используя эту процедуру, поменять для данной матрицы $$A$$ размера $$M \times N$$ строки с данными номерами $$K_1$$ и $$K_2$$.

Решение задачи, на языке: Паскаль

Param24. Описать процедуру SwaP_Col($$A$$, $$M$$, $$N$$, $$K_1$$, $$K_2$$), осуществляющую перемену местами столбцов вещественной матрицы $$A$$ размера $$M \times N$$ с номерами $$K_1$$ и $$K_2$$. Матрица $$A$$ является входным и выходным параметром; если $$K_1$$ или $$K_2$$ больше $$N$$, то матрица не изменяется. Используя эту процедуру, поменять для данной матрицы $$A$$ размера $$M \times N$$ столбцы с данными номерами $$K_1$$ и $$K_2$$.

Решение задачи, на языке: Паскаль

Param25. Описать процедуру Transp($$A$$, $$M$$), выполняющую транспонирование (то есть зеркальное отражение относительно главной диагонали) квадратной вещественной матрицы $$A$$ порядка $$M$$. Матрица $$A$$ является входным и выходным параметром. Используя эту процедуру, транспонировать данную матрицу $$A$$ порядка $$M$$.

Решение задачи, на языке: Паскаль

Param26. Описать процедуру RemoveRows($$A$$, $$M$$, $$N$$, $$K_1$$, $$K_2$$), удаляющую из вещественной матрицы $$A$$ размера $$M \times N$$ строки с номерами от $$K_1$$ до $$K_2$$ включительно (предполагается, что $$1 < K_1 \le K_2$$). Если $$K_1>M$$, то матрица не изменяется; если $$K_2>M$$, то удаляются строки матрицы с номерами от $$K_1$$ до $$M$$. Двумерный массив $$A$$ и числа $$M$$, $$N$$ являются входными и выходными параметрами. Используя процедуру RemoveRows, удалить из данной матрицы $$A$$ размера $$M \times N$$ строки с номерами от $$K_1$$ до $$K_2$$ и вывести размер полученной матрицы и ее элементы.

Решение задачи, на языке: Паскаль

Param27. Описать процедуру RemoveCols($$A$$, $$M$$, $$N$$, $$K_1$$, $$K_2$$), удаляющую из вещественной матрицы $$A$$ размера $$M \times N$$ столбцы с номерами от $$K_1$$ до $$K_2$$ включительно (предполагается, что $$1 < K_1 \le K_2$$). Если $$K_1>N$$, то матрица не изменяется; если $$K_2>N$$, то удаляются столбцы матрицы с номерами от $$K_1$$ до $$N$$. Двумерный массив $$A$$ и числа $$M$$, $$N$$ являются входными и выходными параметрами. Используя процедуру RemoveCols, удалить из данной матрицы $$A$$ размера $$M \times N$$ столбцы с номерами от $$K_1$$ до $$K_2$$ и вывести размер полученной матрицы и ее элементы.

Решение задачи, на языке: Паскаль

Param28. Описать процедуру RemoveRowCol($$A$$, $$M$$, $$N$$, $$K$$, $$L$$), удаляющую из вещественной матрицы $$A$$ размера $$M \times N$$ строку и столбец, которые содержат элемент $$A_{K,L}$$ (предполагается, что $$M>1$$ и $$N>1$$; если $$K>M$$ или $$L>N$$, то матрица не изменяется). Двумерный массив $$A$$ и числа $$M$$, $$N$$ являются входными и выходными параметрами. Дана матрица $$A$$ размера $$M \times N$$ и числа $$K$$, $$L$$. Применить к матрице $$A$$ процедуру RemoveRowCol и вывести размер полученной матрицы и ее элементы.

Решение задачи, на языке: Паскаль

Param29. Описать процедуру SortCols($$A$$, $$M$$, $$N$$), выполняющую сортировку по возрастанию столбцов целочисленной матрицы $$A$$ размера $$M \times N$$ (столбцы сравниваются лексикографически: если первые элементы столбцов различны, то меньшим считается столбец, содержащий меньший первый элемент; если первые элементы столбцов равны, то анализируются их вторые элементы и т. д.). Двумерный массив $$A$$ является входным и выходным параметром. Используя процедуру SortCols, отсортировать столбцы данной матрицы $$A$$ размера $$M \times N$$.

Решение задачи, на языке: Паскаль

 

Строки

Param30. Описать функцию IsIdent($$S$$) целого типа, проверяющую, является ли строка $$S$$ допустимым идентификатором, то есть непустой строкой, которая содержит только латинские буквы, цифры и символ подчеркивания «_» и не начинается с цифры. Если $$S$$ является допустимым идентификатором, то функция возвращает $$0$$. Если $$S$$ является пустой строкой, то возвращается $$-1$$, если $$S$$ начинается с цифры, то возвращается $$-2$$. Если $$S$$ содержит недопустимые символы, то возвращается номер первого недопустимого символа. Проверить с помощью функции IsIdent пять данных строк.

Решение задачи, на языке: Паскаль

Param31. Описать функцию FillStr($$S$$, $$N$$) строкового типа, возвращающую строку длины $$N$$, заполненную повторяющимися копиями строки-шаблона $$S$$ (последняя копия строки-шаблона может входить в результирующую строку частично). Используя эту функцию, сформировать по данному числу $$N$$ и пяти данным строкам-шаблонам пять результирующих строк длины $$N$$.

Решение задачи, на языке: Паскаль

Param32. Описать процедуру UP_CaseRus($$S$$), преобразующую все строчные русские буквы строки $$S$$ в прописные (остальные символы строки $$S$$ не изменяются). Строка $$S$$ является входным и выходным параметром. Используя процедуру UP_CaseRus, преобразовать пять данных строк.

Решение задачи, на языке: Паскаль

Param33. Описать процедуру LowCaseRus($$S$$), преобразующую все прописные русские буквы строки $$S$$ в строчные (остальные символы строки $$S$$ не изменяются). Строка $$S$$ является входным и выходным параметром. Используя процедуру LowCaseRus, преобразовать пять данных строк.

Решение задачи, на языке: Паскаль

Param34. Описать процедуру TrimLeftC($$S$$, $$C$$), удаляющую в строке $$S$$ начальные символы, совпадающие с символом $$C$$. Строка $$S$$ является входным и выходным параметром. Дан символ $$C$$ и пять строк. Используя процедуру TrimLeftC, преобразовать данные строки.

Решение задачи, на языке: Паскаль

Param35. Описать процедуру TrimRightC($$S$$, $$C$$), удаляющую в строке $$S$$ конечные символы, совпадающие с символом $$C$$. Строка $$S$$ является входным и выходным параметром. Дан символ $$C$$ и пять строк. Используя процедуру TrimRightC, преобразовать данные строки.

Решение задачи, на языке: Паскаль

Param36. Описать функцию InvertStr($$S$$, $$K$$, $$N$$) строкового типа, возвращающую инвертированную подстроку строки $$S$$, содержащую в обратном порядке $$N$$ символов строки $$S$$, начиная с ее $$K$$-го символа. Если $$K$$ превосходит длину строки $$S$$, то возвращается пустая строка; если длина строки меньше $$K+N$$, то инвертируются все символы строки, начиная с ее $$K$$-го символа. Вывести значения функции InvertStr для данной строки $$S$$ и каждой из трех пар положительных целых чисел: ($$K_1$$, $$N_1$$), ($$K_2$$, $$N_2$$), ($$K_3$$, $$N_3$$).

Решение задачи, на языке: Паскаль

Param37. Описать функцию PosSub($$S_0$$, $$S$$, $$K$$, $$N$$) целого типа, возвращающую номер позиции, начиная с которой в строке $$S$$ содержится первое вхождение строки $$S_0$$, причем анализируются только $$N$$ символов строки $$S$$, начиная с ее $$K$$-го символа (таким образом, PosSub обеспечивает поиск в подстроке). Если $$K$$ превосходит длину строки $$S$$, то возвращается $$0$$, если длина строки меньше $$K+N$$, то анализируются все символы строки, начиная с ее $$K$$-го символа. Если в требуемой подстроке строки $$S$$ вхождения $$S_0$$ отсутствуют, то функция возвращает $$0$$. Вывести значения функции PosSub для данных строк $$S_0$$, $$S$$ и каждой из трех пар положительных целых чисел: ($$K_1$$, $$N_1$$), ($$K_2$$, $$N_2$$), ($$K_3$$, $$N_3$$).

Решение задачи, на языке: Паскаль

Param38. Описать функцию PosLast($$S_0$$, $$S$$) целого типа, возвращающую номер позиции, начиная с которой в строке $$S$$ содержится последнее вхождение подстроки $$S_0$$. Считать, что перекрывающихся вхождений подстрок $$S_0$$ строка $$S$$ не содержит. Если в строке $$S$$ отсутствуют подстроки $$S_0$$, то функция возвращает $$0$$. Вывести значения этой функции для пяти данных пар строк $$S_0$$ и S.

Решение задачи, на языке: Паскаль

Param39. Описать функцию PosK($$S_0$$, $$S$$, $$K$$) целого типа, возвращающую номер позиции, начиная с которой в строке $$S$$ содержится $$K$$-е вхождение подстроки $$S_0$$ $$(K>0)$$. Если количество вхождений $$S_0$$ в строке $$S$$ меньше $$K$$, то функция возвращает $$0$$. Считать, что перекрывающихся вхождений подстрок $$S_0$$ строка $$S$$ не содержит. Вывести значения этой функции для пяти данных троек: $$S_0$$, $$S$$ и K.

Решение задачи, на языке: Паскаль

Param40. Описать функцию WordK($$S$$, $$K$$) строкового типа, возвращающую $$K$$-е слово строки $$S$$ (словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше $$K$$, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки $$S$$ слова с данными номерами $$K_1$$, $$K_2$$, $$K_3$$.

Решение задачи, на языке: Паскаль

Param41. Описать процедуру SplitStr($$S$$, $$W$$, $$N$$), которая формирует по данной строке $$S$$ массив $$W$$ слов, входящих в $$S$$ (массив $$W$$ и его размер $$N$$ являются выходными параметрами). Словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки; предполагается, что строка $$S$$ содержит не более $$10$$ слов. Используя функцию SplitStr, найти количество слов $$N$$, содержащихся в данной строке $$S$$, и сами эти слова.

Решение задачи, на языке: Паскаль

Param42. Описать функцию CompressStr($$S$$) строкового типа, выполняющую сжатие строки $$S$$ по следующему правилу: каждая подстрока строки $$S$$, состоящая из более чем четырех одинаковых символов $$C$$, заменяется текстом вида «С{K}», где $$K$$ — количество символов $$C$$ (предполагается, что строка $$S$$ не содержит фигурных скобок «{» и «}»). Например, для строки $$S$$=«bbbccccce» функция вернет строку «bbbc{5}e». С помощью функции CompressStr сжать пять данных строк.

Решение задачи, на языке: Паскаль

Param43. Описать функцию DeCompressStr($$S$$) строкового типа, восстанавливающую строку, сжатую процедурой CompressStr (см. задание Param42). Параметр $$S$$ содержит сжатую строку; восстановленная строка является возвращаемым значением функции. С помощью функции DeCompressStr восстановить пять данных сжатых строк.

Решение задачи, на языке: Паскаль

Param44. Описать функцию DecToBin($$N$$) строкового типа, возвращающую строковое представление целого неотрицательного числа $$N$$ в двоичной системе счисления. Результирующая строка состоит из символов «0»-«1» и не содержит ведущих нулей (за исключением представления числа $$0$$). Используя эту функцию, получить двоичные представления пяти данных чисел.

Решение задачи, на языке: Паскаль

Param45. Описать функцию DecToHex($$N$$) строкового типа, возвращающую строковое представление целого неотрицательного числа $$N$$ в 16-ричной системе счисления. Результирующая строка состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей (за исключением представления числа $$0$$). Используя эту функцию, получить 16-ричные представления пяти данных чисел.

Решение задачи, на языке: Паскаль

Param46. Описать функцию BinToDec($$S$$) целого типа, определяющую целое неотрицательное число по его строковому представлению $$S$$ в двоичной системе счисления. Параметр $$S$$ имеет строковый тип, состоит из символов «0»-«1» и не содержит ведущих нулей (за исключением значения «0»). Используя эту функцию, вывести пять чисел, для которых даны их двоичные представления.

Решение задачи, на языке: Паскаль

Param47. Описать функцию HexToDec($$S$$) целого типа, определяющую целое неотрицательное число по его строковому представлению $$S$$ в 16-ричной системе счисления. Параметр $$S$$ имеет строковый тип, состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей (за исключением значения «0»). Используя эту функцию, вывести пять чисел, для которых даны их 16-ричные представления.

Решение задачи, на языке: Паскаль

 

Файлы

Param48. Описать функцию IntFileSize($$S$$) целого типа, возвращающую количество элементов в файле целых чисел с именем $$S$$. Если файл не существует, то функция возвращает $$-1$$. С помощью этой функции найти количество элементов в трех файлах с данными именами.

Решение задачи, на языке: Паскаль

Param49. Описать функцию LineCount($$S$$) целого типа, возвращающую количество строк в текстовом файле с именем $$S$$. Если файл не существует, то функция возвращает $$-1$$. С помощью этой функции найти количество строк в трех файлах с данными именами.

Решение задачи, на языке: Паскаль

Param50. Описать процедуру InvertIntFile($$S$$), меняющую порядок следования элементов файла целого типа с именем $$S$$ на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами.

Решение задачи, на языке: Паскаль

Param51. Описать процедуру AddLineNumbers($$S$$, $$N$$, $$K$$, $$L$$), добавляющую в начало каждой строки существующего текстового файла с именем $$S$$ ее порядковый номер: первая строка получает номер $$N$$, вторая — $$N+1$$ и т. д. Номер отображается в $$K$$ позициях, выравнивается по правому краю и отделяется от последующего текста $$L$$ пробелами $$(K>0, L>0)$$. Если строка файла является пустой, то она также нумеруется, но пробелы после номера не добавляются. Применить эту процедуру к данному файлу, используя указанные значения $$N$$, $$K$$ и $$L$$.

Решение задачи, на языке: Паскаль

Param52. Описать процедуру RemoveLineNumbers($$S$$), удаляющую из начала каждой строки существующего текстового файла с именем $$S$$ ее порядковый номер, добавленный процедурой AddLineNumbers (см. задание Param51), а также пробелы, отделяющие номер от последующего текста. Если строки не содержат номеров, то процедура не выполняет никаких действий. Применить эту процедуру к файлу с данным именем.

Решение задачи, на языке: Паскаль

Param53. Описать процедуру SplitIntFile($$S_0$$, $$K$$, $$S_1$$, $$S_2$$), копирующую первые $$K$$ $$(\ge0)$$ элементов существующего файла целых чисел с именем $$S_0$$ в новый файл целых чисел с именем $$S_1$$, а остальные элементы — в новый файл целых чисел с именем $$S_2$$. Один из созданных файлов может остаться пустым. Применить эту процедуру к файлу с данным именем $$S_0$$, используя указанные значения $$K$$, $$S_1$$ и $$S_2$$.

Решение задачи, на языке: Паскаль

Param54. Описать процедуру SplitText($$S_0$$, $$K$$, $$S_1$$, $$S_2$$), копирующую первые $$K$$ $$(\ge0)$$ строк существующего текстового файла с именем $$S_0$$ в новый текстовый файл с именем $$S_1$$, $$A$$ остальные строки — в новый текстовый файл с именем $$S_2$$. Один из созданных файлов может остаться пустым. Применить эту процедуру к файлу с данным именем $$S_0$$, используя указанные значения $$K$$, $$S_1$$ и $$S_2$$.

Решение задачи, на языке: Паскаль

Param55. Описать процедуру StringFileToText($$S$$), преобразующую двоичный строковый файл с именем $$S$$ в текстовый файл с тем же именем. Используя эту процедуру, преобразовать два данных строковых файла с именами $$S_1$$ и $$S_2$$ в текстовые.

Решение задачи, на языке: Паскаль

Param56. Описать процедуру TextToStringFile($$S$$), преобразующую текстовый файл с именем $$S$$ в двоичный строковый файл с тем же именем. Используя эту процедуру, преобразовать два данных текстовых файла с именами $$S_1$$ и $$S_2$$ в строковые.

Решение задачи, на языке: Паскаль

Param57. Описать процедуру EN_CodeText($$S$$, $$K$$), которая шифрует текстовый файл с именем $$S$$, выполняя циклическую замену каждой русской буквы на букву того же регистра, расположенную в алфавите на $$K$$-й позиции после шифруемой буквы $$(0<K<10)$$. Например, при $$K=3$$ «А» перейдет в «Г», «я» — в «в». Букву «ё» в алфавите не учитывать, считая, что за буквой «е» сразу идет «ж». Символы, не являющиеся русскими буквами, при шифровании не изменять. Используя эту процедуру и зная кодовое смещение $$K$$, зашифровать файл с указанным именем.

Решение задачи, на языке: Паскаль

Param58. Описать процедуру DecodeText($$S$$, $$K$$), которая дешифрует текстовый файл с именем $$S$$, зашифрованный с использованием кодового смещения $$K$$ (способ шифрования описан в задании Param57). Используя эту процедуру и зная кодовое смещение $$K$$, расшифровать файл с указанным именем.

Решение задачи, на языке: Паскаль

 

Записи

При вводе и выводе каждой даты в заданиях Param59-Param63 вначале указывается день, затем номер месяца, затем год. При вводе каждой точки в заданиях Param64-Param70 вначале указывается ее абсцисса ($$x$$-координата), затем ее ордината ($$y$$-координата).

Param59. Описать тип TDate — запись с полями целого типа Day (день), Month (месяц) и Year (год) — и функцию LeaP_Year($$D$$) логического типа с параметром типа TDate, которая возвращает True, если год в дате $$D$$ является високосным, и False в противном случае. Вывести значение функции LeaP_Year для пяти данных дат (предполагается, что все даты являются правильными). Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на $$100$$ и не делятся на $$400$$.

Решение задачи, на языке: Паскаль

Param60. Используя тип TDate и функцию LeaP_Year (см. задание Param59), описать функцию DaysInMonth($$D$$) целого типа с параметром типа TDate, которая возвращает количество дней для месяца, указанного в дате $$D$$. Вывести значение функции DaysInMonth для пяти данных дат (предполагается, что все даты являются правильными).

Решение задачи, на языке: Паскаль

Param61. Используя тип TDate и функцию DaysInMonth (см. задания Param59 и Param60), описать функцию CheckDate($$D$$) целого типа с параметром типа TDate, которая проверяет правильность даты, указанной в параметре $$D$$. Если дата $$D$$ является правильной, то функция возвращает $$0$$; если в дате указан неверный номер месяца, то функция возвращает $$1$$; если в дате указан неверный день для данного месяца, то возвращается $$2$$. Вывести значение функции CheckDate для пяти данных дат.

Решение задачи, на языке: Паскаль

Param62. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру PrevDate ($$D$$) с параметром типа TDate, которая преобразует дату $$D$$ к предыдущей дате (если дата $$D$$ является неправильной, то она не изменяется). Запись $$D$$ является входным и выходным параметром. Применить процедуру PrevDate к пяти данным датам.

Решение задачи, на языке: Паскаль

Param63. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру NexTDate($$D$$) с параметром типа TDate, которая преобразует дату $$D$$ к следующей дате (если дата $$D$$ является неправильной, то она не изменяется). Запись $$D$$ является входным и выходным параметром. Применить процедуру NexTDate к пяти данным датам.

Решение задачи, на языке: Паскаль

Param64. Описать тип TPoint — запись с полями вещественного типа $$X$$ и $$Y$$ (координаты точки на плоскости) — и функцию Leng($$A$$, $$B$$) вещественного типа, находящую длину отрезка $$AB$$ на плоскости по координатам его концов: $$|AB|=\sqrt{(A.X-B.X)^2+(A.Y-B.Y)^2}$$ . ($$A$$ и $$B$$ — параметры типа TPoint). С помощью этой функции найти длины отрезков $$AB$$, $$AC$$, $$AD$$, если даны координаты точек $$A$$, $$B$$, $$C$$, $$D$$.

Решение задачи, на языке: Паскаль

Param65. Используя тип TPoint и функцию Leng (см. задание Param64), описать тип TTriangle — запись с полями $$A$$, $$B$$, $$C$$ типа TPoint (вершины треугольника) — и функцию Perim($$T$$) вещественного типа, находящую периметр треугольника $$T$$ ($$T$$ — параметр типа TTriangle). С помощью этой функции найти периметры треугольников $$ABC$$, $$ABD$$, $$ACD$$, если даны координаты точек $$A$$, $$B$$, $$C$$, $$D$$.

Решение задачи, на языке: Паскаль

Param66. Используя типы TPoint, TTriangle и функции Leng и Perim (см. задания Param64 и Param65), описать функцию Area($$T$$) вещественного типа, находящую площадь треугольника $$T$$ ($$T$$ — параметр типа TTriangle) по формуле Герона: $$S_{ABC}=\sqrt{p*(p-|AB|)*(p-|AC|)*(p-|BC|)}$$, где $$p$$ — полупериметр. С помощью этой функции найти площади треугольников $$ABC$$, $$ABD$$, $$ACD$$, если даны координаты точек $$A$$, $$B$$, $$C$$, $$D$$.

Решение задачи, на языке: Паскаль

Param67. Используя типы TPoint, TTriangle и функции Leng и Area (см. задания Param64-Param66), описать функцию Dist($$P$$, $$A$$, $$B$$) вещественного типа ($$P$$, $$A$$, $$B$$ — параметры типа TPoint), находящую расстояние $$D(P, AB)$$ от точки $$P$$ до прямой $$AB$$ по формуле $$D(P, AB)=2*S_{PAB}/|AB|$$, где $$S_PAB$$ — площадь треугольника $$PAB$$. С помощью этой функции найти расстояния от точки $$P$$ до прямых $$AB$$, $$AC$$, $$BC$$, если даны координаты точек $$P$$, $$A$$, $$B$$, $$C$$.

Решение задачи, на языке: Паскаль

Param68. Используя типы TPoint, TTriangle и функцию Dist (см. задания Param64, Param65, Param67), описать процедуру Heights($$T$$, $$h_1$$, $$h_2$$, $$h_3$$), находящую высоты $$h_1$$, $$h_2$$, $$h_3$$ треугольника $$T$$ ($$T$$ — входной параметр типа TTriangle, $$h_1$$, $$h_2$$, $$h_3$$ — выходные вещественные параметры), проведенные соответственно из вершин $$T.A$$, $$T.B$$, $$T.C$$. С помощью этой процедуры найти высоты треугольников $$ABC$$, $$ABD$$, $$ACD$$, если даны координаты точек $$A$$, $$B$$, $$C$$, $$D$$.

Решение задачи, на языке: Паскаль

Param69. Используя тип TPoint и функцию Leng (см. задание Param64), описать функцию PerimN($$P$$, $$N$$) вещественного типа, находящую периметр N-угольника, вершины которого (в порядке их обхода) передаются в массиве $$p$$ размера $$N$$ $$(>2)$$ с элементами типа TPoint. С помощью этой функции найти периметры трех многоугольников, если дано число их сторон и координаты их вершин.

Решение задачи, на языке: Паскаль

Param70. Используя типы TPoint, TTriangle и функцию Area (см. задания Param64-Param66), описать функцию AreaN($$P$$, $$N$$) вещественного типа, находящую площадь выпуклого N-угольника, вершины которого (в порядке их обхода) передаются в массиве $$p$$ размера $$N$$ $$(>2)$$ с элементами типа TPoint. С помощью этой функции найти площади трех многоугольников, если дано число их сторон и координаты их вершин.

Решение задачи, на языке: Паскаль

 

Если вы хотите выложить решение для задач, но нет решения на нужном языке, или вообще к задаче нет решений. Можете разместить его в виде комментария к данной статье.

Другие задачи по программированию, для проверки своих знаний.