Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 1
Регистрация: 02.11.2014
Сообщений: 64
1

Из нечетных элементов двух стеков с упорядоченными элементами создать новый стек с упорядоченными элементам

28.09.2015, 21:34. Показов 955. Ответов 3
Метки нет (Все метки)

Из нечетных элементов двух стеков с упорядоченными элементами создать новый стек с упорядоченными элементами, не удаляя исходные стеки (создавать копии элементов). Есть код, но сказали немного подправить.

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
program gold;
 
uses
  crt;
 
type
  Tptr = ^Telem;{указательный тип данных на элемент Стека}
  
  Telem = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr;    {указательное поле - ссылка на следующий элемент Стека}
  end;
  Tptr2 = ^Telem2;
  Telem2 = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr2;    {указательное поле - ссылка на следующий элемент Стека}
  end;
  Tptr3 = ^Telem3;
  Telem3 = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr3;    {указательное поле - ссылка на следующий элемент Стека}
  end;
 
var
  top: Tptr;
  top2: Tptr2;
  top3: Tptr3;  {глобальная переменная - указатель на вершину Стека}
  m: byte;
  lg: boolean;
  {Процедура: добавление элемента в вершину Стека}
{---------------------------------------------------------------------------}
procedure push;
var
  p: Tptr;{вспомогательный указатель, ссылающийся на добавляемый элемент}
i:integer;
begin
  new(p); {выделение памяти под добавляемый элемент}
  
  p^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
  
  write('Введите значение добавляемого элемента: '); {ввод значения информационного поля элемента с клавиатуры}
  
  readln(i); {указатель добавляемого элемента поставили на первый элемент Стека}
  if i mod 2 = 0 then
  begin
    p^.inf := i;
  end;
  p^.link := top; {указатель на вершину Стека top поставили на только что добавленный элемент.
  В итоге, Стек находится в согласованном состоянии после добавления элемента}
  top := p;
end;
{Процедура: печать элементов Стека от вершины в конец}
{---------------------------------------------------------------------------}
procedure printFromTop;
var
  p: Tptr;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure check(s: integer);
begin
  lg := false;
  case m of
    65..90, 97..122: lg := true;
  end; end;
 
procedure sozdanie1;
var
  p: Tptr;
  p2: Tptr2;
  p3: Tptr3;
  integer: integer;
begin
  p := top;
  while(p <> nil) do
  begin
    m := ord(p^.inf);
    check(m);
    if lg = true then
    begin
      new(p2); {выделение памяти под добавляемый элемент}
      
      p2^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
      integer := p^.inf;
      p2^.inf := integer;
      
      p2^.link := top2; {указатель на вершину Стека top поставили на только что добавленный элемент.
      В итоге, Стек находится в согласованном состоянии после добавления элемента}
      top2 := p2;
    end
        else
    begin
      new(p3); {выделение памяти под добавляемый элемент}
      
      p3^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
      integer := p^.inf;
      p3^.inf := integer;
      
      p3^.link := top3; {указатель на вершину Стека top поставили на только что добавленный элемент.
      В итоге, Стек находится в согласованном состоянии после добавления элемента}
      top3 := p3;
    end;
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure printFromTop2;
var
  p: Tptr2;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top2; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure printFromTop3;
var
  p: Tptr3;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top3; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
////////////////////////////////////////////////////////////////////////
var
  i: integer;
 
begin
  i := 0;
  repeat
    push; {вставка элемента в вершину Стека}
    
    
    
    i := i + 1;
  until (i = 10);
  writeln; {оповещение пользователя об успешном завершении операции}
  writeln('Добавление новых элементов успешно проведено!');
  if(top = nil) then {если в Стеке нет элементов, то вызываем диалог для пользователя}
    write('Печать элементов невозможна, так как Стек пуст!')
  else
    printFromTop; {печать элементов Стека от вершины вниз}
  sozdanie1;
  writeln;
  writeln('Первый Стэк');
  printFromTop2;
  writeln;
  writeln('Второй Стэк ');
  printFromTop3;
  
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2015, 21:34
Ответы с готовыми решениями:

Из двух стеков, хранящих слова, создать новый стек элементов, у которых первая и последняя буква совпадают
Из двух стеков, хранящих слова, создать новый стек, у которых первая и последняя буква совпадают....

Из двух стеков с целыми числами создать новый стек из элементов первого стека, которых нет во втором
Здравствуйте. Помогите пожалуйста написать код теме: Реализация стека и основных алгоритмов его...

Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека, которые есть и в первом
Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека,...

Переливание нечётных элементов из двух стеков в стек
У нас есть два стека, получаемых из файлов (Stack1.bat и Stack2.bat), нужно перелить нечётные...

3
4342 / 2110 / 2115
Регистрация: 10.12.2014
Сообщений: 8,133
01.10.2015, 11:29 2
Проще заново написать, чем использовать данную галиматью!
А в задании не понятно вот это: «… стеков с упорядоченными элементами, не удаляя исходные стеки …»

В стеках не может быть упорядоченных элементов. Как вы себе представляете стек?
Я себе представляю так:

— появляются данные — данные заносятся в вершину стека — операция PUSH
/без всяких там упорядочиваний и прочих вещей, которые свойственны спискам/

— нужны данные из стека — данные берутся из вершины стека и вершина стека удаляется — операция POP

Вот и все операции, которые должны быть определены со стеком!
Даже типа «вывести элементы стека» — это уже что-то „от лукавого“!
0
0 / 0 / 0
Регистрация: 28.05.2019
Сообщений: 9
10.05.2020, 22:36 3
JuriiMW галиматьей код чужой называть не предлагая своего? Забавно даже, это вы наверное еще из разряда тех кто не пишет просто так идите фриланс, да? Смех да и только.
0
4342 / 2110 / 2115
Регистрация: 10.12.2014
Сообщений: 8,133
11.05.2020, 04:23 4
Voran4ik, я не стал предлагать в данной теме свой код, т.к. для ТС было задано несколько вопросов.
На которые он благополучно не ответил!
Цитата Сообщение от Voran4ik Посмотреть сообщение
это вы наверное еще из разряда
А вот на личности переходить не нужно!
Особенно, если вы даже не можете в своих темах самостоятельно код выделить…
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2020, 04:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Из двух стеков с упорядоченными по возрастанию элементами создать новый стек с упорядоченными элементами, не удаляя исходные стеки
Из двух стеков равной длины с вещественными числами создать 1 стек с квадратами значений элементов...

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

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

Создать однонаправленный список с упорядоченными по возрастанию элементами
Fisierul text INPUT.TXT contine pe fiecareb linie cite un numar real. Scrieti un program, fara a...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.