Стеки

19.03.2014, 15:45. Показов 947. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Помогите решить задачу.
Дан указатель P1 на вершину стека, содержащего не менее десяти элементов. Извлечь из стека первые девять элементов и вывести их значения. Вывести также адрес новой вершины стека. После извлечения элементов из стека освобождать память, которую они занимали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program lab12;
uses
crt;
type
pitem=^item; 
item=record 
data:integer;
next:pitem;
end;
var
head, p:pitem; 
i:integer;
 
 
//Процедура записи в стек
procedure add(x:integer);
begin
new(p);
p^.data:=x;
p^.next:=head;
head:=p;
end;
 
//Процедура вывода на экран
procedure writestack;
begin
p:=head; 
while p<>nil do 
begin
write(p^.data:4); 
p:=p^.next; 
end;
writeln;
end;
 
// Основной код
begin 
head:=nil; 
for i:=1 to 10 do
add(random(15)); 
p:=head;
writestack; 
writeln;
writeln('Адрес вершины = ',p);
writeln('Значение вершины = ',p^.data);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

19.03.2014, 15:45

Ответы с готовыми решениями:

Стеки
Создать динамические структуры – основной стек, содержащий максимально 25 вещественных элементов и стек удаленных элементов, содержащий...

Списки, стеки, макмальный и минимальный элемент
Написать программу, которая: 1. Читает последовательность чисел с клавиатуры и формирует связанный список. 2. Печатает эту...

Стеки, очереди, деки как прописываются в var и type
Стеки, очереди, деки как прописываются в var и type. срочно нужно

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

19.03.2014, 15:45

Помогаю со студенческими работами здесь

Стеки
даны три стека, в каждом из которых находится по 10 различных чисел. Найти в первом стеке максимальное число, во втором- наименьшее...

Стеки
Помогите плиз.... решить задачу! Дана строка S из элементов которой, стоящих на четных местах, сформирован стек элементов символьного...

Программа на стеки
Здравствуйте уважаемые програмисты. Прошу вас, помогоите написать прогу, которая делает следующее: Если четыре точки A, B, C и D,...

стеки в паскали
как создать стек на паскале?

стеки, деки, очереди
Всем привет! Mне нужно найти много примеры для стека, дека и очереди чтобы хорошо изучать их в паскале. Заранее всем спасибо :)

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Наверх