5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
1

Работа со стеком

20.12.2009, 15:54. Показов 3103. Ответов 4
Метки нет (Все метки)

Доброго времени суток. Мне нужно создать стек и вывести его на экран. Или что-то с вводом или выводом, не пойму никак.
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
uses crt;
type
 point=^rec;
 rec=record
      ch:char;
      p:point;
     end;
var
 top,p:point;
 menu:byte;
procedure create (var top:point);
 var
  p:point;
  sim:char;
 begin
  new(top); 
  p:=top;
  p^.p:=nil;
  read(sim);
  while sim <> '.' do
   begin
    new(p^.p);
    p:=p^.p;
    p^.ch:=sim;
    p^.p:=nil;
    read(sim);
   end;
 end;
procedure print (top:point);
 var
  p:point;
 begin
  writeln;
  while top^.p <> nil do
   begin
    top:=top^.p;
    write(top^.ch);
   end;
  end;
{начало основной программы}
begin
 while true do
  begin
   clrscr;
   write('Введите ');
   readln(menu);
   case menu of
    1: create(top);
    2: print(top);
    3: exit;
   end;
   end;
 end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2009, 15:54
Ответы с готовыми решениями:

работа со стеком
uses crt; type str=string; uk_stack=^stack; stack=record inf:str; nevt:uk_stack; end; var...

Pascal работа с файлами и стеком. Требуется грамотный совет
Собственно задача с олимпиады Определим правильные скобочные выражения так: Пустое выражение -...

Работа со Стеком
Создать список из целых чисел. Заменить каждую последовательность повторяющихся элементов на один...

работа со стеком
Помогите пожалуста!!!!!Вот такое задание: 1.На языке программирования Pascal реализовать процедуры...

4
93 / 26 / 1
Регистрация: 19.05.2009
Сообщений: 138
20.12.2009, 16:34 2
oinari

сдается мне что ты совсем позабыл об инициализации стека
а ведь стек - это динамическая структура данных
следовательно сначала нужно создать пустой стек, чтобы в него потом заталкивать твои char
0
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
20.12.2009, 17:58  [ТС] 3
diliana, ммм... глупый вопрос, но всё же как это сделать?
0
93 / 26 / 1
Регистрация: 19.05.2009
Сообщений: 138
20.12.2009, 19:19 4
указателю вершины стека присваиваешь значение NIL
0
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
21.12.2009, 04:47 5
oinari, пример есть тут https://www.cyberforum.ru/pascal/thread77419.html
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2009, 04:47
Помогаю со студенческими работами здесь

Работа со стеком
Заполнить стек значениями произвольно выбранного типа. Вставить символ '*' в середину стека, если...

Паскаль, работа со стеком
Доброго времени суток, уважаемые формучане! Мне задали следующее задание на Паскале, но дальше...

Работа со стеком на последовательном распределении памяти
1. Создание пустого стека 2. Добавление элемента на вершину стека 3. Удаление элемента с...

Работа со стеком
Помогите разобраться, почему при выполнении выводится пустая строка? program lab4; const n = 2;...


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

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

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