Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
7 / 7 / 0
Регистрация: 08.04.2011
Сообщений: 79
1

Создать СТЕК

28.10.2011, 14:32. Показов 649. Ответов 1
Метки нет (Все метки)

Сделать стек с помощью массива. Необходимо удаление, добавление и поиск элементов в этом стеке. На эти процедуры сделать меню.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses crt;
type
ukazatel = ^S;
S=record
next:ukazatel;
inf:integer;
end;
var
stek: array [1..50] of integer;
head: ukazatel;
 
Procedure init (Var u:ukazatel; n:integer);
var vsp: ukazatel;
i:integer;
begin
if n>0 then
for i:=1 to n do
if u<>nil then begin
new(vsp);
writeln('Vvedite chislo');
readln (vsp^.inf);
vsp^.Next:=u;
u:=vsp;
end else
begin
new(u);
readln (u^.inf);
u^.next:=nil;
end;
end;
 
Procedure Del (Var u:ukazatel);
Var Vsp:ukazatel;
begin
if u<>nil then begin
vsp:=u;
u:=u^.next;
dispose(vsp);
end;
end;
 
Procedure Print (p:ukazatel);
begin
while p<> nil do
begin
write (p^.inf:10,'');
p:=p^.next;
end;
end;
 
 
begin
clrscr;
writeln('1- print');
writeln('2- del');
writeln('3- poisk');
writeln('4 - exit');
init(head,6);
print(head);
del(head);
writeln;
readkey;
end.
что-то пыталась сделать, но по-моему совсем не то...помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2011, 14:32
Ответы с готовыми решениями:

создать стек,заполнив числами 1,2,3...n.Посмотреть его содержимое,удалить стек
Всем привет!помогите,пожалуйста!!! создать стек,заполнив числами 1,2,3...n.Посмотреть его...

Стек. Создать случайно генерированный стек и поменять местами первый элемент с i
Как создать случайно генерированный стек (тип элементов CHAR) и поменять местами первый элемент с i...

Создать стек
Дано число N (N&gt; 0) и набор из N чисел. Создать стек, содержащий исходные числа (последнее число...

Создать стек
Создать стек и удалить из него все нечетные элементы

1
7 / 7 / 0
Регистрация: 08.04.2011
Сообщений: 79
29.10.2011, 20:53  [ТС] 2
пока никто не знает как делать...(((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2011, 20:53

Создать односвязный список типа стек, произвести удаление и добавление элемента
Создать односвязный список типа стек. Заменить последний элемент на другой вводимый с ...

Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека
Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека....

Создать процедуру, которая добавляет элемент в стек или вычитает его из стека
Подскажите пожалуйста, как написать вот такую программу: На базе односвязного списка создать стек....

Используя стек создать другой файл в котором строки были бы записаны в обратном порядке
создать текстовый файл содержащий некоторую информацию . Используя стек создать другой файл в...

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

Создать стек. За каждой буквой включить цифру, все символы, не относящиеся к буквам и цифрам удалить
Создать стек, распечатать. За каждой буквой включить цифру (начиная с 5 (после 9 &gt; 5)), все...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru