Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 23

Сравнение содержимого стеков после сортировки

21.12.2017, 12:27. Показов 519. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно сравнить элементы "Содержимое 1 стека после сортировки" и "Содержимое 2 стека после сортировки:" и записать то что получилось при сравнении в новый ---> 3 стек
Например
Содержимое 1 стека после сортировки:
2,4,9,28...
Содержимое 2 стека после сортировки:
8,10,17,34....
Стек 3:
2,4,8,9,10,17,28,34

Программа которая есть у меня:


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
program Project1;
 
const
  //Глубина стека. Т. е. максимальное количество элементов,
  //которое может поместиться в стек.
  StSizeMax = 30;
 
type
  //Тип, описывающий стек.
  TStack = record
    //Указатель вершины стека. Это индекс последнего добавленного элемента.
    Pnt : Integer;
    //Контейнер данных стека.
    Data : array[1..StSizeMax] of Integer;
  end;
 
//Добавить в стек элемент.
function StackPush(var aStack : TStack; const aNum : Integer) : Boolean;
begin
  StackPush := False;
  with aStack do begin
    if Pnt < High(Data) then begin
      //Индекс добавляемого элемента.
      Inc(Pnt);
      //Добавляем элемент в массив (т. е. в стек).
      Data[Pnt] := aNum;
      StackPush := True;
    end;
  end;
end;
 
//Взять из стека элемент.
function StackPop(var aStack : TStack; var aNum : Integer) : Boolean;
begin
  StackPop := False;
  with aStack do begin
    if Pnt >= Low(Data) then begin
      aNum := Data[Pnt];
      Dec(Pnt);
      StackPop := True;
    end;
  end;
end;
 
const
  //Будем работать с M элементами стеков.
  M = 10;
 
var
  St1, St2,St3,St4 : TStack;
  i, j, k, Num1, Num2,Num3,Num4 : Integer;
  F : Boolean;
begin
  St1.Pnt := 0;
  St2.Pnt := 0;
  Randomize;
  for i := 1 to M do StackPush(St1, Random(20)); //StackPush(St1, i);
  Writeln('Содержимое первого стека:');
  while StackPop(St1, Num1) do begin
    StackPush(St2, Num1);
    Write(Num1:4);
  end;
  while StackPop(St2, Num1) do StackPush(St1, Num1);
  //Метод сортировки - пузырьковая.
  j := M;
  repeat
    F := False;
    Dec(j);
    StackPop(St1, Num1);
    for k := 1 to j do begin
      StackPop(St1, Num2);
      if Num1 <= Num2 then begin
        StackPush(St2, Num1);
        Num1 := Num2;
      end else begin
        StackPush(St2, Num2);
        F := True;
      end;
    end;
    StackPush(St1, Num1);
    while StackPop(St2, Num1) do StackPush(St1, Num1);
  until not F;
  writeln;
  Write('Содержимое 1 стека после сортировки:');
  writeln;
  while StackPop(St1, Num1) do 
  Write(Num1:4);
begin
  St3.Pnt := 0;
  St4.Pnt := 0;
  for i := 1 to M do StackPush(St3, Random(20)); //StackPush(St1, i);
  writeln;
  Writeln('Содержимое 2 стека:');
  while StackPop(St3, Num3) do begin
    StackPush(St4, Num3);
    Write(Num3:4);
  end;
  while StackPop(St4, Num3) do StackPush(St3, Num3);
  //Метод сортировки - пузырьковая.
  j := M;
  repeat
    F := False;
    Dec(j);
    StackPop(St3, Num3);
    for k := 1 to j do begin
      StackPop(St3, Num4);
      if Num3<= Num4 then begin
        StackPush(St4, Num3);
        Num3 := Num4;
      end else begin
        StackPush(St4, Num4);
        F := True;
      end;
    end;
    StackPush(St3, Num3);
    while StackPop(St4, Num3) do 
    StackPush(St3, Num3);
  until not F;
  writeln;
  Write('Содержимое 2 стека после сортировки:');
  writeln;
  while StackPop(St3, Num3) do Write(Num3:4);
end;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.12.2017, 12:27
Ответы с готовыми решениями:

Лексикографическое сравнение стеков
Здравсвуйте помогите пожалуйста исправить ошибки. Первый вариант тот который не работает правильно второй делает всё без ошибок. ...

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

Сравнение двух стеков (Equal)
Нужно осуществить проверку равенства (Equal) двух стеков. Осуществил проверку подобия (Similar),а сравнение не выходит что-то...Заранее...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2017, 12:27
Помогаю со студенческими работами здесь

С помощью стеков найти сумму всех произведений чисел, взятых по одному из третьего и четвертого стеков
даны 4 стека. Два первых стека пусты, а в 2-х других находятся натуральные числа, причем, количество чисел в них одно и то же. С помощью...

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

Сравнение содержимого TCanvas
Подскажите, в Delphi для сравнения TCanvas (вообщето внутри TBitmap и TPicture) есть ли более оптимальные методы, чем по-пиксельное...

Сравнение содержимого StringBuilder
В Яве я сам довольно давно, около 8 месяцев, до этого занимался программированием лет 6, но сейчас не об этом. Я пишу несколько...

Сравнение содержимого указателей
В строке while ( helpspec -&gt; namespec != temp -&gt; namespec ){…} выражение ( helpspec -&gt; namespec != temp -&gt; namespec ) дает...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru