Работа со стеком(Delphi)
Добавлено: 12 апр 2008, 04:11
1. Для стека описать следующие процедуры или функции:
• Создание пустого стека S (очистка стека);
• Добавление в стек S элемента x (instack(S ,x));
• Удаление из стека S элемента c присвоением его значения параметру x
outstack(S ,x)).
Если операция по каким-либо причинам не может быть выполнена, следует вызвать
некоторую процедуру Error(k), где k – номер ошибки: 1 – переполнение стека, 2 –
исчерпание стека.
2. В списке целых чисел удалить из каждой группы подряд идущих одинаковых элементов все, кроме одного.
3. Дан файл f, компонентами которого являются целые числа. Получить в файле g все положительные числа, входящие в файл f. Числа в файле g должны следовать в порядке убывания, без повторений.
• Создание пустого стека S (очистка стека);
• Добавление в стек S элемента x (instack(S ,x));
• Удаление из стека S элемента c присвоением его значения параметру x
outstack(S ,x)).
Если операция по каким-либо причинам не может быть выполнена, следует вызвать
некоторую процедуру Error(k), где k – номер ошибки: 1 – переполнение стека, 2 –
исчерпание стека.
2. В списке целых чисел удалить из каждой группы подряд идущих одинаковых элементов все, кроме одного.
3. Дан файл f, компонентами которого являются целые числа. Получить в файле g все положительные числа, входящие в файл f. Числа в файле g должны следовать в порядке убывания, без повторений.