Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Стек. Освобождение памяти

76K
01 декабря 2011 года
kuy
6 / / 21.11.2011
Здравствуйте. Помогите пожалуйста розобратся с задачей:
Задан одномерный массив целых чисел, который инициализировать как константу. Записать массив в стек, выбрать элементы из стека (процедура) и освободить память, которую они занимали.
Наробки:
 
Код:
program Stek;
{$APPTYPE CONSOLE}
uses SysUtils;
var m: array[1..11] of integer = (9,4,2,4,5,6,1,8,0,1,7);
    i:integer;
begin
 writeln('Mas:');
 for i:=1 to 11 do write(m:2);
 readln;
end.
14
02 декабря 2011 года
Phodopus
3.3K / / 19.06.2008
Оформите цикл в процедуру. Остальное почти сделано
76K
02 декабря 2011 года
kuy
6 / / 21.11.2011
Я правильно масив в стек записал??
Код:
program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
const
 MAX = 100;
  var
 stack:array[1..100] of integer;
 tos:integer; {points to top of stask}
 m: array[1..11] of integer = (9,4,2,4,5,6,1,8,0,1,7);
 i,n:integer;

 procedure Push(i:integer);  { помещение объекта в стек }
 begin
  if tos>=MAX then WriteLn('Stask full')
  else
   begin
    stack[tos]:=i;
    tos:=tos+1;
   end;
 end;

begin
 writeln('Mas:');
 for i:=1 to 11 do write(m:2);
 writeln;
 for i:=1 to 11 do Push(m);
 n:=tos;
 for tos:=1 to n do write(stack[tos]:2);
 readln;
end.
14
03 декабря 2011 года
Phodopus
3.3K / / 19.06.2008
К сожалению вы записали массив в переменную Stack а не в стек.. Не хотел вас расстраивать.
76K
04 декабря 2011 года
kuy
6 / / 21.11.2011
Phodopus, мне нравится ваш стёб) наверное вы препод)
14
04 декабря 2011 года
Phodopus
3.3K / / 19.06.2008
К счастью для бедных студентов я не остался в околопреподавательской среде :). Но это и не стеб - все зависит от того что понимать под стеком. Я вот думаю о программном стеке.
76K
05 декабря 2011 года
kuy
6 / / 21.11.2011
я в инете по этой теме ничего толкового не нашол и не розобрался толком со стеками.. так-что не имею понятия о чём именно вы думаете)
297
05 декабря 2011 года
koodeer
1.2K / / 02.05.2009
Phodopus, как и любой программист, думает об этом: стек.
76K
06 декабря 2011 года
kuy
6 / / 21.11.2011
понятно)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог