Динамические переменные, указатели. Обработка списков при помощи указателей (Pascal, Паскаль)

Лабораторная работа на языке Паскаль(отчет + программа).
Задача1
1) const d=… {длина строки}
n=… {максимальное число строк}
type filestring=string[d];
pfilestring=^filestring;
txt=array[1..n] of pfilestring;
Используя данное представление текста, написать программу для подсчета числа строк в тексте text, число слов в которых меньше либо равно 3.

Задача 2
В стеке из элементов типа Integer удалить все элементы, превышающее среднее арифметическое элементов этого списка.
...

Цель работы.
Задача1.
Постановка задачи.
Алгоритм решения поставленной задачи.
Текст программы (Turbo Pascal 7.0).
Тестирование программы.
Задача 2.
Постановка задачи.
Алгоритм решения поставленной задачи.
Текст программы (Turbo Pascal 7.0).
Тестирование программы.
Вывод.

Цель работы:
Получение навыков обработки информации с использованием динамических переменных, указателей, списков различной структуры.

text=array[1..n] of pfilestring;
Используя данное представление текста, написать программу для удаления из текста Т всех пробелов, заменяя при этом последующую букву на заглавную.
2) В стеке из элементов типа Integer удалить n первых элементов.
11
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, получить новую матрицу умножением элементов каждой строки матрицы на наибольшее из значений элементов соответствующей строки.
2) Подсчитывает количество слов в кольцевом списке из элементов типа String, начинающихся на тот же символ, что и следующее слово.
12
1) type Pvector=^real;
Vector=array [1..5,1..8] of Pvector;
Используя данное представление, удалить среднюю строку и поменять местами средние строки массива.
2) Задан линейный однонаправленный список из элементов типа Real. Вставить в список элемент Е1 за каждым вхождением элемента Е2.
13
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, поменять местами строки матрицы так, чтобы их максимальные элементы образовывали возрастающую последовательность.
2) Задан линейный однонаправленный список из элементов типа Real. Удалить элемент, встречающийся наибольшее количество раз.
14
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0.
2) Задан линейный однонаправленный список из элементов типа Real. Построить два новых списка: Ll-из положительных элементов и L2-из остальных элементов списка L.
15
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, после каждого столбца, содержащего только положительные элементы, добавить столбец, состоящий из единиц.
2) Заданы линейные однонаправленные списки L1 и L2 из элементов типа byte. Проверить наличие в исходных списках одинаковых элементов.
16
1) Заменить строку матрицы Р(n,m) с максимальной суммой элементов на первую строку поэлементно. Решить задачу с использованием динамических массивов.
2) Задан линейный однонаправленный список из элементов типа Real. Написать программу для циклического сдвига списка вправо на заданное число элементов. Например: список [6, 5, 4, 3, 2, 1], циклически сдвинутый вправо на 2 элемента, преобразуется в список [2, 1, 6, 5, 4, 3].
17
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, найти сумму элементов массива, расположенных между первым и последним нулевыми элементами.
2) Дано число K> 0 и  непустой линейный однонаправленный спискок из элементов типа byte. Переместить в списке данный элемент А на K позиций вперед (если после данного элемента находится менее K элементов, то переместить его в конец списка).
18
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями.
2) Дан непустой линейный однонаправленный спискок из элементов типа byte. Написать программу для реверса списка. Например: список [1, 2, 3] преобразуется в список [3, 2, 1].
19
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы, а потом — все отрицательные (элементы, равные нулю, считать положительными).
2) Даны два непустых стека из элементов типа byte. Организовать перемещение элементов из первого стека во второй, пока значение вершины первого стека не станет четным (перемещенные элементы первого стека будут располагаться во втором стеке в порядке, обратном исходному). Если в первом стеке нет элементов с четными значениями, то переместить из первого стека во второй все элементы (если первый стек окажется пустым, то вывести для него константу nil).
20
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, найти сумму элементов в тех строках, которые содержат хотя бы один отри­цательный элемент.
2) Дан непустой стек из элементов типа byte. Создать два новых стека, переместив в первый из них все элементы исходного стека с четными значениями, а во второй — с нечетными (элементы в новых стеках будут располагаться в порядке, обратном исходному; один из этих стеков может оказаться пустым, для пустого стека вывести nil).
21
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, подсчитать количество локальных минимумов заданной матрицы (элемент матрицы называется локальным минимумом, если он строго меньше всех имеющихся у него соседей).
2) Дан набор из 10 чисел. Создать две очереди: первая должна содержать числа из исходного набора с нечетными номерами (1, 3, …, 9), а вторая — с четными (2, 4, …, 10); порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе.
22
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление,
2) Дан набор из 10 чисел. Создать две очереди: первая должна содержать все нечетные, а вторая — все четные числа из исходного набора (порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе).
23
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями.
2) Дано число N> 0 и две непустые очереди. Переместить N начальных элементов первой очереди в конец второй очереди. Если первая очередь содержит менее N элементов, то переместить из первой очереди во вторую все элементы.
24
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, проверить, является ли данная матрица единичной.
2) Даны две непустые очереди из элементов типа byte. Очереди содержат одинаковое количество элементов. Объединить очереди в одну, в которой элементы исходных очередей чередуются (начиная с первого элемента первой очереди).
25
1) type Pvector=^real;
Vector=array [1..20,1..20] of Pvector;
Используя данное представление, повернуть ее на 90 и 180 градусов в положительном направлении.
2) Даны две непустые очереди из элементов типа byte. Элементы каждой из очередей упорядочены по возрастанию (в направлении от начала очереди к концу). Объединить очереди в одну с сохранением упорядоченности элементов.
26
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях.
2) Даны два непустых двусвязных списка из элементов типа byte. Объединить исходные списки, поместив все элементы первого списка (в том же порядке) после данного элемента А второго списка.
27
1) type Pvector=^real;
Vector=array [1..100] of Pvector;
Используя данное представление, Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.
2) Дан непустой линейный однонаправленный спискок из элементов типа byte. Преобразовать список в циклический, записав в поле Next последнего элемента списка адрес его первого элемента, а в поле Prev первого элемента — адрес последнего элемента.
28
1) Задан файл веществееных чисел объемом более 64Кб. Необходимо считать элементы в один динамический массив и произвести его сортировку по возрастанию.
2) Дано число K> 0 и непустой линейный однонаправленный спискок из элементов типа byte. Осуществить циклический сдвиг элементов списка на K позиций вперед (то есть в направлении от начала к концу списка). Для выполнения циклического сдвига преобразовать исходный список в циклический после чего «разорвать» его в позиции, соответствующей данному значению K.
29
1) const d=… {длина строки}
n=… {максимальное число строк}
type filestring=string[d];
pfilestring=^filestring;
text=array[1..n] of pfilestring;
Используя данное представление текста, написать программу использующую логиче­скую функцию searchlit(T, с, i, j), определяющую входит ли литера с в текст Т, и, если входит, присваивающую параметрам i и j "координаты" первого вхождения этой литеры: i-номер строки, j-номер позиции в этой строке.