Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
rostikowb
0 / 0 / 0
Регистрация: 23.11.2014
Сообщений: 23
#1

Написать программу "Железнодорожный сортировочный узел" - C++

14.05.2015, 20:26. Просмотров 572. Ответов 2
Метки нет (Все метки)

Железнодорожный сортировочный узел устроен так , как показано на рисунке ссылка удалена. На правой стороне собрано в произвольном порядке несколько вагонов обоих типов по N штук. Тупик может вместить все 2N вагонов. Пользуясь тремя сортировочными операциями : В , С , МИМО , собрать вагоны на левой стороне так , чтобы типы чередовались . Для решения задачи достаточно 3N -1 сортировочных операций . По запросу пользователя программа должна продемонстрировать правильную сортировку вагонов.

P.s. Возможно слишком дерзко с моей стороны просить вас написать программу, но скоро сессия а я весь семестр ничего не делал, и теперь не успеваю. Помогите кому не сложно. Заранее спасибо.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2015, 20:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать программу "Железнодорожный сортировочный узел" (C++):

Железнодорожный сортировочный узел C++
Железнодорожный сортировочный узел устроен так, как показано на ри-сунке. На...

Задача "Железнодорожный узел"
Железнодорожный сортировочный узел устроен так, как показано на ри-сунке. На...

Написать программу которaя запрашиваeт у пользователя номер дня недели, затем выводит одно из сообщений "рабочий день", "суббота", "воскресенье"
Добрый день необходимо написать несколько программ, кто может помогите. ...

Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день","Суббота" или "Воскресенье"
Написать программу, которая запрашивает у пользователя номер дня недели и...

Классы "Бинарное дерево" и "Узел" в одном приложении
Компилятор разбушевался((( Пробовала сделать вместо одного класса два...

Написать программу, которая заменяет в указанном слове все буквы "b" на сочетание "ky"
Написать программу, которая заменяет в указанном слове все буквы "b" на...

2
_Valera_
489 / 371 / 136
Регистрация: 27.01.2015
Сообщений: 1,588
14.05.2015, 22:32 #2
Тупик - это стек, а там некое условие для добавления и получения элемента.

Цитата Сообщение от rostikowb Посмотреть сообщение
Возможно слишком дерзко с моей стороны просить вас написать программу
Это точно!

Цитата Сообщение от rostikowb Посмотреть сообщение
но скоро сессия
У меня тоже

Цитата Сообщение от rostikowb Посмотреть сообщение
Помогите кому не сложно
Клепай код, а тут его посмотрят и подправят...
0
rostikowb
0 / 0 / 0
Регистрация: 23.11.2014
Сообщений: 23
17.05.2015, 22:05  [ТС] #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
program ClassificationYard;
 
const
  Nmax = 100;
type
  TRailroadCars = (TypeA, TypeB);
  TArray = array [1..2 * Nmax] of TRailroadCars;
 
  procedure ShowStream(const A: TArray; N: integer);
  var
    i: integer;
  begin
    Write('< ');
    for i := 1 to N do
      if A[i] = TypeA then
        Write('A')
      else
        Write('B');
    writeln(' >');
  end;
 
  procedure ShowState(const Ain, Aout, Ad: TArray; const Nin, Nout, Nd: integer);
  begin
    writeln('In stream:');
    ShowStream(Ain, Nin);
    writeln('Out stream:');
    ShowStream(Aout, Nout);
    writeln('Railway deadlock:');
    ShowStream(Ad, Nd);
  end;
 
  {операция МИМО}
  procedure MovePassBy(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nout);
    Aout[Nout] := Ain[2 * N - Nin + 1];
    Dec(Nin);
  end;
 
  {операция В}
  procedure MoveIn(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nd);
    Ad[Nd] := Ain[2 * N - Nin + 1];
    Dec(Nin);
  end;
 
  {операция ИЗ}
  procedure MoveOut(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nout);
    Aout[Nout] := Ad[Nd];
    Dec(Nd);
  end;
 
var
  RailwayDeadlock,  {тупик}
  InStream,         {входной поток}
  OutStream: TArray;{выходной поток}
  N:  integer;      {количество вагонов каждого типа}
  Nin,              {текущее количество вагонов во входном потоке}
  Nout,             {текущее количество вагонов в выходном потоке}
  Nd: integer;      {текущее количество вагонов в тупике}
  temp: TRailroadCars;
  i, i1, i2: integer;
begin
  {инициализация}
  N  := 10;
  Nin := 2 * N;
  Nout := 0;
  Nd := 0;
  { - заполнение входного потока и перемешивание}
  Randomize;
  for i := 1 to N do
  begin
    InStream[i] := TypeA;
    InStream[N + i] := TypeB;
  end;
  for i := 1 to 2 * N do
  begin
    i1 := random(2 * N) + 1;
    i2 := random(2 * N) + 1;
    temp := InStream[i1];
    InStream[i1] := InStream[i2];
    InStream[i2] := temp;
  end;
  {визуализация начального состояния}
  writeln('Before:');
  ShowState(InStream, OutStream, RailwayDeadlock, Nin, Nout, Nd);
  {решение}
  { - 1-й вагон сразу отправляем в выход}
  MovePassBy(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
  while (Nin > 0) or (Nd > 0) do
  begin
    {проверяем возможность взять вагон из тупика}
    if Nd > 0 then
      if RailwayDeadlock[Nd] <> OutStream[Nout] then
      begin
        MoveOut(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end;
    {проверяем возможность взять вагон из входного потока}
    if Nin > 0 then
      if InStream[2 * N - Nin + 1] <> OutStream[Nout] then
      begin
        MovePassBy(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end
      else
      begin
        MoveIn(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end;
    break;{в случае ошибки}
  end;
  {вывод результатов}
  writeln('After:');
  ShowState(InStream, OutStream, RailwayDeadlock, Nin, Nout, Nd);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2015, 22:05
Привет! Вот еще темы с решениями:

Написать программу что меняло слово "кукушка" на "груша", с помощью стека
Написать программу что меняло слово кукушка на груша , с помощью стека(1...

Написать простейшую программу по "перегрузке" и "наследованию"
написать простейшую программу на СИ++ по &quot;перегрузке&quot; и &quot;наследованию&quot;. заранее...

В зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", "очень холодно"
В зависимости от времени года &quot;весна&quot;, &quot;лето&quot;, &quot;осень&quot;, &quot;зима&quot; определить...

Написать функцию поиска человека по полю "фамилия" в массиве структур "Note" ("Персональная информация")
Вывести из структуры информацию о человеке, чья фамилия введена с клавиатуры ...


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

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

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