Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
vertikon
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 2
#1

создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. - Pascal

07.06.2011, 13:48. Просмотров 1049. Ответов 3
Метки нет (Все метки)

Помогите решить.
В файл записывается последовательность целых чисел. Прочитать последовательность из файла и создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. Вывести исходный и результирующий стеки на экран.
http://www.cyberforum.ru/turbo-pascal/thread2007691.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2011, 13:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. (Pascal):

Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа
Дан одномерный массив целых чисел. Переставить элементы в массиве таким...

перераспределите значения переменных x и y таким образом , чтобы переменная x получила меньшее из этих чисел ,а Y-большее.
алгоритмы разветвляющей структуры. перераспределите значения переменных x и y...

Сформировать массив Z таким образом, чтобы в начале шли отрицательные элементы массива Y, затем положительные
помогите решить, пожалуйста! Задан массив Y из N целых чисел. Сформировать...

Упоpядочить тpи числа a, b, c по возрастанию таким образом, чтобы переменной а соответствовало самое маленькое число, b – сpеднее, с – наибольшее
Упоpядочить тpи числа a, b, c по возрастанию таким образом, чтобы...

Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные
Преобразовать массив таким образом, чтобы сначала располагались все элементы,...

3
Mawrat
12821 / 5729 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
07.06.2011, 17:47 #2
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
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;
 
const
  Fn = 'file.txt';
var
  F : Text;
  St1, St2 : TStack;
  i, Num1, Num2 : Integer;
begin
  Assign(F, Fn);
 
  Rewrite(F);
  Writeln('Содержимое файла:');
  Randomize;
  for i := 1 to M do begin
    Num1 := -30 + Random(101); //-30..70.
    Write(F, Num1);
    if i < M then Writeln(F);
    //Распечатка значений в окне консоли.
    if i > 1 then Write(', ');
    Write(Num1);
  end;
  Writeln;
  Flush(F);
 
  //Инициализация стеков.
  St1.Pnt := 0;
  St2.Pnt := 0;
 
  //Читаем данные из файла в первый стек и при этом "гоним пузырёк" по неубыванию
  //от дна стека - к вершине, по мере загрузки в стек значений.
  Reset(F);
  Num1 := 0;
  Num2 := 0;
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    Num1 := Num2;
    Readln(F, Num2);
    if i < 2 then Continue;
    if Num1 <= Num2 then begin
      StackPush(St1, Num1);
    end else begin
      StackPush(St1, Num2);
      Num2 := Num1;
    end;
  end;
  //Дописываем в стек оставшееся число - оно и есть наибольшее из всех чисел в файле.
  if i > 0 then StackPush(St1, Num2);
 
  Close(F);
 
  //Распечатываем содержимое первого стека.
  //При этом, чтобы не потерять элементы, применяем переливание между стеками.
  Writeln('Содержимое стека после обработки данных из файла:');
  i := 0;
  while StackPop(St1, Num1) do begin
    Inc(i);
    StackPush(St2, Num1);
    if i > 1 then Write(', ');
    Write(Num1);
  end;
  Writeln;
  //Переливаем элементы обратно - из второго стека - в первый стек.
  while StackPop(St2, Num1) do StackPush(St1, Num1);
 
  //Теперь удаляем из первого стека отрицательные элементы.
  //Опять действуем через переливание.
  while StackPop(St1, Num1) do begin
    if Num1 < 0 then Continue;
    StackPush(St2, Num1)
  end;
  //Переливаем элементы обратно.
  while StackPop(St2, Num1) do StackPush(St1, Num1);
 
  //Распечатываем содержимое первого стека.
  Writeln('Содержимое стека после удаления отрицательных элементов:');
  i := 0;
  while StackPop(St1, Num1) do begin
    Inc(i);
    StackPush(St2, Num1);
    if i > 1 then Write(', ');
    Write(Num1);
  end;
  Writeln;
 
  Readln;
end.
0
magirus
07.06.2011, 17:55
  #3
 Комментарий модератора 
не дублируйте темы.
0
vertikon
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 2
07.06.2011, 21:00 #4
Спасибо огромное
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2011, 21:00
Привет! Вот еще темы с решениями:

Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом все остальные
В одномерном массиве, состоящем из n целых элементов, вычислить 1. Минимальный...

В одномерном массиве переставить элементы таким образом, чтобы сначала шли все отрицательные, затем нулевые, затем положительные
Люди, кто разбирается в массивах, помогите пожалуйста написать программу на...

Дано N чисел. Найти самое большое число, на которое делятся все N чисел.
Дано N чисел. Найти самое большое число, на которое делятся все N чисел. ...

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


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

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

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