Pointer27. Даны указатели $$P_1$$ и $$P_2$$ на начало и конец очереди, содержащей не менее пяти элементов. Используя тип TQueue (см. задание Pointer26), описать функцию Dequeue(Q) целого типа, которая извлекает из очереди первый (начальный) элемент, возвращает его значение и освобождает память, занимаемую извлеченным элементом ($$Q$$ — входной и выходной параметр типа TQueue). С помощью функции Dequeue …
Записи с меткой «Паскаль»
Решаем задачи Абрамян на Паскале. Param54
Param54. Описать процедуру SplitText($$S_0$$, $$K$$, $$S_1$$, $$S_2$$), копирующую первые $$K$$ $$(\ge0)$$ строк существующего текстового файла с именем $$S_0$$ в новый текстовый файл с именем $$S_1$$, $$A$$ остальные строки — в новый текстовый файл с именем $$S_2$$. Один из созданных файлов может остаться пустым. Применить эту процедуру к файлу с данным именем $$S_0$$, используя указанные значения …
Решаем задачи Абрамян на Паскале. Param53
Param53. Описать процедуру SplitIntFile($$S_0$$, $$K$$, $$S_1$$, $$S_2$$), копирующую первые $$K$$ $$(\ge0)$$ элементов существующего файла целых чисел с именем $$S_0$$ в новый файл целых чисел с именем $$S_1$$, а остальные элементы — в новый файл целых чисел с именем $$S_2$$. Один из созданных файлов может остаться пустым. Применить эту процедуру к файлу с данным именем $$S_0$$, …
Решаем задачи Абрамян на Паскале. Pointer26
Pointer26. Даны указатели $$P_1$$ и $$P_2$$ на начало и конец очереди (если очередь является пустой, то $$P_1=P_2=nil$$). Также дано число $$N$$ $$(>0)$$ и набор из $$N$$ чисел. Описать тип TQueue — запись с двумя полями типа PNode: Head (начало очереди) и Tail (конец очереди) — и процедуру Enqueue($$Q$$, $$D$$), которая добавляет в конец очереди $$Q$$ …
Решаем задачи Абрамян на Паскале. Param52
Param52. Описать процедуру RemoveLineNumbers($$S$$), удаляющую из начала каждой строки существующего текстового файла с именем $$S$$ ее порядковый номер, добавленный процедурой AddLineNumbers (см. задание Param51), а также пробелы, отделяющие номер от последующего текста. Если строки не содержат номеров, то процедура не выполняет никаких действий. Применить эту процедуру к файлу с данным именем.
Решаем задачи Абрамян на Паскале. Pointer25
Pointer25. Даны две непустые очереди; адреса начала и конца первой равны $$P_1$$ и $$P_2$$, а второй — $$P_3$$ и $$P_4$$. Элементы каждой из очередей упорядочены по возрастанию (в направлении от начала очереди к концу). Объединить очереди в одну с сохранением упорядоченности элементов. Вывести указатели на начало и конец полученной очереди. Операции выделения и освобождения памяти …
Решаем задачи Абрамян на Паскале. Param51
Param51. Описать процедуру AddLineNumbers($$S$$, $$N$$, $$K$$, $$L$$), добавляющую в начало каждой строки существующего текстового файла с именем $$S$$ ее порядковый номер: первая строка получает номер $$N$$, вторая — $$N+1$$ и т. д. Номер отображается в $$K$$ позициях, выравнивается по правому краю и отделяется от последующего текста $$L$$ пробелами $$(K>0, L>0)$$. Если строка файла является пустой, …
Решаем задачи Абрамян на Паскале. Pointer24
Pointer24. Даны две непустые очереди; адреса начала и конца первой равны $$P_1$$ и $$P_2$$, а второй — $$P_3$$ и $$P_4$$. Очереди содержат одинаковое количество элементов. Объединить очереди в одну, в которой элементы исходных очередей чередуются (начиная с первого элемента первой очереди). Вывести указатели на начало и конец полученной очереди. Операции выделения и освобождения памяти не …
Решаем задачи Абрамян на Паскале. Param50
Param50. Описать процедуру InvertIntFile($$S$$), меняющую порядок следования элементов файла целого типа с именем $$S$$ на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами.
Решаем задачи Абрамян на Паскале. Pointer23
Pointer23. Даны две непустые очереди; адреса начала и конца первой равны $$P_1$$ и $$P_2$$, а второй — $$P_3$$ и $$P_4$$. Перемещать элементы из начала первой очереди в конец второй, пока значение начального элемента первой очереди не станет четным (если первая очередь не содержит четных элементов, то переместить из первой очереди во вторую все элементы). Вывести …