Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
vertikon
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 2
#1

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

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

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

Видоизменить массив таким образом, чтобы сначала шли все положительные элементы, потом все отрицательные - Turbo Pascal
Принять в процедуру некоторый заполненный массив с отрицательными и положительными элементами. Нужно слегка видоизменить массив таким...

Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа - Turbo Pascal
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, А ПОТОМ...

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

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

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

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

3
Mawrat
12794 / 5701 / 672
Регистрация: 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
07.06.2011, 21:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2011, 21:00
Привет! Вот еще темы с ответами:

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

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

Дано N чисел. Найти самое большое число, на которое делятся все N чисел. - Pascal ABC
Дано N чисел. Найти самое большое число, на которое делятся все N чисел. Формат входных данных В первой строке дано число N. Во...

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


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

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

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